Lines 102-115
if ($matchpoint) {
Link Here
|
102 |
my $createpatronlist = $input->param('createpatronlist') || 0; |
102 |
my $createpatronlist = $input->param('createpatronlist') || 0; |
103 |
my $dt = dt_from_string(); |
103 |
my $dt = dt_from_string(); |
104 |
my $timestamp = $dt->ymd('-') . ' ' . $dt->hms(':'); |
104 |
my $timestamp = $dt->ymd('-') . ' ' . $dt->hms(':'); |
105 |
my $patronlistname = $uploadborrowers . ' (' . $timestamp . ')'; |
|
|
106 |
|
105 |
|
107 |
if ( $op eq 'cud-import' && $uploadborrowers && length($uploadborrowers) > 0 ) { |
106 |
if ( $op eq 'cud-import' && $uploadborrowers && length($uploadborrowers) > 0 ) { |
108 |
|
107 |
|
|
|
108 |
my $patronlistname = $uploadborrowers . ' (' . $timestamp . ')'; |
109 |
my $handle = $input->upload('uploadborrowers'); |
109 |
my $handle = $input->upload('uploadborrowers'); |
110 |
my %defaults = $input->Vars; |
110 |
my %defaults = $input->Vars; |
111 |
my $overwrite_passwords = defined $input->param('overwrite_passwords') ? 1 : 0; |
111 |
my $overwrite_passwords = defined $input->param('overwrite_passwords') ? 1 : 0; |
112 |
my $update_dateexpiry = $input->param('update_dateexpiry'); |
112 |
my $update_dateexpiry = $input->param('update_dateexpiry') // ""; |
113 |
my $return = $Import->import_patrons( |
113 |
my $return = $Import->import_patrons( |
114 |
{ |
114 |
{ |
115 |
file => $handle, |
115 |
file => $handle, |
116 |
- |
|
|