diff --git a/circ/branchtransfers.pl b/circ/branchtransfers.pl index a17eb6c80c..d0214e2608 100755 --- a/circ/branchtransfers.pl +++ b/circ/branchtransfers.pl @@ -37,6 +37,7 @@ foreach (keys %$branches) { } # collect the stack of books already transfered so they can printed... +my @messages; my %transfereditems; my $ritext = ''; my %frbranchcds; @@ -44,7 +45,6 @@ my %tobranchcds; foreach ($query->param){ (next) unless (/bc-(\d*)/); my $counter=$1; - (next) if ($counter>20); my $barcode=$query->param("bc-$counter"); my $frbcd=$query->param("fb-$counter"); my $tobcd=$query->param("tb-$counter"); @@ -59,7 +59,7 @@ foreach ($query->param){ #if the barcode has been entered action that and write a message and onto the top of the stack... my $iteminformation; -my @messages; + my $todaysdate; if (my $barcode=$query->param('barcode')) { my $iteminformation = getiteminformation(\%env,0, $barcode); @@ -92,21 +92,19 @@ if (my $barcode=$query->param('barcode')) { my $entrytext= << "EOF";