From e3387b9c4f97d4c4cfd50f2fcf123dcb23e59eea Mon Sep 17 00:00:00 2001 From: Nahuel ANGELINETTI Date: Wed, 12 May 2010 13:44:32 +0200 Subject: [PATCH] (bug #4487) permit - and . in callnumber plugin Signed-off-by: Galen Charlton --- cataloguing/value_builder/callnumber.pl | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/cataloguing/value_builder/callnumber.pl b/cataloguing/value_builder/callnumber.pl index 889d8c9a5b..3ed09d9fa8 100755 --- a/cataloguing/value_builder/callnumber.pl +++ b/cataloguing/value_builder/callnumber.pl @@ -95,7 +95,8 @@ 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]+$/ ) { + } 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 ) { -- 2.39.5