Lines 77-82
use Koha::Items;
Link Here
|
77 |
use Koha::Serial::Items; |
77 |
use Koha::Serial::Items; |
78 |
|
78 |
|
79 |
use List::MoreUtils qw( uniq ); |
79 |
use List::MoreUtils qw( uniq ); |
|
|
80 |
use List::Util qw( min ); |
80 |
|
81 |
|
81 |
my $query = CGI->new(); |
82 |
my $query = CGI->new(); |
82 |
my $dbh = C4::Context->dbh; |
83 |
my $dbh = C4::Context->dbh; |
Lines 277-283
if ( $op and $op eq 'serialchangestatus' ) {
Link Here
|
277 |
my @serials = $query->multi_param('serial'); |
278 |
my @serials = $query->multi_param('serial'); |
278 |
my @bibnums = $query->multi_param('bibnum'); |
279 |
my @bibnums = $query->multi_param('bibnum'); |
279 |
my @itemid = $query->multi_param('itemid'); |
280 |
my @itemid = $query->multi_param('itemid'); |
280 |
my @num_copies = $query->multi_param('number_of_copies'); |
281 |
my @num_copies = map { min($_, 1000); } $query->multi_param('number_of_copies'); # TODO Refine later? |
281 |
|
282 |
|
282 |
#Rebuilding ALL the data for items into a hash |
283 |
#Rebuilding ALL the data for items into a hash |
283 |
# parting them on $itemid. |
284 |
# parting them on $itemid. |
284 |
- |
|
|