debugify a warn

Signed-off-by: Galen Charlton <galen.charlton@liblime.com>
This commit is contained in:
Galen Charlton 2008-10-16 10:44:56 -05:00
parent 851a693be4
commit 47dcabae82

View file

@ -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') .")";
}
}
}