Lines 107-112
sub list {
Link Here
|
107 |
my @output = (); |
107 |
my @output = (); |
108 |
foreach my $req(@requests) { |
108 |
foreach my $req(@requests) { |
109 |
my $to_push = $req->unblessed; |
109 |
my $to_push = $req->unblessed; |
|
|
110 |
$to_push->{id_prefix} = $req->id_prefix; |
110 |
foreach my $p(@{$patron_arr}) { |
111 |
foreach my $p(@{$patron_arr}) { |
111 |
if ($p->{borrowernumber} == $req->borrowernumber) { |
112 |
if ($p->{borrowernumber} == $req->borrowernumber) { |
112 |
$to_push->{patron} = { |
113 |
$to_push->{patron} = { |
113 |
- |
|
|