[Koha-cvs] CVS: koha/misc bulkmarcimport.pl,1.2,1.3

[Paul POULAIN]

Update of /cvsroot/koha/koha/misc
In directory sc8-pr-cvs1:/tmp/cvs-serv6228/misc

Modified Files:
	bulkmarcimport.pl 
Log Message:
minor changes

Index: bulkmarcimport.pl
===================================================================
RCS file: /cvsroot/koha/koha/misc/bulkmarcimport.pl,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -r1.2 -r1.3
*** bulkmarcimport.pl	21 May 2003 14:27:02 -0000	1.2
--- bulkmarcimport.pl	7 Jul 2003 14:49:41 -0000	1.3
***************
*** 68,72 ****
  $batch->warnings_off();
  $batch->strict_off();
! my $i=1;
  #1st of all, find item MARC tag.
  my ($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.itemnumber");
--- 68,72 ----
  $batch->warnings_off();
  $batch->strict_off();
! my $i=0;
  #1st of all, find item MARC tag.
  my ($tagfield,$tagsubfield) = &MARCfind_marc_from_kohafield($dbh,"items.itemnumber");
***************
*** 76,79 ****
--- 76,80 ----
  	#now, parse the record, extract the item fields, and store them in somewhere else.
  	$record = MARC::File::USMARC::decode(char_decode($record->as_usmarc(),$char_encoding));
+ 	warn "==>".$record->as_formatted();
  	my @fields = $record->field($tagfield);
  	print "biblio $i";
***************
*** 97,99 ****
  		}
  	}
! }
\ No newline at end of file
--- 98,100 ----
  		}
  	}
! }