Koha-community/Koha
13
7
Fork 0
Code Issues Releases Wiki Activity

removed extraneous comments

Browse source 
Signed-off-by: Chris Cormack <crc@liblime.com>
Signed-off-by: Joshua Ferraro <jmf@liblime.com>
This commit is contained in:
Galen Charlton 2007-12-25 01:25:59 -06:00 committed by Joshua Ferraro
parent cb6cf680bc
commit d426a91d0e
1 changed files with 0 additions and 5 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

5
misc/migration_tools/bulkmarcimport.pl
View file

@ -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'");