[Koha-cvs] CVS: koha/misc bulkmarcimport.pl,1.4,1.5 dumpmarc.pl,1.3,1.4

[Paul POULAIN]

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++;
  }