From ddd0140ef17a5aa129614734b038fdfc077fc359 Mon Sep 17 00:00:00 2001 From: Chris Cormack Date: Sun, 30 Dec 2007 16:17:04 -0600 Subject: [PATCH] Fix for bug 1626, whitespace stripped from barcodes Signed-off-by: Joshua Ferraro --- circ/branchtransfers.pl | 2 ++ circ/circulation.pl | 4 ++++ circ/returns.pl | 2 ++ 3 files changed, 8 insertions(+) diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index 7d15cf7677..37d9e0ee70 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -105,6 +105,8 @@ my @trsfitemloop; my %transfereditems; my $transfered; my $barcode = $query->param('barcode'); +# strip whitespace +$barcode =~ s/\s*//g; # warn "barcode : $barcode"; if ($barcode) { diff --git a/circ/circulation.pl b/circ/circulation.pl index adeeba7a0e..049233063e 100755 --- a/circ/circulation.pl +++ b/circ/circulation.pl @@ -111,6 +111,10 @@ $printer = C4::Context->userenv->{'branchprinter'}; } my $barcode = $query->param('barcode') || ''; + +# strip whitespace +$barcode =~ s/\s*//g; + my $year = $query->param('year'); my $month = $query->param('month'); my $day = $query->param('day'); diff --git a/circ/returns.pl b/circ/returns.pl index 0d78a77654..a7e79b19a7 100755 --- a/circ/returns.pl +++ b/circ/returns.pl @@ -153,6 +153,8 @@ my $returned = 0; my $messages; my $issueinformation; my $barcode = $query->param('barcode'); +# strip whitespace +$barcode =~ s/\s*//g; my $exemptfine = $query->param('exemptfine'); my $dotransfer = $query->param('dotransfer'); -- 2.39.5