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