- my @contentlist;
- if ($filefh) {
- while ( my $content = <$filefh> ) {
- $content =~ s/[\r\n]*$//g;
- push @cardnumbers, $content if $content;
+ if( my $cardnumberlist = $input->param('cardnumberlist') ){
+ # User submitted a list of card numbers
+ push @patronidnumbers, split( /\s\n/, $cardnumberlist );
+ } elsif ( my $cardnumberuploadfile = $input->param('cardnumberuploadfile') ){
+ # User uploaded a file of card numbers
+ binmode $cardnumberuploadfile, ':encoding(UTF-8)';
+ while ( my $content = <$cardnumberuploadfile> ) {
+ next unless $content;
+ $content =~ s/[\r\n]*$//;
+ push @patronidnumbers, $content if $content;
+ }
+ } elsif ( my $borrowernumberlist = $input->param('borrowernumberlist') ){
+ # User submitted a list of borrowernumbers
+ $useborrowernumbers = 1;
+ push @patronidnumbers, split( /\s\n/, $borrowernumberlist );
+ } elsif ( my $borrowernumberuploadfile = $input->param('borrowernumberuploadfile') ){
+ # User uploaded a file of borrowernumbers
+ $useborrowernumbers = 1;
+ binmode $borrowernumberuploadfile, ':encoding(UTF-8)';
+ while ( my $content = <$borrowernumberuploadfile> ) {
+ next unless $content;
+ $content =~ s/[\r\n]*$//;
+ push @patronidnumbers, $content if $content;