Lines 57-62
if ( $op eq 'list' ) {
Link Here
|
57 |
$seen_bib{$recall->biblio_id}++; |
57 |
$seen_bib{$recall->biblio_id}++; |
58 |
|
58 |
|
59 |
# get recall data about this biblio |
59 |
# get recall data about this biblio |
|
|
60 |
my $biblio = Koha::Biblios->find($recall->biblio_id); |
60 |
my @this_bib_recalls = Koha::Recalls->search({ biblio_id => $recall->biblio_id, status => [ 'requested','overdue','in_transit' ] }, { order_by => { -asc => 'created_date' } })->as_list; |
61 |
my @this_bib_recalls = Koha::Recalls->search({ biblio_id => $recall->biblio_id, status => [ 'requested','overdue','in_transit' ] }, { order_by => { -asc => 'created_date' } })->as_list; |
61 |
my $recalls_count = scalar @this_bib_recalls; |
62 |
my $recalls_count = scalar @this_bib_recalls; |
62 |
my @unique_patrons = do { my %seen; grep { !$seen{$_->patron_id}++ } @this_bib_recalls }; |
63 |
my @unique_patrons = do { my %seen; grep { !$seen{$_->patron_id}++ } @this_bib_recalls }; |
Lines 71-77
if ( $op eq 'list' ) {
Link Here
|
71 |
my @locations; |
72 |
my @locations; |
72 |
my @libraries; |
73 |
my @libraries; |
73 |
|
74 |
|
74 |
my @items = Koha::Items->search({ biblio_id => $recall->biblio_id })->as_list; |
75 |
my @items = $biblio->items->as_list; |
75 |
foreach my $item ( @items ) { |
76 |
foreach my $item ( @items ) { |
76 |
if ( $item->can_be_waiting_recall and !$item->checkout ) { |
77 |
if ( $item->can_be_waiting_recall and !$item->checkout ) { |
77 |
# if item can be pulled to fulfill recall, collect item data |
78 |
# if item can be pulled to fulfill recall, collect item data |
78 |
- |
|
|