@@ -, +, @@ checked in barcodes --- members/readingrec.pl | 1 + 1 file changed, 1 insertion(+) --- a/members/readingrec.pl +++ a/members/readingrec.pl @@ -83,6 +83,7 @@ if ( $op eq 'export_barcodes' ) { map { $_->{barcode} } grep { $_->{returndate} =~ m/^$today/o } @{$issues}; my $borrowercardnumber = GetMember( borrowernumber => $borrowernumber )->{'cardnumber'}; + $borrowercardnumber //= ''; my $delimiter = "\n"; binmode( STDOUT, ":encoding(UTF-8)" ); print $input->header( --