adding license tab to about page

[koha_gimpoz] / tools / import_borrowers.pl

diff --git a/tools/import_borrowers.pl b/tools/import_borrowers.pl
index 14993d6..db448ab 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::Date;
+use C4::Dates qw(format_date_in_iso);
 use C4::Context;
 use C4::Members;
 
@@ -66,7 +66,7 @@ my ( $template, $loggedinuser, $cookie ) = get_template_and_user(
         query           => $input,
         type            => "intranet",
         authnotrequired => 0,
-        flagsrequired   => { tools => 1 },
+        flagsrequired   => { tools => 'import_patrons' },
         debug           => 1,
     }
 );
@@ -83,38 +83,35 @@ if ( $uploadborrowers && length($uploadborrowers) > 0 ) {
     my $overwritten = 0;
     my $invalid     = 0;
     while ( my $borrowerline = <$uploadborrowers> ) {
-
         my $status  = $csv->parse($borrowerline);
         my @columns = $csv->fields();
         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' ) )
             {
-
                 # borrower exists
                 if ($overwrite_cardnumber) {
                     $borrower{'borrowernumber'} = $member->{'borrowernumber'};
                     ModMember(%borrower);
                     $overwritten++;
-                }
-                else {
+                } else {
                     $alreadyindb++;
                 }
             }
             else {
-                my $borrowernumber = AddMember(%borrower);
-                if ($borrowernumber) {
+                if (AddMember(%borrower)) {
                     $imported++;
-                }
-                else {
-                    $invalid;
+                } else {
+                    $invalid++;                # was just "$invalid", I assume incrementing was the point --atz
                 }
             }
-        }
-        else {
+        } else {
             $invalid++;
         }
     }