|
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}, |