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

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

revision 753 by dpavlin, Sun Oct 8 13:25:11 2006 UTC revision 754 by dpavlin, Sun Oct 8 18:44:42 2006 UTC
# Line 199  marc('110','c', Line 199  marc('110','c',
199    
200  };  };
201    
   
202  marc_indicators('773', 0, ' ');  marc_indicators('773', 0, ' ');
203    
204  marc('773','g',  marc('773','g',
205          rec('200','x'),          rec('200','x'),
206  );  );
# Line 212  marc('773','t', Line 212  marc('773','t',
212          ),          ),
213  );  );
214    
215    marc('773','w',
216            lookup(
217                    sub { 'ffkk/peri/' . rec('000') },
218                    'ffkk','peri',
219                    sub { rec('11') }
220            ) ||
221            lookup(
222                    sub { 'ffkk/peri/' . rec('000') },
223                    'ffkk','peri',
224                    sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
225            ) ||
226    
227            lookup(
228                    sub { "ffkk/peri/" . rec('000') },
229                    'ffkk','peri',
230                    sub { rec(200,'a') },
231    #               sub { rec(900,'x') },
232            )
233    
234    );
235    
236    
Legend:
Removed from v.753  
changed lines
  Added in v.754
  ViewVC Help
Powered by ViewVC 1.1.26