From 47dcabae82304cdd98def301a0937a4483771f77 Mon Sep 17 00:00:00 2001 From: Galen Charlton Date: Thu, 16 Oct 2008 10:44:56 -0500 Subject: [PATCH] debugify a warn Signed-off-by: Galen Charlton --- opac/opac-tags.pl | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/opac/opac-tags.pl b/opac/opac-tags.pl index 3d5d5ddd89..2b9dfd7955 100755 --- a/opac/opac-tags.pl +++ b/opac/opac-tags.pl @@ -138,7 +138,7 @@ if (scalar @newtags_keys) { $counts{$biblionumber}++; } else { push @errors, {failed_add_tag=>$clean_tag}; - warn "add_tag($biblionumber,$clean_tag,$loggedinuser...) returned bad result (" . (defined $result ? $result : 'UNDEF') .")"; + $debug and warn "add_tag($biblionumber,$clean_tag,$loggedinuser...) returned bad result (" . (defined $result ? $result : 'UNDEF') .")"; } } } -- 2.20.1