[Top][All Lists]
[Date Prev][Date Next][Thread Prev][Thread Next][Date Index][Thread Index]
[Koha-cvs] CVS: koha/misc bulkmarcimport.pl,1.2,1.3
From: |
Paul POULAIN |
Subject: |
[Koha-cvs] CVS: koha/misc bulkmarcimport.pl,1.2,1.3 |
Date: |
Mon, 07 Jul 2003 07:49:43 -0700 |
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 ----
}
}
! }
[Prev in Thread] |
Current Thread |
[Next in Thread] |
- [Koha-cvs] CVS: koha/misc bulkmarcimport.pl,1.2,1.3,
Paul POULAIN <=
- Prev by Date:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/fr/members moremember.tmpl,1.10,1.11
- Next by Date:
[Koha-cvs] CVS: koha release_notes_200pre2.txt,NONE,1.1 release_notes_200pre1.txt,1.1,1.2
- Previous by thread:
[Koha-cvs] CVS: koha/koha-tmpl/intranet-tmpl/default/fr/members moremember.tmpl,1.10,1.11
- Next by thread:
[Koha-cvs] CVS: koha release_notes_200pre2.txt,NONE,1.1 release_notes_200pre1.txt,1.1,1.2
- Index(es):