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 Koha::Biblios; |
35 |
use Koha::Biblio; |
34 |
use C4::Debug; |
36 |
use C4::Debug; |
35 |
use Koha::DateUtils; |
37 |
use Koha::DateUtils; |
36 |
use DateTime::Duration; |
38 |
use DateTime::Duration; |
Lines 152-157
if ( $run_report ) {
Link Here
|
152 |
$sth->execute(@query_params); |
154 |
$sth->execute(@query_params); |
153 |
|
155 |
|
154 |
while ( my $data = $sth->fetchrow_hashref ) { |
156 |
while ( my $data = $sth->fetchrow_hashref ) { |
|
|
157 |
my $record = Koha::Biblios->find($data->{biblionumber}); |
158 |
if ($record){ |
159 |
$data->{subtitle} = [ $record->subtitles ]; |
160 |
} |
155 |
push( |
161 |
push( |
156 |
@reservedata, |
162 |
@reservedata, |
157 |
{ |
163 |
{ |
Lines 159-164
if ( $run_report ) {
Link Here
|
159 |
priority => $data->{priority}, |
165 |
priority => $data->{priority}, |
160 |
name => $data->{l_patron}, |
166 |
name => $data->{l_patron}, |
161 |
title => $data->{title}, |
167 |
title => $data->{title}, |
|
|
168 |
subtitle => $data->{subtitle}, |
162 |
author => $data->{author}, |
169 |
author => $data->{author}, |
163 |
borrowernumber => $data->{borrowernumber}, |
170 |
borrowernumber => $data->{borrowernumber}, |
164 |
itemnum => $data->{itemnumber}, |
171 |
itemnum => $data->{itemnumber}, |