[Koha-cvs] koha/members moremember.pl [dev_week]

[Kyle Hall]

CVSROOT:        /sources/koha
Module name:    koha
Branch:         dev_week
Changes by:     Kyle Hall <kylemhall>   07/01/09 14:55:42

Modified files:
        members        : moremember.pl 

Log message:
        

CVSWeb URLs:
http://cvs.savannah.gnu.org/viewcvs/koha/members/moremember.pl?cvsroot=koha&only_with_tag=dev_week&r1=1.5.2.14.2.2&r2=1.5.2.14.2.3

Patches:
Index: moremember.pl
===================================================================
RCS file: /sources/koha/koha/members/moremember.pl,v
retrieving revision 1.5.2.14.2.2
retrieving revision 1.5.2.14.2.3
diff -u -b -r1.5.2.14.2.2 -r1.5.2.14.2.3
--- moremember.pl       5 Jan 2007 15:27:12 -0000       1.5.2.14.2.2
+++ moremember.pl       9 Jan 2007 14:55:41 -0000       1.5.2.14.2.3
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id: moremember.pl,v 1.5.2.14.2.2 2007/01/05 15:27:12 kylemhall Exp $
+# $Id: moremember.pl,v 1.5.2.14.2.3 2007/01/09 14:55:41 kylemhall Exp $
 
 # script to do a borrower enquiry/bring up borrower details etc
 # Displays all the details about a borrower
@@ -51,6 +51,7 @@
 my $print = $input->param('print');
 my $template_name;
 
+
 if($print eq "page"){
        $template_name = "members/moremember-print.tmpl";
 } elsif($print eq "slip"){
@@ -89,13 +90,13 @@
 $month++;
 if ($month < 10) {$month = '0' . $month;}
 if ($dayOfMonth < 10) {$dayOfMonth = '0' . $dayOfMonth;}
-my $currentDate = $dayOfMonth . $month . $year;
+my $currentDate = $year . $month . $dayOfMonth;
 
 my $expiry = format_date($data->{'expiry'});
 my @expArray = split('/', $expiry);
-my $expiryDate = $expArray[1] . $expArray[0] . $expArray[2];
+my $expiryDate = $expArray[2] . $expArray[0] . $expArray[1];
 
-if ( $expiryDate > $currentDate ) {
+if ( $expiryDate < $currentDate ) {
   $data->{'expired'} = 1;
 }
 #End of check for card expiration