removed extraneous comments
Signed-off-by: Chris Cormack <crc@liblime.com> Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
parent
cb6cf680bc
commit
d426a91d0e
1 changed files with 0 additions and 5 deletions
|
@ -207,7 +207,6 @@ if ($test_parameter) {
|
||||||
my $marcFlavour = C4::Context->preference('marcflavour') || 'MARC21';
|
my $marcFlavour = C4::Context->preference('marcflavour') || 'MARC21';
|
||||||
|
|
||||||
print "Characteristic MARC flavour: $marcFlavour\n" if $verbose;
|
print "Characteristic MARC flavour: $marcFlavour\n" if $verbose;
|
||||||
# die;
|
|
||||||
my $starttime = gettimeofday;
|
my $starttime = gettimeofday;
|
||||||
my $batch = MARC::Batch->new( 'USMARC', $input_marc_file );
|
my $batch = MARC::Batch->new( 'USMARC', $input_marc_file );
|
||||||
$batch->warnings_off();
|
$batch->warnings_off();
|
||||||
|
@ -229,7 +228,6 @@ while ( my $record = $batch->next() ) {
|
||||||
print "\r$i" unless $i % 100;
|
print "\r$i" unless $i % 100;
|
||||||
|
|
||||||
unless ($test_parameter) {
|
unless ($test_parameter) {
|
||||||
# FIXME add back dup barcode check
|
|
||||||
my ( $bibid, $oldbibitemnum, $itemnumbers_ref, $errors_ref );
|
my ( $bibid, $oldbibitemnum, $itemnumbers_ref, $errors_ref );
|
||||||
eval { ( $bibid, $oldbibitemnum, $itemnumbers_ref, $errors_ref ) = AddBiblioAndItems( $record, '' ); };
|
eval { ( $bibid, $oldbibitemnum, $itemnumbers_ref, $errors_ref ) = AddBiblioAndItems( $record, '' ); };
|
||||||
if ( $@ ) {
|
if ( $@ ) {
|
||||||
|
@ -249,9 +247,6 @@ $dbh->commit();
|
||||||
if ($fk_off) {
|
if ($fk_off) {
|
||||||
$dbh->do("SET FOREIGN_KEY_CHECKS = 1");
|
$dbh->do("SET FOREIGN_KEY_CHECKS = 1");
|
||||||
}
|
}
|
||||||
# final commit of the changes
|
|
||||||
#z3950_extended_services('commit',set_service_options('commit'));
|
|
||||||
#print "COMMIT OPERATION SUCCESSFUL\n";
|
|
||||||
|
|
||||||
# restore CataloguingLog
|
# restore CataloguingLog
|
||||||
$dbh->do("UPDATE systempreferences SET value=$CataloguingLog WHERE variable='CataloguingLog'");
|
$dbh->do("UPDATE systempreferences SET value=$CataloguingLog WHERE variable='CataloguingLog'");
|
||||||
|
|
Loading…
Reference in a new issue