removed unconditional warn introduced in previous patch

Signed-off-by: Galen Charlton <gmcharlt@gmail.com>

diff --git a/cataloguing/value_builder/callnumber.pl b/cataloguing/value_builder/callnumber.pl
index 3ed09d9..2b56958 100755 (executable)
--- a/cataloguing/value_builder/callnumber.pl
+++ b/cataloguing/value_builder/callnumber.pl
@@ -96,7 +96,6 @@ sub plugin {
         }
     # If a prefix is submited, we look for the highest itemcallnumber with this prefix, and return it incremented
     } elsif ( $code =~ m/^[A-Z.\-]+$/ ) {
-        warn $code;
         my $sth = $dbh->prepare("SELECT MAX(CAST(SUBSTRING_INDEX(itemcallnumber,' ',-1) AS SIGNED)) FROM items WHERE itemcallnumber LIKE ?");
         $sth->execute($code.' %');
         if ( my $max = $sth->fetchrow ) {