Lines 57-64
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 $biblio = $recall->biblio; |
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 @this_bib_recalls = $biblio->recalls->search( |
|
|
62 |
{ status => [ 'requested', 'overdue', 'in_transit' ] }, |
63 |
{ order_by => { -asc => 'created_date' } } |
64 |
)->as_list; |
62 |
my $recalls_count = scalar @this_bib_recalls; |
65 |
my $recalls_count = scalar @this_bib_recalls; |
63 |
my @unique_patrons = do { my %seen; grep { !$seen{$_->patron_id}++ } @this_bib_recalls }; |
66 |
my @unique_patrons = do { my %seen; grep { !$seen{$_->patron_id}++ } @this_bib_recalls }; |
64 |
my $patrons_count = scalar @unique_patrons; |
67 |
my $patrons_count = scalar @unique_patrons; |
Lines 98-104
if ( $op eq 'list' ) {
Link Here
|
98 |
my @unique_libraries = do { my %seen; grep { !$seen{$_}++ } @libraries }; |
101 |
my @unique_libraries = do { my %seen; grep { !$seen{$_}++ } @libraries }; |
99 |
|
102 |
|
100 |
push( @pull_list, { |
103 |
push( @pull_list, { |
101 |
biblio => $recall->biblio, |
104 |
biblio => $biblio, |
102 |
items_count => $items_count, |
105 |
items_count => $items_count, |
103 |
recalls_count => $recalls_count, |
106 |
recalls_count => $recalls_count, |
104 |
patrons_count => $patrons_count, |
107 |
patrons_count => $patrons_count, |
105 |
- |
|
|