From cf355ab195e19c7d9ac37f6fc563141b5190a231 Mon Sep 17 00:00:00 2001 From: Henri-Damien LAURENT Date: Tue, 27 Jan 2009 16:32:53 +0100 Subject: [PATCH] Bug Fixing : Sub Output was mistakenly removed. --- C4/Dates.pm | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/C4/Dates.pm b/C4/Dates.pm index 578e08e992..8af350cdc2 100644 --- a/C4/Dates.pm +++ b/C4/Dates.pm @@ -144,6 +144,11 @@ sub init ($;$$) { return $self; } +sub output ($;$) { + my $self = shift; + my $newformat = (@_) ? _recognize_format(shift) : _prefformat(); + return (eval {POSIX::strftime($posix_map{$newformat}, @{$self->{'dmy_arrayref'}})} || undef); +} sub today ($;$) { # NOTE: sets date value to today (and returns it in the requested or current format) my $class = shift; $class = ref($class) || $class; -- 2.39.5