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

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

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

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