/[webpac2]/trunk/conf/normalize/mapping.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/mapping.pl

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

revision 563 by dpavlin, Sun Jul 2 18:36:22 2006 UTC revision 574 by dpavlin, Mon Jul 3 21:08:07 2006 UTC
# Line 1  Line 1 
1  # Leader  # Leader
2    
3  if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {  if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
4          marc_leader('05','c');          marc_leader('05','c');
5  } else {  } else {
# Line 16  if ( rec('230') ) { Line 16  if ( rec('230') ) {
16          marc_leader('19','r');          marc_leader('19','r');
17  }  }
18    
19  # greška - 000 se ne zapisuje u marc:  
20    
21    # greška! - 000 se ne zapisuje u marc:
22    
23  marc('001',  marc('001',
24          rec('000')          rec('000')
# Line 59  marc('250','a', Line 61  marc('250','a',
61          rec('205','a')          rec('205','a')
62  );  );
63    
 _debug( 2 );  
 warn "210a: ",dump( first(rec('210','a' )) );  
   
64  marc_compose('260',  marc_compose('260',
65          'a', split_rec_on('210','a', qr/\s*;\s*/, 1),          'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
66          'b', first(rec('210','c')),          'b', first(rec('210','c')),
# Line 69  marc_compose('260', Line 68  marc_compose('260',
68          'c', first(rec('210','d')),          'c', first(rec('210','d')),
69  );  );
70    
   
 _debug( 0 );  
   
71  marc('300','a',  marc('300','a',
72          rec('215','a')          rec('215','a')
73  );  );
# Line 104  marc('490','a', Line 100  marc('490','a',
100  );  );
101    
102  marc('490','v',  marc('490','v',
103          rec('225','v')          join_with(', ',
104                    rec('225','v'),
105                    rec('225','w')
106            )
107  );  );
108    
109  marc('500','a',  marc('500','a',
# Line 187  marc('700','a', Line 186  marc('700','a',
186  #       );  #       );
187  # }  # }
188    
189    _debug( 2 );
190    
191  if ( rec('710','f') ) {  if ( rec('710','f') ) {
192    
193  marc_indicators('111', 2, ' ');  marc_indicators('111', 2, ' ');
# Line 194  marc('111','a', Line 195  marc('111','a',
195          rec('710','a')          rec('710','a')
196  );  );
197    
198    marc('111','c',
199            rec('710','e')
200    );
201    
202    marc('111','d',
203            rec('710','f')
204    );
205    
206  marc('111','e',  marc('111','e',
207          rec('710','b')          rec('710','b')
208  );  );
# Line 202  marc('111','n', Line 211  marc('111','n',
211          rec('710','d')          rec('710','d')
212  );  );
213    
 marc('111','c',  
         rec('710','e')  
 );  
   
 marc('111','d',  
         rec('710','f')  
 );  
214    
215  } else {  } else {
216                    
# Line 223  marc('110','c', Line 225  marc('110','c',
225    
226  }  }
227    
228    _debug( 0 );
229    
230  # zapisi za duplanje  # zapisi za duplanje
231  #  
232  # if ( rec('230') ) {  if ( rec('230') ) {
233  #  
234  # marc('245','a',  marc_duplicate();
235  #       rec('230','a')  
236  # );  marc('245','a',
237  #          rec('230','a')
238  # marc('245','b',  );
239  #       rec('230','e')  
240  # );  marc('245','b',
241  #          rec('230','e')
242  # marc('245','c',  );
243  #       rec('230','f')  
244  # );  marc('245','c',
245  #          rec('230','f')
246  # marc('245','n',  );
247  #       rec('230','v')  
248  # );  marc('245','n',
249  #          rec('230','v')
250  # }  );
251    
252    }
Legend:
Removed from v.563  
changed lines
  Added in v.574
  ViewVC Help
Powered by ViewVC 1.1.26