/[webpac2]/trunk/t/data/normalize.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

Contents of /trunk/t/data/normalize.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 766 - (show annotations)
Tue Oct 31 13:19:47 2006 UTC (17 years, 5 months ago) by dpavlin
File MIME type: text/plain
File size: 3075 byte(s)
 r1113@llin:  dpavlin | 2006-10-31 14:17:02 +0100
 cleanup normalization error message for lookups and modify tests so they don't fail anymore

1 tag('MFN',
2 rec('000')
3 );
4
5 display('ISBN',
6 rec('10')
7 );
8
9 display('ISSN',
10 rec('11')
11 );
12
13 search('ISN',
14 rec('10'),
15 rec('11'),
16 );
17
18 tag('Language',
19 rec('101')
20 );
21
22 tag('TitleProper',
23 regex( 's/<[^>]*>//g',
24 rec('200','a')
25 )
26 );
27
28 tag('titleNo',
29 rec('200','9')
30 );
31
32 tag('Subtitle',
33 rec('200','e')
34 );
35
36 tag('TitleProper2',
37 rec('200','c')
38 );
39
40 tag('ParallelTitle',
41 rec('200','d')
42 );
43
44 tag('Responsibility',
45 join_with(" ; ",
46 rec('200','f'),
47 rec('200','g')
48 )
49 );
50
51 display('ResponsibilityFirst',
52 rec('200','f')
53 );
54
55 display('ResponsibilitySecond',
56 rec('200','g')
57 );
58
59 tag('VolumeDesignation',
60 rec('200','v')
61 );
62
63 tag('EditionStatement',
64 rec('205','a')
65 );
66
67 tag('SerialNo',
68 rec('207','a')
69 );
70
71 tag('fond',
72 rec('209','a')
73 );
74
75 tag('PlacePublication',
76 rec('210','a')
77 );
78
79 tag('NamePublisher',
80 rec('210','c')
81 );
82
83 tag('DatePublication',
84 rec('210','d')
85 );
86
87 tag('PhysicalDescription',
88 join_with(" : ",
89 rec('215','a'),
90 join_with(" ; ",
91 rec('215','c'),
92 rec('215','d'),
93 )
94 )
95 );
96
97 tag('MaterialDesignation',
98 rec('215','a')
99 );
100
101 tag('PhysicalDetails',
102 rec('215','c')
103 );
104
105 tag('AccompanyingMaterial',
106 rec('215','e')
107 );
108
109 tag('Series',
110 join_with(" = ", rec('225','a'),
111 join_with(" : ", rec('225','d'),
112 join_with(" ; ", rec('225','e'),
113 join_with(". ", rec('225','v'),
114 join_with(", ", rec('225','h'),
115 join_with(" ; ", rec('225','i'),
116 rec('225','w'),
117 )
118 )
119 )
120 )
121 )
122 )
123 );
124
125 tag('SeriesTitle',
126 rec('225','a')
127 );
128
129 tag('GeneralNote',
130 rec('300')
131 );
132
133 tag('EditionNote',
134 rec('305')
135 );
136
137 tag('PhysicalDescriptionNote',
138 rec('307')
139 );
140
141 tag('IntellectResponsNote',
142 rec('314')
143 );
144
145 tag('InternalBibliographies',
146 rec('320')
147 );
148
149 tag('Frequency',
150 rec('326')
151 );
152
153 tag('ContentsNote',
154 rec('327')
155 );
156
157 tag('Summary',
158 rec('330')
159 );
160
161 tag('SystemRequirements',
162 rec('337')
163 );
164
165 tag('IssuedWith',
166 join_with(': ', rec(423,'z'),
167 join_with(' / ', rec(423,'a'),
168 join_with(' ', rec(423,'c'),
169 rec(423,'b')
170 )
171 )
172 )
173 );
174
175 tag('PartsID',
176 rec('463','1')
177 );
178
179 tag('PieceNum',
180 rec('463','v')
181 );
182
183 tag('PieceAnalitic',
184 join_with(' / ',
185 rec('464','a'),
186 join_with(' ',
187 rec(464,'g'),
188 rec(464,'f'),
189 )
190 )
191 );
192
193 tag('UniformHeading',
194 join_with('. ',
195 rec(500,'a'),
196 rec(500,'b'),
197 )
198 );
199
200 tag('ExpandedTitle',
201 rec(532)
202 );
203
204 tag('Form',
205 rec(608)
206 );
207
208 tag('UncontrolledTerms',
209 rec(610)
210 );
211
212 search('UDC_All',
213 rec(675),
214 );
215
216 tag('UDC',
217 rec(675)
218 );
219
220 tag('APACC',
221 rec(686)
222 );
223
224 tag('PersonalNamePrim',
225 join_with(', ',
226 rec(700,'a'),
227 rec(700,'b'),
228 )
229 );
230
231 tag('PersonalNameSec',
232 join_with(', ',
233 rec(701,'a'),
234 rec(701,'b'),
235 )
236 );
237
238 tag('PersonalNameOther',
239 join_with(', ',
240 rec(702,'a'),
241 rec(702,'b'),
242 )
243 );
244
245 search('Names',
246 rec(700),
247 rec(701),
248 rec(702),
249 );
250
251 tag('CorporateNamePrim',
252 join_with(', ',
253 rec(710,'a'),
254 rec(710,'b'),
255 )
256 );
257
258 tag('CorporateNameSec',
259 join_with(', ',
260 rec(711,'a'),
261 rec(711,'b'),
262 )
263 );
264
265 tag('OriginatingSource',
266 rec(801)
267 );
268
269 tag('URL',
270 rec(856,'u')
271 );
272
273 tag('level',
274 rec(909)
275 );
276
277 tag('ID',
278 rec(900)
279 );
280
281 search('Set',
282 rec(946,1),
283 rec(461,1),
284 );
285
286 tag('CallNo',
287 rec(990)
288 );
289
290 tag('InvNo',
291 rec(991)
292 );
293
294 1;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26