[Koha-cvs] CVS: koha/misc bulkmarcimport.pl,1.4,1.5 dumpmarc.pl,1.3,1.4
Paul POULAIN
tipaul at users.sourceforge.net
Mon Nov 24 18:15:58 CET 2003
Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv2420/misc
Modified Files:
bulkmarcimport.pl dumpmarc.pl
Log Message:
fix for #634
Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/bulkmarcimport.pl,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -r1.4 -r1.5
*** bulkmarcimport.pl 8 Sep 2003 08:41:18 -0000 1.4
--- bulkmarcimport.pl 24 Nov 2003 17:15:55 -0000 1.5
***************
*** 34,38 ****
\tn : the number of the record to import. If missing, all the file is imported
\tt : test mode : parses the file, saying what he would do, but doing nothing.
! \tc : the char encoding. At the moment, only USMARC and UNIMARC supported. USMARC by default.
\d : delete EVERYTHING related to biblio in koha-DB before import :tables :
\t\tbiblio, \t\tbiblioitems, \t\tsubjects,\titems
--- 34,38 ----
\tn : the number of the record to import. If missing, all the file is imported
\tt : test mode : parses the file, saying what he would do, but doing nothing.
! \tc : the char encoding. At the moment, only MARC21 and UNIMARC supported. MARC21 by default.
\d : delete EVERYTHING related to biblio in koha-DB before import :tables :
\t\tbiblio, \t\tbiblioitems, \t\tsubjects,\titems
***************
*** 66,70 ****
print "TESTING MODE ONLY\n DOING NOTHING\n===============\n";
}
! $char_encoding = 'USMARC' unless ($char_encoding);
print "CHAR : $char_encoding\n" if $verbose;
my $starttime = gettimeofday;
--- 66,70 ----
print "TESTING MODE ONLY\n DOING NOTHING\n===============\n";
}
! $char_encoding = 'MARC21' unless ($char_encoding);
print "CHAR : $char_encoding\n" if $verbose;
my $starttime = gettimeofday;
Index: dumpmarc.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/dumpmarc.pl,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** dumpmarc.pl 20 Oct 2003 15:42:43 -0000 1.3
--- dumpmarc.pl 24 Nov 2003 17:15:55 -0000 1.4
***************
*** 15,22 ****
GetOptions(
'file:s' => \$input_marc_file,
! 'n' => \$number,
'v' => \$version
);
if ($version || ($input_marc_file eq '')) {
print <<EOF
--- 15,23 ----
GetOptions(
'file:s' => \$input_marc_file,
! 'n:s' => \$number,
'v' => \$version
);
+ warn "NUM : $number\n";
if ($version || ($input_marc_file eq '')) {
print <<EOF
***************
*** 37,41 ****
my $i=1;
while ( my $record = $batch->next() ) {
! print "\n".$record->as_formatted() if ($i eq $number || $number eq 0);
$i++;
}
--- 38,42 ----
my $i=1;
while ( my $record = $batch->next() ) {
! print "\nNUMBER $i =>\n".$record->as_formatted() if ($i eq $number || $number eq 0);
$i++;
}
More information about the Koha-cvs
mailing list