|
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 |
- |
|
|