Bug Fixing : Sub Output was mistakenly removed.

diff --git a/C4/Dates.pm b/C4/Dates.pm
index 578e08e..8af350c 100644 (file)
--- 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;