[Koha-cvs] koha/members memberentry.pl [rel_2_2]

[paul poulain]

CVSROOT:	/cvsroot/koha
Module name:	koha
Branch: 	rel_2_2
Changes by:	paul poulain <tipaul at savannah.gnu.org>	06/01/09 10:33:21

Modified files:
	members        : memberentry.pl 

Log message:
	adding date control (expiry after enrollment date)

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/koha/members/memberentry.pl.diff?only_with_tag=rel_2_2&tr1=1.5.2.9&tr2=1.5.2.10&r1=text&r2=text

Patches:
Index: koha/members/memberentry.pl
diff -u koha/members/memberentry.pl:1.5.2.9 koha/members/memberentry.pl:1.5.2.10
--- koha/members/memberentry.pl:1.5.2.9	Mon Oct 10 09:04:06 2005
+++ koha/members/memberentry.pl	Mon Jan  9 10:33:21 2006
@@ -2,7 +2,7 @@
 # NOTE: This file uses standard 8-space tabs
 #       DO NOT SET TAB SIZE TO 4
 
-# $Id: memberentry.pl,v 1.5.2.9 2005/10/10 09:04:06 tipaul Exp $
+# $Id: memberentry.pl,v 1.5.2.10 2006/01/09 10:33:21 tipaul Exp $
 
 #script to set up screen for modification of borrower details
 #written 20/12/99 by chris at katipo.co.nz
@@ -117,6 +117,11 @@
 			}
 		}
 	}
+	warn "==> ".format_date_in_iso($data{'joining'})." > ".format_date_in_iso($data{'expiry'});
+	if ($data{'expiry'} && format_date_in_iso($data{'joining'}) > format_date_in_iso($data{'expiry'})) {
+		push @errors, "ERROR_date";
+		warn "ERROR DATE";
+	}
 	if ($nok) {
 		foreach my $error (@errors) {
 			$template->param( $error => 1);