From: Joe Atzberger <joe.atzberger@liblime.com>
Date: Fri, 21 Dec 2007 01:38:47 +0000 (-0600)
Subject: import_borrowers.pl - convert dates BEFORE AddMember or ModMember
X-Git-Tag: v3.00.00-alpha~333
X-Git-Url: http://koha-dev.rot13.org:8081/gitweb/?a=commitdiff_plain;h=9f1d798bfe33c4b8e72e61d589ca5ee4b275d34c;hp=d586a335782d34f92c9ecbcd6be1ab9a9763b254;p=koha-ffzg.git

import_borrowers.pl - convert dates BEFORE AddMember or ModMember

Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
---

diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl
index ae03c5202c..30200d4fae 100755
--- a/tools/import_borrowers.pl
+++ b/tools/import_borrowers.pl
@@ -36,7 +36,7 @@
 use strict;
 use C4::Auth;
 use C4::Output;
-use C4::Dates;
+use C4::Dates qw(format_date_in_iso);
 use C4::Context;
 use C4::Members;
 
@@ -88,6 +88,10 @@ if ( $uploadborrowers && length($uploadborrowers) > 0 ) {
         my %borrower;
         if ( @columns == @columnkeys ) {
             @borrower{@columnkeys} = @columns;
+			foreach (qw(dateofbirth dateenrolled dateexpiry)) {
+				my $tempdate = $borrower{$_} or next;
+				$borrower{$_} = format_date_in_iso($tempdate) || '';
+			}
             if ( my $member =
                 GetMember( $borrower{'cardnumber'}, 'cardnumber' ) )
             {