|
Lines 25-31
use strict;
Link Here
|
| 25 |
use warnings; |
25 |
use warnings; |
| 26 |
|
26 |
|
| 27 |
use C4::Context; |
27 |
use C4::Context; |
| 28 |
use C4::Dates qw(format_date); |
28 |
use Koha::DateUtils; |
| 29 |
|
29 |
|
| 30 |
use vars qw($VERSION @ISA @EXPORT); |
30 |
use vars qw($VERSION @ISA @EXPORT); |
| 31 |
|
31 |
|
|
Lines 202-209
sub GetLogs {
Link Here
|
| 202 |
my $object = shift; |
202 |
my $object = shift; |
| 203 |
my $info = shift; |
203 |
my $info = shift; |
| 204 |
|
204 |
|
| 205 |
my $iso_datefrom = C4::Dates->new($datefrom,C4::Context->preference("dateformat"))->output('iso'); |
205 |
my $iso_datefrom = output_pref({ dt => dt_from_string( $datefrom ), dateformat => 'iso', dateonly => 1 }); |
| 206 |
my $iso_dateto = C4::Dates->new($dateto,C4::Context->preference("dateformat"))->output('iso'); |
206 |
my $iso_dateto = output_pref({ dt => dt_from_string( $dateto ), dateformat => 'iso', dateonly => 1 }); |
| 207 |
|
207 |
|
| 208 |
my $dbh = C4::Context->dbh; |
208 |
my $dbh = C4::Context->dbh; |
| 209 |
my $query = " |
209 |
my $query = " |
| 210 |
- |
|
|