Lines 18-25
Link Here
|
18 |
|
18 |
|
19 |
use Modern::Perl; |
19 |
use Modern::Perl; |
20 |
|
20 |
|
21 |
use C4::Output qw( output_html_with_http_headers ); |
21 |
use C4::Output qw( output_html_with_http_headers ); |
22 |
use C4::Auth qw( get_template_and_user ); |
22 |
use C4::Auth qw( get_template_and_user ); |
|
|
23 |
use C4::Circulation qw( barcodedecode ); |
23 |
use C4::Context; |
24 |
use C4::Context; |
24 |
use C4::RotatingCollections; |
25 |
use C4::RotatingCollections; |
25 |
|
26 |
|
Lines 42-49
if ( defined $op
Link Here
|
42 |
and $op eq 'cud-add' ) |
43 |
and $op eq 'cud-add' ) |
43 |
{ |
44 |
{ |
44 |
## Add the given item to the collection |
45 |
## Add the given item to the collection |
45 |
my $colId = $query->param('colId'); |
46 |
my $colId = $query->param('colId'); |
46 |
my $barcode = $query->param('barcode'); |
47 |
my $barcode = $query->param('barcode'); |
|
|
48 |
$barcode = barcodedecode($barcode); |
47 |
my $removeItem = $query->param('removeItem'); |
49 |
my $removeItem = $query->param('removeItem'); |
48 |
my $item = Koha::Items->find( { barcode => $barcode } ); |
50 |
my $item = Koha::Items->find( { barcode => $barcode } ); |
49 |
my $itemnumber = $item ? $item->itemnumber : undef; |
51 |
my $itemnumber = $item ? $item->itemnumber : undef; |
50 |
- |
|
|