|
Lines 45-51
if ( $op eq 'cancel' ) {
Link Here
|
| 45 |
} |
45 |
} |
| 46 |
|
46 |
|
| 47 |
if ( $op eq 'list' ) { |
47 |
if ( $op eq 'list' ) { |
| 48 |
my @recalls = Koha::Recalls->search({ status => [ 'R','O','T' ] }); |
48 |
my @recalls = Koha::Recalls->search({ status => [ 'R','O','T' ] })->as_list; |
| 49 |
my @pull_list; |
49 |
my @pull_list; |
| 50 |
my %seen_bib; |
50 |
my %seen_bib; |
| 51 |
foreach my $recall ( @recalls ) { |
51 |
foreach my $recall ( @recalls ) { |
|
Lines 57-63
if ( $op eq 'list' ) {
Link Here
|
| 57 |
$seen_bib{$recall->biblionumber}++; |
57 |
$seen_bib{$recall->biblionumber}++; |
| 58 |
|
58 |
|
| 59 |
# get recall data about this biblio |
59 |
# get recall data about this biblio |
| 60 |
my @this_bib_recalls = Koha::Recalls->search({ biblionumber => $recall->biblionumber, status => [ 'R','O','T' ] }, { order_by => { -asc => 'recalldate' } }); |
60 |
my @this_bib_recalls = Koha::Recalls->search({ biblionumber => $recall->biblionumber, status => [ 'R','O','T' ] }, { order_by => { -asc => 'recalldate' } })->as_list; |
| 61 |
my $recalls_count = scalar @this_bib_recalls; |
61 |
my $recalls_count = scalar @this_bib_recalls; |
| 62 |
my @unique_patrons = do { my %seen; grep { !$seen{$_->borrowernumber}++ } @this_bib_recalls }; |
62 |
my @unique_patrons = do { my %seen; grep { !$seen{$_->borrowernumber}++ } @this_bib_recalls }; |
| 63 |
my $patrons_count = scalar @unique_patrons; |
63 |
my $patrons_count = scalar @unique_patrons; |