From 5d816bf4ba400d29453eb1d65fc1782da9184401 Mon Sep 17 00:00:00 2001
From: rangi <rangi>
Date: Sat, 3 Sep 2005 00:35:47 +0000
Subject: [PATCH] This is currently a copy of C4::Date

But C4::Date uses Date::Manip, which in the authors own words

"If you look in CPAN, you'll find that there are a number of Date and Time packages.  Is Date::Manip the one you should be using?  In my
opinion, the answer is no most of the time."

He goes on to say, that because Date::Manip is powerful and is written fully in perl its also slow.
Now Circulation needs to be as fast as possible. And C4::Date isnt actually doing anything particularly tricky,
So im working on C4::Circulation::Date to be a replacement, in an attempt to win some speed
---
 C4/Circulation/Date.pm | 146 +++++++++++++++++++++++++++++++++++++++++
 1 file changed, 146 insertions(+)
 create mode 100644 C4/Circulation/Date.pm

diff --git a/C4/Circulation/Date.pm b/C4/Circulation/Date.pm
new file mode 100644
index 0000000000..05298f490c
--- /dev/null
+++ b/C4/Circulation/Date.pm
@@ -0,0 +1,146 @@
+#!/usr/bin/perl -w
+
+package C4::Circulation::Date;
+
+# $Id:
+
+# Copyright 2005 Katipo Communications                                                                                                                            
+#                                                                                                                                                                      
+# This file is part of Koha.                                                                                                                                           
+#                                                                                                                                                                      
+# Koha is free software; you can redistribute it and/or modify it under the                                                                                            
+# terms of the GNU General Public License as published by the Free Software                                                                                            
+# Foundation; either version 2 of the License, or (at your option) any later                                                                                           
+# version.                                                                                                                                                             
+#                                                                                                                                                                      
+# Koha is distributed in the hope that it will be useful, but WITHOUT ANY                                                                                              
+# WARRANTY; without even the implied warranty of MERCHANTABILITY or FITNESS FOR                                                                                        
+# A PARTICULAR PURPOSE.  See the GNU General Public License for more details.                                                                                          
+#                                                                                                                                                                      
+# You should have received a copy of the GNU General Public License along with                                                                                         
+# Koha; if not, write to the Free Software Foundation, Inc., 59 Temple Place,                                                                                          
+# Suite 330, Boston, MA  02111-1307 USA 
+
+use strict;
+use C4::Context;
+use Date::Manip;
+
+require Exporter;
+
+use vars qw($VERSION @ISA @EXPORT @EXPORT_OK %EXPORT_TAGS);
+
+$VERSION = do { my @v = '$Revision$' =~ /\d+/g;                                                                                                                 
+                    shift(@v) . "." . join("_", map {sprintf "%03d", $_ } @v); };;
+
+@ISA = qw(Exporter);
+
+@EXPORT = qw(
+             &display_date_format
+             &format_date
+             &format_date_in_iso
+);
+
+
+sub get_date_format
+{
+	#Get the database handle
+	my $dbh = C4::Context->dbh;
+	return C4::Context->preference('dateformat');
+}
+
+sub display_date_format
+{
+	my $dateformat = get_date_format();
+
+	if ( $dateformat eq "us" )
+	{
+		return "mm/dd/yyyy";
+	}
+	elsif ( $dateformat eq "metric" )
+	{
+		return "dd/mm/yyyy";
+	}
+	elsif ( $dateformat eq "iso" )
+	{
+		return "yyyy-mm-dd";
+	}
+	else
+	{
+		return "Invalid date format: $dateformat. Please change in system preferences";
+	}
+}
+
+
+sub format_date
+{
+	my $olddate = shift;
+	my $newdate;
+
+	if ( ! $olddate )
+	{
+		return "";
+	}
+
+	my $dateformat = get_date_format();
+
+	if ( $dateformat eq "us" )
+	{
+		Date_Init("DateFormat=US");
+		$olddate = ParseDate($olddate);
+		$newdate = UnixDate($olddate,'%m/%d/%Y');
+	}
+	elsif ( $dateformat eq "metric" )
+	{
+		Date_Init("DateFormat=metric");
+		$olddate = ParseDate($olddate);
+		$newdate = UnixDate($olddate,'%d/%m/%Y');
+	}
+	elsif ( $dateformat eq "iso" )
+	{
+		Date_Init("DateFormat=iso");
+		$olddate = ParseDate($olddate);
+		$newdate = UnixDate($olddate,'%Y-%m-%d');
+	}
+	else
+	{
+		return "Invalid date format: $dateformat. Please change in system preferences";
+	}
+}
+
+sub format_date_in_iso
+{
+        my $olddate = shift;
+        my $newdate;
+
+        if ( ! $olddate )
+        {
+                return "";
+        }
+                
+        my $dateformat = get_date_format();
+
+        if ( $dateformat eq "us" )
+        {
+                Date_Init("DateFormat=US");
+                $olddate = ParseDate($olddate);
+        }
+        elsif ( $dateformat eq "metric" )
+        {
+                Date_Init("DateFormat=metric");
+                $olddate = ParseDate($olddate);
+        }
+        elsif ( $dateformat eq "iso" )
+        {
+                Date_Init("DateFormat=iso");
+                $olddate = ParseDate($olddate);
+        }
+        else
+        {
+                return "9999-99-99";
+        }
+
+	$newdate = UnixDate($olddate, '%Y-%m-%d');
+
+	return $newdate;
+}
+1;
-- 
2.39.5