From cf355ab195e19c7d9ac37f6fc563141b5190a231 Mon Sep 17 00:00:00 2001
From: Henri-Damien LAURENT <henridamien@koha-fr.org>
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