Partial fix for Bug 1578: detect material type and don't load COinS unless the materi...

[koha_fer] / tools / import_borrowers.pl

diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl
index ae03c52..30200d4 100755 (executable)
--- 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' ) )
             {