Lines 28-33
use C4::Auth;
Link Here
|
28 |
use C4::Dates qw/format_date format_date_in_iso/; |
28 |
use C4::Dates qw/format_date format_date_in_iso/; |
29 |
use C4::Debug; |
29 |
use C4::Debug; |
30 |
use Date::Calc qw/Today Add_Delta_YM/; |
30 |
use Date::Calc qw/Today Add_Delta_YM/; |
|
|
31 |
use C4::Biblio qw/GetMarcBiblio GetRecordValue GetFrameworkCode/; |
31 |
|
32 |
|
32 |
my $input = new CGI; |
33 |
my $input = new CGI; |
33 |
my $order = $input->param('order') || ''; |
34 |
my $order = $input->param('order') || ''; |
Lines 144-149
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
144 |
my $thisratio = $data->{reservecount} / $data->{itemcount}; |
145 |
my $thisratio = $data->{reservecount} / $data->{itemcount}; |
145 |
my $ratiocalc = ($thisratio / $ratio); |
146 |
my $ratiocalc = ($thisratio / $ratio); |
146 |
($thisratio / $ratio) >= 1 or next; # TODO: tighter targeting -- get ratio limit into SQL using HAVING clause |
147 |
($thisratio / $ratio) >= 1 or next; # TODO: tighter targeting -- get ratio limit into SQL using HAVING clause |
|
|
148 |
my $record = GetMarcBiblio($data->{biblionumber}); |
149 |
$data->{subtitle} = GetRecordValue('subtitle', $record, GetFrameworkCode($data->{biblionumber})); |
147 |
push( |
150 |
push( |
148 |
@reservedata, |
151 |
@reservedata, |
149 |
{ |
152 |
{ |
Lines 151-156
while ( my $data = $sth->fetchrow_hashref ) {
Link Here
|
151 |
priority => $data->{priority}, |
154 |
priority => $data->{priority}, |
152 |
name => $data->{borrower}, |
155 |
name => $data->{borrower}, |
153 |
title => $data->{title}, |
156 |
title => $data->{title}, |
|
|
157 |
subtitle => $data->{subtitle}, |
154 |
author => $data->{author}, |
158 |
author => $data->{author}, |
155 |
notes => $data->{notes}, |
159 |
notes => $data->{notes}, |
156 |
itemnum => $data->{itemnumber}, |
160 |
itemnum => $data->{itemnumber}, |