From f230264b24b8e40ec2f48ac6eac70ac19d720d50 Mon Sep 17 00:00:00 2001
From: Ryan Higgins <rch@balrog.liblime.com>
Date: Mon, 12 May 2008 05:29:32 -0500
Subject: [PATCH] C4::Calendar::addDate now handles negative offsets properly.

Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---
 C4/Calendar.pm | 17 +++++++++--------
 1 file changed, 9 insertions(+), 8 deletions(-)

diff --git a/C4/Calendar.pm b/C4/Calendar.pm
index f5ae57a23f..b2d2f78593 100644
--- a/C4/Calendar.pm
+++ b/C4/Calendar.pm
@@ -471,20 +471,22 @@ C<$offset> Is the number of days that this function has to count from $date.
 sub addDate {
     my ($self, $startdate, $offset) = @_;
     my ($year,$month,$day) = split("-",$startdate->output('iso'));
+	my $daystep = 1;
 	if ($offset < 0) { # In case $offset is negative
-        $offset = $offset*(-1);
+       # $offset = $offset*(-1);
+		$daystep = -1;
     }
 	my $daysMode = C4::Context->preference('useDaysMode');
     if ($daysMode eq 'Datedue') {
         ($year, $month, $day) = &Date::Calc::Add_Delta_Days($year, $month, $day, $offset );
-        while ($self->isHoliday($day, $month, $year)) {
-                ($year, $month, $day) = &Date::Calc::Add_Delta_Days($year, $month, $day, 1);
+	 	while ($self->isHoliday($day, $month, $year)) {
+                ($year, $month, $day) = &Date::Calc::Add_Delta_Days($year, $month, $day, $daystep);
         }
     } elsif($daysMode eq 'Calendar') {
-        while ($offset > 0) {
-                ($year, $month, $day) = &Date::Calc::Add_Delta_Days($year, $month, $day, 1);
+        while ($offset !=  0) {
+                ($year, $month, $day) = &Date::Calc::Add_Delta_Days($year, $month, $day, $daystep);
             if (!($self->isHoliday($day, $month, $year))) {
-                $offset = $offset - 1;
+                $offset = $offset - $daystep;
 			}
         }
 	} else { ## ($daysMode eq 'Days') 
@@ -504,11 +506,10 @@ useDaysMode syspref has no effect here.
 =cut
 
 sub daysBetween {
-   # my ($self, $dayFrom, $monthFrom, $yearFrom, $dayTo, $monthTo, $yearTo) = @_;
     my ( $self, $startdate, $enddate ) = @_ ; 
 	my ($yearFrom,$monthFrom,$dayFrom) = split("-",$startdate->output('iso'));
 	my ($yearTo,$monthTo,$dayTo) = split("-",$enddate->output('iso'));
-	if (($yearFrom >= $yearTo) && ($monthFrom >= $monthTo) && ($dayFrom >= $dayTo)) {
+	if (Date_to_Days($yearFrom,$monthFrom,$dayFrom) > Date_to_Days($yearTo,$monthTo,$dayTo)) {
 		return 0;
 		# we don't go backwards  ( FIXME - handle this error better )
 	}
-- 
2.39.5