Lines 21-33
use warnings;
Link Here
|
21 |
use 5.010; |
21 |
use 5.010; |
22 |
use DateTime; |
22 |
use DateTime; |
23 |
use DateTime::Format::DateParse; |
23 |
use DateTime::Format::DateParse; |
|
|
24 |
use DateTime::Format::MySQL; |
24 |
use C4::Context; |
25 |
use C4::Context; |
25 |
|
26 |
|
26 |
use base 'Exporter'; |
27 |
use base 'Exporter'; |
27 |
use version; our $VERSION = qv('1.0.0'); |
28 |
use version; our $VERSION = qv('1.0.0'); |
28 |
|
29 |
|
29 |
our @EXPORT = ( |
30 |
our @EXPORT = ( |
30 |
qw( dt_from_string output_pref format_sqldatetime ) |
31 |
qw( dt_from_string output_pref format_sqldatetime get_timestamp ) |
31 |
); |
32 |
); |
32 |
|
33 |
|
33 |
=head1 DateUtils |
34 |
=head1 DateUtils |
Lines 190-193
sub format_sqldatetime {
Link Here
|
190 |
return q{}; |
191 |
return q{}; |
191 |
} |
192 |
} |
192 |
|
193 |
|
|
|
194 |
sub get_timestamp { |
195 |
return DateTime::Format::MySQL->format_datetime( dt_from_string() ); |
196 |
} |
197 |
|
193 |
1; |
198 |
1; |