diff --git a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-edit.tt b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-edit.tt index 8c5ba5d8db..172a015e6e 100644 --- a/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-edit.tt +++ b/koha-tmpl/intranet-tmpl/prog/en/modules/serials/serials-edit.tt @@ -307,7 +307,7 @@ $(document).ready(function() {
- The barcode you enter will be incremented for each additional item.

+ Number of copies limited to under 1000. The barcode you enter will be incremented for each additional item.

@@ -458,7 +458,7 @@ $(document).ready(function() {
- The barcode you enter will be incremented for each additional item.

+ Number of copies limited to under 1000. The barcode you enter will be incremented for each additional item.

diff --git a/serials/serials-edit.pl b/serials/serials-edit.pl index b80fa46f21..060bfbb19f 100755 --- a/serials/serials-edit.pl +++ b/serials/serials-edit.pl @@ -77,6 +77,7 @@ use Koha::Items; use Koha::Serial::Items; use List::MoreUtils qw( uniq ); +use List::Util qw( min ); my $query = CGI->new(); my $dbh = C4::Context->dbh; @@ -277,7 +278,7 @@ if ( $op and $op eq 'serialchangestatus' ) { my @serials = $query->multi_param('serial'); my @bibnums = $query->multi_param('bibnum'); my @itemid = $query->multi_param('itemid'); - my @num_copies = $query->multi_param('number_of_copies'); + my @num_copies = map { min($_, 1000); } $query->multi_param('number_of_copies'); #Rebuilding ALL the data for items into a hash # parting them on $itemid.