From a79b784f9cc98df5e1a0e8a2cace0c2b582a724a 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.39.5