|
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; |
| 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 = Koha::Biblios->find($data->{biblionumber}); |
| 157 |
if ($record){ |
| 158 |
$data->{subtitle} = [ $record->subtitles ]; |
| 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}, |