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 184-189
if ( $run_report ) {
Link Here
|
184 |
my $previous; |
185 |
my $previous; |
185 |
my $this; |
186 |
my $this; |
186 |
while ( my $data = $sth->fetchrow_hashref ) { |
187 |
while ( my $data = $sth->fetchrow_hashref ) { |
|
|
188 |
my $record = GetMarcBiblio($data->{biblionumber}); |
189 |
if ($record){ |
190 |
$data->{subtitle} = GetRecordValue('subtitle',$record,'')->[0]->{subfield}; |
191 |
} |
187 |
$this=$data->{biblionumber}.":".$data->{borrowernumber}; |
192 |
$this=$data->{biblionumber}.":".$data->{borrowernumber}; |
188 |
my @itemlist; |
193 |
my @itemlist; |
189 |
push( |
194 |
push( |
Lines 193-198
if ( $run_report ) {
Link Here
|
193 |
priority => $data->{priority}, |
198 |
priority => $data->{priority}, |
194 |
name => $data->{l_patron}, |
199 |
name => $data->{l_patron}, |
195 |
title => $data->{title}, |
200 |
title => $data->{title}, |
|
|
201 |
subtitle => $data->{subtitle}, |
196 |
author => $data->{author}, |
202 |
author => $data->{author}, |
197 |
borrowernumber => $data->{borrowernumber}, |
203 |
borrowernumber => $data->{borrowernumber}, |
198 |
itemnum => $data->{itemnumber}, |
204 |
itemnum => $data->{itemnumber}, |