/[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 912 - (show annotations)
Tue Oct 30 17:40:13 2007 UTC (16 years, 5 months ago) by dpavlin
File MIME type: text/plain
File size: 3636 byte(s)
 r1370@llin:  dpavlin | 2007-10-30 18:40:02 +0100
 rename tag to search_display which makes it more clean what does it do

1 search_display('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 search_display('Language',
19 rec('101')
20 );
21
22 search_display('TitleProper',
23 regex( 's/<[^>]*>//g',
24 rec('200','a')
25 )
26 );
27
28 search_display('titleNo',
29 rec('200','9')
30 );
31
32 search_display('Subtitle',
33 rec('200','e')
34 );
35
36 search_display('TitleProper2',
37 rec('200','c')
38 );
39
40 search_display('ParallelTitle',
41 rec('200','d')
42 );
43
44 search_display('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 search_display('VolumeDesignation',
60 rec('200','v')
61 );
62
63 search_display('EditionStatement',
64 rec('205','a')
65 );
66
67 search_display('SerialNo',
68 rec('207','a')
69 );
70
71 search_display('fond',
72 rec('209','a')
73 );
74
75 search_display('PlacePublication',
76 rec('210','a')
77 );
78
79 search_display('NamePublisher',
80 rec('210','c')
81 );
82
83 search_display('DatePublication',
84 rec('210','d')
85 );
86
87 search_display('PhysicalDescription',
88 join_with(" : ",
89 rec('215','a'),
90 join_with(" ; ",
91 rec('215','c'),
92 rec('215','d'),
93 )
94 )
95 );
96
97 search_display('MaterialDesignation',
98 rec('215','a')
99 );
100
101 search_display('PhysicalDetails',
102 rec('215','c')
103 );
104
105 search_display('AccompanyingMaterial',
106 rec('215','e')
107 );
108
109 search_display('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 search_display('SeriesTitle',
126 rec('225','a')
127 );
128
129 search_display('GeneralNote',
130 rec('300')
131 );
132
133 search_display('EditionNote',
134 rec('305')
135 );
136
137 search_display('PhysicalDescriptionNote',
138 rec('307')
139 );
140
141 search_display('IntellectResponsNote',
142 rec('314')
143 );
144
145 search_display('InternalBibliographies',
146 rec('320')
147 );
148
149 search_display('Frequency',
150 rec('326')
151 );
152
153 search_display('ContentsNote',
154 rec('327')
155 );
156
157 search_display('Summary',
158 rec('330')
159 );
160
161 search_display('SystemRequirements',
162 rec('337')
163 );
164
165 search_display('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 search_display('PartsID',
176 rec('463','1')
177 );
178
179 search_display('PieceNum',
180 rec('463','v')
181 );
182
183 search_display('PieceAnalitic',
184 join_with(' / ',
185 rec('464','a'),
186 join_with(' ',
187 rec(464,'g'),
188 rec(464,'f'),
189 )
190 )
191 );
192
193 search_display('UniformHeading',
194 join_with('. ',
195 rec(500,'a'),
196 rec(500,'b'),
197 )
198 );
199
200 search_display('ExpandedTitle',
201 rec(532)
202 );
203
204 search_display('Form',
205 rec(608)
206 );
207
208 search_display('UncontrolledTerms',
209 rec(610)
210 );
211
212 search('UDC_All',
213 rec(675),
214 );
215
216 search_display('UDC',
217 rec(675)
218 );
219
220 search_display('APACC',
221 rec(686)
222 );
223
224 search_display('PersonalNamePrim',
225 join_with(', ',
226 rec(700,'a'),
227 rec(700,'b'),
228 )
229 );
230
231 search_display('PersonalNameSec',
232 join_with(', ',
233 rec(701,'a'),
234 rec(701,'b'),
235 )
236 );
237
238 search_display('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 search_display('CorporateNamePrim',
252 join_with(', ',
253 rec(710,'a'),
254 rec(710,'b'),
255 )
256 );
257
258 search_display('CorporateNameSec',
259 join_with(', ',
260 rec(711,'a'),
261 rec(711,'b'),
262 )
263 );
264
265 search_display('OriginatingSource',
266 rec(801)
267 );
268
269 search_display('URL',
270 rec(856,'u')
271 );
272
273 search_display('level',
274 rec(909)
275 );
276
277 search_display('ID',
278 rec(900)
279 );
280
281 search('Set',
282 rec(946,1),
283 rec(461,1),
284 );
285
286 search_display('CallNo',
287 rec(990)
288 );
289
290 search_display('InvNo',
291 rec(991)
292 );
293
294 1;

Properties

Name Value
svn:executable *

  ViewVC Help
Powered by ViewVC 1.1.26