|
Lines 127-133
sub list {
Link Here
|
| 127 |
foreach my $p(@{$patron_arr}) { |
127 |
foreach my $p(@{$patron_arr}) { |
| 128 |
if ($p->{borrowernumber} == $req->borrowernumber) { |
128 |
if ($p->{borrowernumber} == $req->borrowernumber) { |
| 129 |
$to_push->{patron} = { |
129 |
$to_push->{patron} = { |
| 130 |
borrowernumber => $p->{borrowernumber}, |
130 |
patron_id => $p->{borrowernumber}, |
| 131 |
firstname => $p->{firstname}, |
131 |
firstname => $p->{firstname}, |
| 132 |
surname => $p->{surname}, |
132 |
surname => $p->{surname}, |
| 133 |
cardnumber => $p->{cardnumber} |
133 |
cardnumber => $p->{cardnumber} |
| 134 |
- |
|
|