Lines 29-34
use C4::Context;
Link Here
|
29 |
use C4::Output; |
29 |
use C4::Output; |
30 |
use CGI; |
30 |
use CGI; |
31 |
use C4::Auth; |
31 |
use C4::Auth; |
|
|
32 |
use C4::Biblio; |
32 |
use C4::Dates qw/format_date format_date_in_iso/; |
33 |
use C4::Dates qw/format_date format_date_in_iso/; |
33 |
use C4::Debug; |
34 |
use C4::Debug; |
34 |
use Date::Calc qw/Today Add_Delta_YMD/; |
35 |
use Date::Calc qw/Today Add_Delta_YMD/; |
Lines 158-163
if ( $run_report ) {
Link Here
|
158 |
$sth->execute(@query_params); |
159 |
$sth->execute(@query_params); |
159 |
|
160 |
|
160 |
while ( my $data = $sth->fetchrow_hashref ) { |
161 |
while ( my $data = $sth->fetchrow_hashref ) { |
|
|
162 |
my $record = GetMarcBiblio($data->{biblionumber}); |
163 |
if ($record){ |
164 |
$data->{subtitle} = GetRecordValue('subtitle',$record,'')->[0]->{subfield}; |
165 |
} |
161 |
push( |
166 |
push( |
162 |
@reservedata, |
167 |
@reservedata, |
163 |
{ |
168 |
{ |
Lines 165-170
if ( $run_report ) {
Link Here
|
165 |
priority => $data->{priority}, |
170 |
priority => $data->{priority}, |
166 |
name => $data->{l_patron}, |
171 |
name => $data->{l_patron}, |
167 |
title => $data->{title}, |
172 |
title => $data->{title}, |
|
|
173 |
subtitle => $data->{subtitle}, |
168 |
author => $data->{author}, |
174 |
author => $data->{author}, |
169 |
borrowernumber => $data->{borrowernumber}, |
175 |
borrowernumber => $data->{borrowernumber}, |
170 |
itemnum => $data->{itemnumber}, |
176 |
itemnum => $data->{itemnumber}, |