629 |
$record->insert_fields_ordered( MARC::Field->new( '001', $authid ) ); |
629 |
$record->insert_fields_ordered( MARC::Field->new( '001', $authid ) ); |
631 |
$dbh->do( "UPDATE auth_header SET authtypecode=?, marc=?, marcxml=? WHERE authid=?", undef, $authtypecode, $record->as_usmarc, $record->as_xml_record($format), $authid ) or die $DBI::errstr; |
631 |
$dbh->do( "UPDATE auth_header SET authtypecode=?, marcxml=? WHERE authid=?", undef, $authtypecode, $record->as_xml_record($format), $authid ) or die $DBI::errstr; |
633 |
$indexer->index_records( $authid, "specialUpdate", "authorityserver", $record ); |
633 |
$indexer->index_records( $authid, "specialUpdate", "authorityserver", $record ); |