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

(-)a/C4/Linker/Z3950Server.pm (-4 / +3 lines)
Lines 297-309 sub getZ3950Authority { Link Here
297
            return ( $authId, $record, 'Z3950_UPDATED' );
297
            return ( $authId, $record, 'Z3950_UPDATED' );
298
        } else {
298
        } else {
299
            my $sth = $dbh->prepare(
299
            my $sth = $dbh->prepare(
300
                "INSERT INTO auth_header (datecreated,authtypecode,marc,marcxml,origincode) VALUES (NOW(),?,?,?,?)");
300
                "INSERT INTO auth_header (datecreated,authtypecode,marcxml,origincode) VALUES (NOW(),?,?,?)");
301
            eval {
301
            eval {
302
                $sth->execute( $authtypecode, $record->as_usmarc, $record->as_xml_record($format), $controlNumber )
302
                $sth->execute( $authtypecode, $record->as_xml_record($format), $controlNumber )
303
                    or die $sth->errstr;
303
                    or die $sth->errstr;
304
            };
304
            };
305
            $sth->finish;
305
            $sth->finish;
306
            warn "Problem with authority $controlNumber : Cannot insert" if $@;
306
            warn "Problem with authority $controlNumber : Cannot insert $@" if $@;
307
            my $id = $dbh->{'mysql_insertid'};
307
            my $id = $dbh->{'mysql_insertid'};
308
            return if $@;
308
            return if $@;
309
309
310
- 

Return to bug 11300