[Koha-cvs] CVS: koha/marc perlmarcstructure,1.3,1.4

[Paul POULAIN]

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