|
Lines 84-94
if ( $op eq 'export' ) {
Link Here
|
| 84 |
my $uploadFd = $input->upload($fieldname); |
84 |
my $uploadFd = $input->upload($fieldname); |
| 85 |
if ( $uploadFd && !$input->cgi_error ) { |
85 |
if ( $uploadFd && !$input->cgi_error ) { |
| 86 |
my $tmpfilename = $input->tmpFileName( scalar $input->param($fieldname) ); |
86 |
my $tmpfilename = $input->tmpFileName( scalar $input->param($fieldname) ); |
| 87 |
$filename = $tmpfilename . '.' . $extension; # rename the tmp file with the extension |
87 |
$filename = $tmpfilename . '.' . $extension; # rename the tmp file with the extension |
|
|
88 |
$frameworkcode = '' if $frameworkcode eq 'default'; |
| 88 |
$ok = ImportFramework( $filename, $frameworkcode, 1, 'biblio' ) if ( rename( $tmpfilename, $filename ) ); |
89 |
$ok = ImportFramework( $filename, $frameworkcode, 1, 'biblio' ) if ( rename( $tmpfilename, $filename ) ); |
| 89 |
} |
90 |
} |
| 90 |
} |
91 |
} |
| 91 |
if ( $ok >= 0 ) { # If everything went ok go to the framework marc structure |
92 |
if ( $ok >= 0 ) { # If everything went ok go to the framework marc structure |
| 92 |
print $input->redirect( |
93 |
print $input->redirect( |
| 93 |
-location => '/cgi-bin/koha/admin/marctagstructure.pl?frameworkcode=' . $frameworkcode ); |
94 |
-location => '/cgi-bin/koha/admin/marctagstructure.pl?frameworkcode=' . $frameworkcode ); |
| 94 |
} else { |
95 |
} else { |
| 95 |
- |
|
|