Lines 108-115
elsif ( $request eq 'KillReserved' ) {
Link Here
|
108 |
my @trsfitemloop; |
108 |
my @trsfitemloop; |
109 |
my $transfered; |
109 |
my $transfered; |
110 |
my $barcode = $query->param('barcode'); |
110 |
my $barcode = $query->param('barcode'); |
111 |
# strip whitespace |
111 |
# remove leading/trailing whitespace |
112 |
defined $barcode and $barcode =~ s/\s*//g; # FIXME: barcodeInputFilter |
112 |
defined $barcode and $barcode =~ s/^\s*|\s*$//g; # FIXME: barcodeInputFilter |
113 |
# warn "barcode : $barcode"; |
113 |
# warn "barcode : $barcode"; |
114 |
if ($barcode) { |
114 |
if ($barcode) { |
115 |
|
115 |
|
116 |
- |
|
|