|
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; |