|
Lines 71-83
my @borrowers;
Link Here
|
| 71 |
while ( my $b = $borrowers_rs->next ) { |
71 |
while ( my $b = $borrowers_rs->next ) { |
| 72 |
push @borrowers, |
72 |
push @borrowers, |
| 73 |
{ borrowernumber => $b->borrowernumber, |
73 |
{ borrowernumber => $b->borrowernumber, |
| 74 |
surname => $b->surname, |
74 |
surname => $b->surname // '', |
| 75 |
firstname => $b->firstname, |
75 |
firstname => $b->firstname // '', |
| 76 |
cardnumber => $b->cardnumber, |
76 |
cardnumber => $b->cardnumber // '', |
| 77 |
address => $b->address, |
77 |
address => $b->address // '', |
| 78 |
city => $b->city, |
78 |
city => $b->city // '', |
| 79 |
zipcode => $b->zipcode, |
79 |
zipcode => $b->zipcode // '', |
| 80 |
country => $b->country |
80 |
country => $b->country // '', |
| 81 |
}; |
81 |
}; |
| 82 |
} |
82 |
} |
| 83 |
|
83 |
|
| 84 |
- |
|
|