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 output_pref_due format_sqlduedatetime) |
31 |
qw( dt_from_string output_pref format_sqldatetime output_pref_due format_sqlduedatetime get_timestamp ) |
31 |
); |
32 |
); |
32 |
|
33 |
|
33 |
=head1 DateUtils |
34 |
=head1 DateUtils |
Lines 236-239
sub format_sqlduedatetime {
Link Here
|
236 |
return q{}; |
237 |
return q{}; |
237 |
} |
238 |
} |
238 |
|
239 |
|
|
|
240 |
sub get_timestamp { |
241 |
return DateTime::Format::MySQL->format_datetime( dt_from_string() ); |
242 |
} |
243 |
|
239 |
1; |
244 |
1; |