|
Lines 27-33
use CGI qw(-oldstyle_urls -utf8);
Link Here
|
| 27 |
use C4::Auth; |
27 |
use C4::Auth; |
| 28 |
use C4::Branch; |
28 |
use C4::Branch; |
| 29 |
use C4::Debug; |
29 |
use C4::Debug; |
| 30 |
use C4::Dates qw/format_date format_date_in_iso/; |
|
|
| 31 |
use Text::CSV_XS; |
30 |
use Text::CSV_XS; |
| 32 |
use Koha::DateUtils; |
31 |
use Koha::DateUtils; |
| 33 |
use DateTime; |
32 |
use DateTime; |
|
Lines 43-50
my $branchfilter = $input->param('branch') || '';
Link Here
|
| 43 |
my $homebranchfilter = $input->param('homebranch') || ''; |
42 |
my $homebranchfilter = $input->param('homebranch') || ''; |
| 44 |
my $holdingbranchfilter = $input->param('holdingbranch') || ''; |
43 |
my $holdingbranchfilter = $input->param('holdingbranch') || ''; |
| 45 |
my $op = $input->param('op') || ''; |
44 |
my $op = $input->param('op') || ''; |
| 46 |
my $dateduefrom = format_date_in_iso($input->param( 'dateduefrom' )) || ''; |
45 |
my $dateduefrom = ''; |
| 47 |
my $datedueto = format_date_in_iso($input->param( 'datedueto' )) || ''; |
46 |
$dateduefrom = output_pref({ dt => dt_from_string( $input->param( 'dateduefrom' ) ), dateformat => 'iso', dateonly => 1 }) if ( $input->param( 'dateduefrom' ) ); |
|
|
47 |
my $datedueto = ''; |
| 48 |
$datedueto = output_pref({ dt => dt_from_string( $input->param( 'datedueto' ) ), dateformat => 'iso', dateonly => 1 }) if ( $input->param( 'datedueto' ) ); |
| 48 |
# FIXME This is a kludge to include times |
49 |
# FIXME This is a kludge to include times |
| 49 |
if ($datedueto) { |
50 |
if ($datedueto) { |
| 50 |
$datedueto .= ' 23:59'; |
51 |
$datedueto .= ' 23:59'; |
|
Lines 348-354
if ($noreport) {
Link Here
|
| 348 |
barcode => $data->{barcode}, |
349 |
barcode => $data->{barcode}, |
| 349 |
cardnumber => $data->{cardnumber}, |
350 |
cardnumber => $data->{cardnumber}, |
| 350 |
itemnum => $data->{itemnumber}, |
351 |
itemnum => $data->{itemnumber}, |
| 351 |
issuedate => format_date($data->{issuedate}), |
352 |
issuedate => output_pref({ dt => dt_from_string( $data->{issuedate} ), dateonly => 1 }), |
| 352 |
borrowertitle => $data->{borrowertitle}, |
353 |
borrowertitle => $data->{borrowertitle}, |
| 353 |
surname => $data->{surname}, |
354 |
surname => $data->{surname}, |
| 354 |
firstname => $data->{firstname}, |
355 |
firstname => $data->{firstname}, |
| 355 |
- |
|
|