/[webpac2]/trunk/conf/normalize/excel-wiley.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

Annotation of /trunk/conf/normalize/excel-wiley.pl

Parent Directory Parent Directory | Revision Log Revision Log

Revision 773 - (hide annotations)
Fri Nov 3 20:41:12 2006 UTC (17 years, 6 months ago) by dpavlin
File MIME type: text/plain
File size: 3877 byte(s) 
local
1 dpavlin 773 marc_leader('05','n');
2     marc_leader('06','a');
3     marc_leader('07','s');
4     marc_leader('18','i');
5 dpavlin 758
6 dpavlin 773 marc('022','a',
7     lookup(
8     sub { rec('022','a') },
9     'wiley','full',
10     sub {
11     regex('s/\s*(\.|:)\s*$//g',
12     lc(
13     rec('245','a') . ' ' . rec('245','b')
14     )
15     );
16     },
17     sub {
18     regex('s/\s*(\.|:)\s*$//g',
19     lc( rec('A') )
20     );
21     }
22     ) ||
23     lookup(
24     sub { rec('022','a') },
25     'wiley','full',
26     sub {
27     regex('s/\s*(\.|:)\s*$//g',
28     lc( rec('245','a') )
29     );
30     },
31     sub {
32     regex('s/\s*(\.|:)\s*$//g',
33     lc( rec('A') )
34     );
35     }
36     )
37     );
38    
39     marc('022','y',
40     lookup(
41     sub { rec('022','y') },
42     'wiley','full',
43     sub {
44     regex('s/\s*(\.|:)\s*$//g',
45     lc(
46     rec('245','a') . ' ' . rec('245','b')
47     )
48     );
49     },
50     sub {
51     regex('s/\s*(\.|:)\s*$//g',
52     lc( rec('A') )
53     );
54     }
55     ) ||
56     lookup(
57     sub { rec('022','y') },
58     'wiley','full',
59     sub {
60     regex('s/\s*(\.|:)\s*$//g',
61     lc( rec('245','a') )
62     );
63     },
64     sub {
65     regex('s/\s*(\.|:)\s*$//g',
66     lc( rec('A') )
67     );
68     }
69     )
70     );
71    
72     marc_indicators('245', 1, 0);
73    
74 dpavlin 758 marc('245','a',
75     rec('A')
76     );
77    
78     marc('245','h',
79     '[ Elektronièka graða ]'
80     );
81    
82 dpavlin 773 marc_indicators('246', 1, 0);
83    
84     marc('246','a',
85     lookup(
86     sub { rec('246','a') },
87     'wiley','full',
88     sub {
89     regex('s/\s*(\.|:)\s*$//g',
90     lc(
91     rec('245','a') . ' ' . rec('245','b')
92     )
93     );
94     },
95     sub {
96     regex('s/\s*(\.|:)\s*$//g',
97     lc( rec('A') )
98     );
99     }
100     ) ||
101     lookup(
102     sub { rec('246','a') },
103     'wiley','full',
104     sub {
105     regex('s/\s*(\.|:)\s*$//g',
106     lc( rec('245','a') )
107     );
108     },
109     sub {
110     regex('s/\s*(\.|:)\s*$//g',
111     lc( rec('A') )
112     );
113     }
114     )
115     );
116    
117     marc('500','a',
118     lookup(
119     sub { rec('500','a') },
120     'wiley','full',
121     sub {
122     regex('s/\s*(\.|:)\s*$//g',
123     lc(
124     rec('245','a') . ' ' . rec('245','b')
125     )
126     );
127     },
128     sub {
129     regex('s/\s*(\.|:)\s*$//g',
130     lc( rec('A') )
131     );
132     }
133     ) ||
134     lookup(
135     sub { rec('500','a') },
136     'wiley','full',
137     sub {
138     regex('s/\s*(\.|:)\s*$//g',
139     lc( rec('245','a') )
140     );
141     },
142     sub {
143     regex('s/\s*(\.|:)\s*$//g',
144     lc( rec('A') )
145     );
146     }
147     )
148     );
149    
150     marc_indicators('650', ' ', 7);
151    
152     marc('650','a',
153     lookup(
154     sub { rec('650','a') },
155     'wiley','full',
156     sub {
157     regex('s/\s*(\.|:)\s*$//g',
158     lc(
159     rec('245','a') . ' ' . rec('245','b')
160     )
161     );
162     },
163     sub {
164     regex('s/\s*(\.|:)\s*$//g',
165     lc( rec('A') )
166     );
167     }
168     ) ||
169     lookup(
170     sub { rec('650','a') },
171     'wiley','full',
172     sub {
173     regex('s/\s*(\.|:)\s*$//g',
174     lc( rec('245','a') )
175     );
176     },
177     sub {
178     regex('s/\s*(\.|:)\s*$//g',
179     lc( rec('A') )
180     );
181     }
182     )
183     );
184    
185     marc('650','v',
186     lookup(
187     sub { rec('650','v') },
188     'wiley','full',
189     sub {
190     regex('s/\s*(\.|:)\s*$//g',
191     lc(
192     rec('245','a') . ' ' . rec('245','b')
193     )
194     );
195     },
196     sub {
197     regex('s/\s*(\.|:)\s*$//g',
198     lc( rec('A') )
199     );
200     }
201     ) ||
202     lookup(
203     sub { rec('650','v') },
204     'wiley','full',
205     sub {
206     regex('s/\s*(\.|:)\s*$//g',
207     lc( rec('245','a') )
208     );
209     },
210     sub {
211     regex('s/\s*(\.|:)\s*$//g',
212     lc( rec('A') )
213     );
214     }
215     )
216     );
217    
218    
219     marc('650','z',
220     lookup(
221     sub { rec('650','z') },
222     'wiley','full',
223     sub {
224     regex('s/\s*(\.|:)\s*$//g',
225     lc(
226     rec('245','a') . ' ' . rec('245','b')
227     )
228     );
229     },
230     sub {
231     regex('s/\s*(\.|:)\s*$//g',
232     lc( rec('A') )
233     );
234     }
235     ) ||
236     lookup(
237     sub { rec('650','z') },
238     'wiley','full',
239     sub {
240     regex('s/\s*(\.|:)\s*$//g',
241     lc( rec('245','a') )
242     );
243     },
244     sub {
245     regex('s/\s*(\.|:)\s*$//g',
246     lc( rec('A') )
247     );
248     }
249     )
250     );
251    
252    
253    
254 dpavlin 758 marc('856','u',
255     lookup(
256     sub { rec('856','u') },
257     'wiley','full',
258     sub {
259 dpavlin 773 lc(
260     rec('245','a') . rec('245','b')
261     )
262     },
263    
264     sub {
265     lc( rec('A') )
266     }
267     )
268     ||
269     lookup(
270     sub { rec('856','u') },
271     'wiley','full',
272     sub {
273 dpavlin 758 regex('s/\s*(\.|:)\s*$//g',
274     lc( rec('245','a') )
275     );
276     },
277     sub {
278 dpavlin 773 regex('s/\s*(\.|:)\s*$//g',
279     lc( rec('A') )
280     );
281 dpavlin 758 }
282     )
283     );
  ViewVC Help
Powered by ViewVC 1.1.26