Parent Directory | Revision Log
r966@llin: dpavlin | 2006-09-24 19:22:45 +0200 first cut at WebPAC::Parser which will allow lookups to be specified in normalization file
1 | dpavlin | 679 | |
2 | marc('777','v', | ||
3 | lookup( | ||
4 | dpavlin | 680 | sub { 'ffkk/perl' . rec('000') }, |
5 | 'ffkk','peri', | ||
6 | dpavlin | 686 | sub { rec('11') } |
7 | dpavlin | 680 | ) || |
8 | lookup( | ||
9 | sub { 'ffkk/perl' . rec('000') }, | ||
10 | 'ffkk','peri', | ||
11 | dpavlin | 686 | sub { rec(200,'a') . rec('200','e') }, |
12 | dpavlin | 680 | ) || |
13 | lookup( | ||
14 | dpavlin | 686 | sub { "ffkk/perl" . rec('000') }, |
15 | dpavlin | 680 | 'ffkk','peri', |
16 | dpavlin | 686 | sub { rec(200,'a') }, |
17 | sub { rec(900,'x') }, | ||
18 | dpavlin | 679 | ) |
19 | ); | ||
20 | dpavlin | 686 | |
21 | marc('900','x', | ||
22 | lookup( | ||
23 | sub { rec('200','a') . ' ' . rec('200','b') }, | ||
24 | 'ffps','libri', | ||
25 | sub { rec('245','a') }, | ||
26 | ) | ||
27 | ); |
ViewVC Help | |
Powered by ViewVC 1.1.26 |