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 |
- |
|
|