/[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

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

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

revision 772 by dpavlin, Wed Oct 25 11:02:36 2006 UTC revision 773 by dpavlin, Fri Nov 3 20:41:12 2006 UTC
# Line 1  Line 1 
1  marc_indicators('245', 0, 0);  marc_leader('05','n');
2    marc_leader('06','a');
3    marc_leader('07','s');
4    marc_leader('18','i');
5    
6    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  marc('245','a',  marc('245','a',
75          rec('A')          rec('A')
# Line 8  marc('245','h', Line 79  marc('245','h',
79          '[ Elektronička građa ]'          '[ Elektronička građa ]'
80  );  );
81    
82    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  marc('856','u',  marc('856','u',
255          lookup(          lookup(
256                  sub { rec('856','u') },                  sub { rec('856','u') },
257                  'wiley','full',                  'wiley','full',
258                  sub {                  sub {
259                                    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                          regex('s/\s*(\.|:)\s*$//g',                          regex('s/\s*(\.|:)\s*$//g',
274                                  lc( rec('245','a') )                                  lc( rec('245','a') )
275                          );                          );
276                  },                  },
   
277                  sub {                  sub {
278                          lc( rec('A') )                          regex('s/\s*(\.|:)\s*$//g',
279                                    lc( rec('A') )
280                            );
281                  }                  }
282          )          )
283  );  );
Legend:
Removed from v.772  
changed lines
  Added in v.773
  ViewVC Help
Powered by ViewVC 1.1.26