use base 'Exporter';
use version; our $VERSION = qv('1.0.0');
-our @EXPORT = (qw( dt_from_string ));
+our @EXPORT = (qw( dt_from_string output_pref));
=head1 DateUtils
} else {
if ( $date_format eq 'iso' ) {
$date_string =~ s/-00/-01/;
+ if ( $date_string =~ m/^0000-00/ ) {
+ return; # invalid date in db
+ }
} elsif ( $date_format eq 'us' ) {
$date_string =~ s[-00-][-01-];
} elsif ( $date_format eq 'sql' ) {
return DateTime->now( time_zone => $tz );
}
+
+sub output_pref {
+ my $dt = shift;
+ my $pref = C4::Context->preference('dateformat');
+ given ($pref) {
+ when (/^iso/) {
+ return $dt->strftime('%Y-%m-%d $H:%M');
+ }
+ when (/^metric/) {
+ return $dt->strftime('%d/%m/%Y $H:%M');
+ }
+ when (/^us/) {
+ return $dt->strftime('%m/%d/%Y $H:%M');
+ }
+ default {
+ return $dt->strftime('%Y-%m-%d $H:%M');
+ }
+
+ }
+ return;
+}
+
1;