Lines 76-81
if ($action eq 'export' && $input->request_method() eq 'GET') {
Link Here
|
76 |
} elsif ($input->request_method() eq 'POST') { |
76 |
} elsif ($input->request_method() eq 'POST') { |
77 |
my $ok = -1; |
77 |
my $ok = -1; |
78 |
my $fieldname = 'file_import_' . $authtypecode; |
78 |
my $fieldname = 'file_import_' . $authtypecode; |
|
|
79 |
if ($authtypecode eq 'default'){ |
80 |
$fieldname = 'file_import_'; |
81 |
} |
79 |
my $filename = $input->param($fieldname); |
82 |
my $filename = $input->param($fieldname); |
80 |
# upload the input file |
83 |
# upload the input file |
81 |
if ($filename && $filename =~ /\.(csv|ods|xml)$/i) { |
84 |
if ($filename && $filename =~ /\.(csv|ods|xml)$/i) { |
Lines 84-94
if ($action eq 'export' && $input->request_method() eq 'GET') {
Link Here
|
84 |
if ($uploadFd && !$input->cgi_error) { |
87 |
if ($uploadFd && !$input->cgi_error) { |
85 |
my $tmpfilename = $input->tmpFileName(scalar $input->param($fieldname)); |
88 |
my $tmpfilename = $input->tmpFileName(scalar $input->param($fieldname)); |
86 |
$filename = $tmpfilename . '.' . $extension; # rename the tmp file with the extension |
89 |
$filename = $tmpfilename . '.' . $extension; # rename the tmp file with the extension |
87 |
$ok = ImportFramework($filename, $authtypecode, 1, 'authority') if (rename($tmpfilename, $filename)); |
90 |
if ($authtypecode eq 'default') { |
|
|
91 |
$ok = ImportFramework($filename, '', 1, 'authority') if (rename($tmpfilename, $filename)); |
92 |
} else { |
93 |
$ok = ImportFramework($filename, $authtypecode, 1, 'authority') if (rename($tmpfilename, $filename)); |
94 |
} |
88 |
} |
95 |
} |
89 |
} |
96 |
} |
90 |
if ($ok >= 0) { # If everything went ok go to the authority type marc structure |
97 |
if ($ok >= 0) { # If everything went ok go to the authority type marc structure |
91 |
print $input->redirect( -location => '/cgi-bin/koha/admin/auth_tag_structure.pl?authtypecode=' . $authtypecode); |
98 |
if ($authtypecode eq 'default'){ |
|
|
99 |
print $input->redirect( -location => '/cgi-bin/koha/admin/auth_tag_structure.pl?authtypecode='); |
100 |
} else { |
101 |
print $input->redirect( -location => '/cgi-bin/koha/admin/auth_tag_structure.pl?authtypecode=' . $authtypecode); |
102 |
} |
92 |
} else { |
103 |
} else { |
93 |
# If something failed go to the list of authority types and show message |
104 |
# If something failed go to the list of authority types and show message |
94 |
print $input->redirect( -location => '/cgi-bin/koha/admin/authtypes.pl?error_import_export=' . $authtypecode); |
105 |
print $input->redirect( -location => '/cgi-bin/koha/admin/authtypes.pl?error_import_export=' . $authtypecode); |
95 |
- |
|
|