Lines 31-36
use C4::Context;
Link Here
|
31 |
use C4::Output; |
31 |
use C4::Output; |
32 |
use CGI qw ( -utf8 ); |
32 |
use CGI qw ( -utf8 ); |
33 |
use C4::Auth; |
33 |
use C4::Auth; |
|
|
34 |
use C4::Biblio; |
34 |
use C4::Debug; |
35 |
use C4::Debug; |
35 |
use Koha::DateUtils; |
36 |
use Koha::DateUtils; |
36 |
use DateTime::Duration; |
37 |
use DateTime::Duration; |
Lines 152-157
if ( $run_report ) {
Link Here
|
152 |
$sth->execute(@query_params); |
153 |
$sth->execute(@query_params); |
153 |
|
154 |
|
154 |
while ( my $data = $sth->fetchrow_hashref ) { |
155 |
while ( my $data = $sth->fetchrow_hashref ) { |
|
|
156 |
my $record = GetMarcBiblio($data->{biblionumber}); |
157 |
if ($record){ |
158 |
$data->{subtitle} = [ map { $_->{subfield} } @{ GetRecordValue( 'subtitle', $record, '' ) } ]; |
159 |
} |
155 |
push( |
160 |
push( |
156 |
@reservedata, |
161 |
@reservedata, |
157 |
{ |
162 |
{ |
Lines 159-164
if ( $run_report ) {
Link Here
|
159 |
priority => $data->{priority}, |
164 |
priority => $data->{priority}, |
160 |
name => $data->{l_patron}, |
165 |
name => $data->{l_patron}, |
161 |
title => $data->{title}, |
166 |
title => $data->{title}, |
|
|
167 |
subtitle => $data->{subtitle}, |
162 |
author => $data->{author}, |
168 |
author => $data->{author}, |
163 |
borrowernumber => $data->{borrowernumber}, |
169 |
borrowernumber => $data->{borrowernumber}, |
164 |
itemnum => $data->{itemnumber}, |
170 |
itemnum => $data->{itemnumber}, |