/[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 562 by dpavlin, Sun Jul 2 16:14:41 2006 UTC revision 569 by dpavlin, Sun Jul 2 21:32:53 2006 UTC
# Line 1  Line 1 
1    # Leader
2    #
3    # if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
4    #       marc_leader('05','c');
5    # } else {
6    #       marc_leader('05','n');
7    # }
8    #
9    # marc_leader('06','a');
10    #
11    # marc_leader('07','m');
12    #
13    # marc_leader('18','i');
14    #
15    # if ( rec('230') ) {
16    #       marc_leader('19','r');
17    # }
18    
19    
20    
21    # greška! - 000 se ne zapisuje u marc:
22    
23  marc('001',  marc('001',
24          rec('000')          rec('000')
25  );  );
# Line 39  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 49  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 84  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 204  marc('110','c', Line 223  marc('110','c',
223  }  }
224    
225  # zapisi za duplanje  # zapisi za duplanje
226    #
227  if ( rec('230') ) {  # if ( rec('230') ) {
228    #
229  marc('245','a',  # marc('245','a',
230          rec('230','a')  #       rec('230','a')
231  );  # );
232    #
233  marc('245','b',  # marc('245','b',
234          rec('230','e')  #       rec('230','e')
235  );  # );
236    #
237  marc('245','c',  # marc('245','c',
238          rec('230','f')  #       rec('230','f')
239  );  # );
240    #
241  marc('245','n',  # marc('245','n',
242          rec('230','v')  #       rec('230','v')
243  );  # );
244    #
245  }  # }
   
   
   
   
   
   
   
   
Legend:
Removed from v.562  
changed lines
  Added in v.569
  ViewVC Help
Powered by ViewVC 1.1.26