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 |
- |
|
|