From: Henri-Damien LAURENT <henridamien@koha-fr.org>
Date: Tue, 27 Jan 2009 15:32:53 +0000 (+0100)
Subject: Bug Fixing : Sub Output was mistakenly removed.
X-Git-Tag: v3.00.01.005~20
X-Git-Url: http://git.rot13.org/?a=commitdiff_plain;h=cf355ab195e19c7d9ac37f6fc563141b5190a231;p=koha.git

Bug Fixing : Sub Output was mistakenly removed.
---

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;