View | Details | Raw Unified | Return to bug 39012
Collapse All | Expand All

(-)a/admin/import_export_framework.pl (-3 / +3 lines)
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
- 

Return to bug 39012