[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 <address@hidden>   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 address@hidden
@@ -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);