|
Lines 45-51
use Koha::Result::Boolean;
Link Here
|
| 45 |
|
45 |
|
| 46 |
use Encode qw( encode_utf8 ); |
46 |
use Encode qw( encode_utf8 ); |
| 47 |
use List::MoreUtils qw( any uniq ); |
47 |
use List::MoreUtils qw( any uniq ); |
| 48 |
use List::Util qw( first ); |
48 |
use List::Util qw( first min ); |
| 49 |
use MARC::File::XML; |
49 |
use MARC::File::XML; |
| 50 |
use MIME::Base64 qw( decode_base64url encode_base64url ); |
50 |
use MIME::Base64 qw( decode_base64url encode_base64url ); |
| 51 |
use Storable qw( freeze thaw ); |
51 |
use Storable qw( freeze thaw ); |
|
Lines 238-244
if ($op eq "additem") {
Link Here
|
| 238 |
my $add_duplicate_submit = $input->param('add_duplicate_submit'); |
238 |
my $add_duplicate_submit = $input->param('add_duplicate_submit'); |
| 239 |
my $add_multiple_copies_submit = $input->param('add_multiple_copies_submit'); |
239 |
my $add_multiple_copies_submit = $input->param('add_multiple_copies_submit'); |
| 240 |
my $save_as_template_submit = $input->param('save_as_template_submit'); |
240 |
my $save_as_template_submit = $input->param('save_as_template_submit'); |
| 241 |
my $number_of_copies = $input->param('number_of_copies'); |
241 |
my $number_of_copies = min( scalar $input->param('number_of_copies'), 1000 ); # TODO refine hardcoded maximum? |
| 242 |
|
242 |
|
| 243 |
my @columns = Koha::Items->columns; |
243 |
my @columns = Koha::Items->columns; |
| 244 |
my $item = Koha::Item->new; |
244 |
my $item = Koha::Item->new; |