|
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}, |