/[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 563 by dpavlin, Sun Jul 2 18:36:22 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    # greška - 000 se ne zapisuje u marc:
20    
21  marc('001',  marc('001',
22          rec('000')          rec('000')
23  );  );
# Line 204  marc('110','c', Line 224  marc('110','c',
224  }  }
225    
226  # zapisi za duplanje  # zapisi za duplanje
227    #
228  if ( rec('230') ) {  # if ( rec('230') ) {
229    #
230  marc('245','a',  # marc('245','a',
231          rec('230','a')  #       rec('230','a')
232  );  # );
233    #
234  marc('245','b',  # marc('245','b',
235          rec('230','e')  #       rec('230','e')
236  );  # );
237    #
238  marc('245','c',  # marc('245','c',
239          rec('230','f')  #       rec('230','f')
240  );  # );
241    #
242  marc('245','n',  # marc('245','n',
243          rec('230','v')  #       rec('230','v')
244  );  # );
245    #
246  }  # }
   
   
   
   
   
   
   
   

Legend:
Removed from v.562  
changed lines
  Added in v.563

  ViewVC Help
Powered by ViewVC 1.1.26