AKZG -- added inventory number generation for new homebranch

[koha.git] / acqui / lateorders-export.pl

diff --git a/acqui/lateorders-export.pl b/acqui/lateorders-export.pl
index 585cac8..c8d86e6 100755 (executable)
--- a/acqui/lateorders-export.pl
+++ b/acqui/lateorders-export.pl
@@ -16,7 +16,7 @@
 # along with Koha; if not, see <http://www.gnu.org/licenses>.
 
 use Modern::Perl;
-use CGI;
+use CGI qw ( -utf8 );
 
 use C4::Auth;
 use C4::Acquisition;
@@ -31,7 +31,7 @@ my ($template, $loggedinuser, $cookie) = get_template_and_user({
     authnotrequired => 0,
     flagsrequired => {acquisition => 'order_receive'},
 });
-my @ordernumbers = $input->param('ordernumber');
+my @ordernumbers = $input->multi_param('ordernumber');
 
 my @orders;
 for my $ordernumber ( @ordernumbers ) {
@@ -62,4 +62,6 @@ print $input->header(
     -attachment => 'lateorders.csv',
 );
 $template->param( orders => \@orders );
-print $template->output;
+for my $line ( split '\n', $template->output ) {
+    print "$line\n" unless $line =~ m|^\s*$|;
+}