[Koha-cvs] CVS: koha/marc perlmarcstructure,1.3,1.4
Paul POULAIN
tipaul at users.sourceforge.net
Thu Jun 6 18:23:39 CEST 2002
Update of /cvsroot/koha/koha/marc
In directory usw-pr-cvs1:/tmp/cvs-serv26447/marc
Modified Files:
perlmarcstructure
Log Message:
today stuff around marc. Will change soon as we will use MARC::record (see marcpm.sourceforge.net)
Index: perlmarcstructure
===================================================================
RCS file: /cvsroot/koha/koha/marc/perlmarcstructure,v
retrieving revision 1.3
retrieving revision 1.4
diff -C2 -r1.3 -r1.4
*** perlmarcstructure 5 Jun 2002 13:05:19 -0000 1.3
--- perlmarcstructure 6 Jun 2002 16:23:37 -0000 1.4
***************
*** 30,45 ****
in perlmarcstructure, it can be writen :
! $record->{bibid}=58973
$record->{tags}->{110}->{1}->{indicator}='##';
! $record->{tags}->{110}->{1}->->{a}->{1}='first text';
! $record->{tags}->{110}->{1}->{a}->{2}='second text';
! $record->{tags}->{110}->{1}->{b}->{1}='third text';
$record->{tags}->{120}->{1}->{indicator}='##';
! $record->{tags}->{120}->{1}->{a}->{1}='last text ??';
$record->{tags}->{120}->{2}->{indicator}='01';
! $record->{tags}->{120}->{2}->{n}->{1}='no, another text';
!
This takes care of possible repeating tags and subfields as well as ordering of
--- 30,44 ----
in perlmarcstructure, it can be writen :
! $record->{bibid}=58973;
$record->{tags}->{110}->{1}->{indicator}='##';
! $record->{tags}->{110}->{1}->{subfields}->{a}->{1}='first text';
! $record->{tags}->{110}->{1}->{subfields}->{a}->{2}='second text';
! $record->{tags}->{110}->{1}->{subfields}->{b}->{1}='third text';
$record->{tags}->{120}->{1}->{indicator}='##';
! $record->{tags}->{120}->{1}->{subfields}->{a}->{1}='last text ??';
$record->{tags}->{120}->{2}->{indicator}='01';
! $record->{tags}->{120}->{2}->{subfields}->{n}->{1}='no, another text';
This takes care of possible repeating tags and subfields as well as ordering of
More information about the Koha-cvs
mailing list