/[webpac2]/trunk/conf/normalize/ff-nakladnicka.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-nakladnicka.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 113  marc('300','c', Line 113  marc('300','c',
113          )          )
114  );  );
115    
116    _debug(2);
117  marc('900','a',  marc('900','a',
118          lookup(          lookup(
119                  sub { rec('702','a') . ', ' . rec('702','b') },                  sub { rec('702','a') . ', ' . rec('702','b') },
120                  'nsk','baza',                  'nsk','baza',
121                  sub { rec('200','a') . rec('210','a') . rec('210','c') },                  sub { rec('200','a') . rec('210','a') . rec('210','c') },
122                  sub {                  sub { rec('225','a') . rec('210','a') . rec('210','b') },
                         regex('s/[:|,]//g',  
                                 rec('225','a') . rec('210','a') . rec('210','b')  
                         );  
                 },  
123          )          )
124  );  );
125    
126    _debug(0);
127    
128  marc_duplicate();  marc_duplicate();
129  marc_remove('*');  marc_remove('*');
Legend:
Removed from v.795  
changed lines
  Added in v.802
  ViewVC Help
Powered by ViewVC 1.1.26