/[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 569 by dpavlin, Sun Jul 2 21:32:53 2006 UTC revision 570 by dpavlin, Mon Jul 3 10:32:46 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 {
6  #       marc_leader('05','n');          marc_leader('05','n');
7  # }  }
8  #  
9  # marc_leader('06','a');  marc_leader('06','a');
10  #  
11  # marc_leader('07','m');  marc_leader('07','m');
12  #  
13  # marc_leader('18','i');  marc_leader('18','i');
14  #  
15  # if ( rec('230') ) {  if ( rec('230') ) {
16  #       marc_leader('19','r');          marc_leader('19','r');
17  # }  }
18    
19    
20    
# Line 193  marc('111','a', Line 193  marc('111','a',
193          rec('710','a')          rec('710','a')
194  );  );
195    
196    marc('111','c',
197            rec('710','e')
198    );
199    
200    marc('111','d',
201            rec('710','f')
202    );
203    
204  marc('111','e',  marc('111','e',
205          rec('710','b')          rec('710','b')
206  );  );
# Line 201  marc('111','n', Line 209  marc('111','n',
209          rec('710','d')          rec('710','d')
210  );  );
211    
 marc('111','c',  
         rec('710','e')  
 );  
   
 marc('111','d',  
         rec('710','f')  
 );  
212    
213  } else {  } else {
214                    
Legend:
Removed from v.569  
changed lines
  Added in v.570
  ViewVC Help
Powered by ViewVC 1.1.26