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

(-)a/cataloguing/addbiblio.pl (-5 / +1 lines)
Lines 1037-1046 elsif ( $op eq "delete" ) { Link Here
1037
        $biblionumber = "";
1037
        $biblionumber = "";
1038
    }
1038
    }
1039
1039
1040
    if ( $record eq -1 ) {
1040
    if ( $record ne -1 ) {
1041
        $record = TransformHtmlToMarc( $input );
1042
    }
1043
    else {
1044
#FIXME: it's kind of silly to go from MARC::Record to MARC::File::XML and then back again just to fix the encoding
1041
#FIXME: it's kind of silly to go from MARC::Record to MARC::File::XML and then back again just to fix the encoding
1045
        eval {
1042
        eval {
1046
            my $uxml = $record->as_xml;
1043
            my $uxml = $record->as_xml;
1047
- 

Return to bug 6974