-print "[";
-my $i = 0;
-while ( my $rec = $sth->fetchrow_hashref ) {
- if($i > 0){ print ","; }
- print "{\"borrowernumber\":\"" . $rec->{borrowernumber} . "\",\"" .
- "surname\":\"".$rec->{surname} . "\",\"" .
- "firstname\":\"".$rec->{firstname} . "\",\"" .
- "cardnumber\":\"".$rec->{cardnumber} . "\",\"" .
- "address\":\"".$rec->{address} . "\",\"" .
- "city\":\"".$rec->{city} . "\",\"" .
- "zipcode\":\"".$rec->{zipcode} . "\",\"" .
- "country\":\"".$rec->{country} . "\"" .
- "}";
- $i++;
+my @borrowers;
+while ( my $b = $borrowers_rs->next ) {
+ push @borrowers,
+ { borrowernumber => $b->borrowernumber,
+ surname => $b->surname // '',
+ firstname => $b->firstname // '',
+ cardnumber => $b->cardnumber // '',
+ dateofbirth => format_sqldatetime($b->dateofbirth, undef, undef, 1) // '',
+ address => $b->address // '',
+ city => $b->city // '',
+ zipcode => $b->zipcode // '',
+ country => $b->country // '',
+ };