/[webpac2]/trunk/conf/normalize/ff-libri.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /trunk/conf/normalize/ff-libri.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 795 by dpavlin, Sun Feb 4 12:37:42 2007 UTC revision 802 by dpavlin, Thu Feb 15 22:43:03 2007 UTC
# Line 1  Line 1 
1  ##################################################################################  #########################################################################
2  ## Ova datoteka sadrži pravila za generiranje MARC21 ISO 2709 izlazne datoteke. ##  ##                                                                      ##
3  ## Ulazni format je CDS/ISIS sa zapisima u UNIMARC-u.                           ##  ## Ova datoteka sadrži pravila za generiranje MARC21 ISO 2709 izlazne   ##
4  ##################################################################################  ## datoteke. Ulazni format je CDS/ISIS sa zapisima u UNIMARC-u.         ##
5    ##                                                                      ##      
6    ##########################################################################
7    
8  # konvertira se ako postoji polje 200^a  # konvertira se ako postoji polje 200^a
9    
# Line 140  marc('100','a', Line 141  marc('100','a',
141    
142  ### 111 i 110  ### 111 i 110
143  # provjeriti ispise naslova iz svake baze - moguće su greške.  # provjeriti ispise naslova iz svake baze - moguće su greške.
144    # ovo vrijedi za FFSFB
145    
146  if ( rec('710','f') ) {  if ( rec('710','f') ) {
147    
148  marc_indicators('111', 2, ' ');  marc_indicators('111', 2, ' ');
 marc('111','a',  
         rec('710','a')  
 );  
   
 marc('111','c',  
         rec('710','e')  
 );  
149    
150  marc('111','d',  marc_compose('111',
151          rec('710','f')          'a', rec('710','a'),
152  );          'e', rec('710','b'),
153            'n', rec('710','d'),
154  marc('111','e',          'd', rec('710','f'),
155          rec('710','b')          'c', rec('710','e'),
 );  
   
 marc('111','n',  
         rec('710','d')  
156  );  );
157    
158    
# Line 176  marc('110','c', Line 167  marc('110','c',
167          rec('710','c')          rec('710','c')
168  );  );
169    
170  };  }
171    
172    
173  ### 245 indikatori  ### 245 indikatori
Legend:
Removed from v.795  
changed lines
  Added in v.802
  ViewVC Help
Powered by ViewVC 1.1.26