|
Lines 23-31
use Modern::Perl;
Link Here
|
| 23 |
use CGI qw ( -utf8 ); |
23 |
use CGI qw ( -utf8 ); |
| 24 |
|
24 |
|
| 25 |
use C4::Auth qw( get_template_and_user ); |
25 |
use C4::Auth qw( get_template_and_user ); |
| 26 |
use C4::Output qw( output_html_with_http_headers ); |
26 |
use C4::Circulation qw( barcodedecode ); |
| 27 |
use C4::Creators qw( get_label_summary html_table ); |
27 |
use C4::Creators qw( get_label_summary html_table ); |
| 28 |
use C4::Labels; |
28 |
use C4::Labels; |
|
|
29 |
use C4::Output qw( output_html_with_http_headers ); |
| 29 |
|
30 |
|
| 30 |
use Koha::Items; |
31 |
use Koha::Items; |
| 31 |
|
32 |
|
|
Lines 89-94
elsif ($op eq 'add') {
Link Here
|
| 89 |
push @item_numbers, $number; |
90 |
push @item_numbers, $number; |
| 90 |
} |
91 |
} |
| 91 |
elsif ($number_type eq "barcode" ) { # we must test in case an invalid barcode is passed in; we effectively disgard them atm |
92 |
elsif ($number_type eq "barcode" ) { # we must test in case an invalid barcode is passed in; we effectively disgard them atm |
|
|
93 |
$number = barcodedecode($number) if $number; |
| 92 |
my $item = Koha::Items->find({barcode => $number}); |
94 |
my $item = Koha::Items->find({barcode => $number}); |
| 93 |
push @item_numbers, $item->itemnumber if $item; |
95 |
push @item_numbers, $item->itemnumber if $item; |
| 94 |
} |
96 |
} |
| 95 |
- |
|
|