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

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

revision 502 by dpavlin, Sun May 14 22:09:02 2006 UTC revision 988 by dpavlin, Sun Nov 4 12:02:27 2007 UTC
# Line 2  tag('MFN', Line 2  tag('MFN',
2          rec('000')          rec('000')
3  );  );
4    
 display('ControlNumber',  
         rec1('001')  
 );  
   
 display('LastTransaction',  
         rec1('005')  
 );  
   
5  display('ISBN',  display('ISBN',
6          rec1('10'),          rec1('10'),
7          rec('010','a')          rec('010','a')
# Line 19  display('ISBN_information', Line 11  display('ISBN_information',
11          rec('010','b')          rec('010','b')
12  );  );
13    
 display('ISBN_availability',  
         rec('010','d')  
 );  
   
14  display('ISBN_incorrect',  display('ISBN_incorrect',
15          rec('010','z')          rec('010','z')
16  );  );
# Line 47  search('ISN', Line 35  search('ISN',
35          rec('011'),          rec('011'),
36  );  );
37    
 display('NationalBibliographySource',  
         rec('020','a')  
 );  
   
 display('NationalBibliographyNumber',  
         rec('020','b')  
 );  
   
 display('LegalDepositSource',  
         rec('021','a')  
 );  
   
 display('LegalDepositNumber',  
         rec('021','b')  
 );  
   
 display('GovernmentDocumentSource',  
         rec('022','a')  
 );  
   
 display('GovernmentDocumentNumber',  
         rec('022','b')  
 );  
   
 display('GovernmentDocumentCancelled',  
         rec('022','z')  
 );  
   
 tag('Coden',  
         rec('040','a')  
 );  
   
 display('GeneralInformation',  
         rec(100,'a')  
 );  
   
38  tag('LanguageText',  tag('LanguageText',
39          rec(101,'a')          rec(101,'a')
40  );  );
# Line 94  tag('LanguageOriginal', Line 46  tag('LanguageOriginal',
46          )          )
47  );  );
48    
 tag('LanguageSummary',  
         rec(101,'d')  
 );  
   
 tag('LanguageContents',  
         rec(101,'e')  
 );  
   
 tag('CountryPublishing',  
         rec(102,'a')  
 );  
   
 tag('LocalSubentity',  
         rec(102,'b')  
 );  
   
49  tag('TitleProper',  tag('TitleProper',
50          regex( 's/<[^>]*>//g',          regex( 's/<[^>]*>//g',
51                  rec(200,'a')                  rec(200,'a')
# Line 284  tag('IssuedWith', Line 220  tag('IssuedWith',
220          )          )
221  );  );
222    
223  display('parts',  #display('parts',
224          lookup(  #       lookup(
225                  prefix( 'dio-jzav:', rec(900) )  #               prefix( 'dio-jzav:', rec(900) )
226          )  #       )
227  );  #);
228    #
229  search('parts',  #search('parts',
230          lookup(  #       lookup(
231                  prefix( 'id-dio-jzav:', rec(900) )  #               prefix( 'id-dio-jzav:', rec(900) )
232          )  #       )
233  );  #);
234    #
235  display('partsEF',  #display('partsEF',
236          lookup(  #       lookup(
237                  prefix( 'naslov-efzg:001', rec('001') )  #               prefix( 'naslov-efzg:001', rec('001') )
238          )  #       )
239  );  #);
240    #
241  tag('partsID',  #tag('partsID',
242          rec('463','1')  #       rec('463','1')
243  );  #);
244    #
245  tag('piece',  #tag('piece',
246          lookup(  #       lookup(
247                  prefix( 'naslov-efzg:',  #               prefix( 'naslov-efzg:',
248                          first(  #                       first(
249                                  rec(463,1)  #                               rec(463,1)
250                          )  #                       )
251                  )  #               )
252          )  #       )
253  );  #);
254    #
255  tag('pieceSubtitle',  #tag('pieceSubtitle',
256          lookup(  #       lookup(
257                  prefix( 'podnaslov-efzg:',  #               prefix( 'podnaslov-efzg:',
258                          first(  #                       first(
259                                  rec(463,1)  #                               rec(463,1)
260                          )  #                       )
261                  )  #               )
262          )  #       )
263  );  #);
264    
265  tag('pieceNum',  tag('pieceNum',
266          rec('463','v')          rec('463','v')
# Line 353  tag('SubjectForm', Line 289  tag('SubjectForm',
289          rec(608)          rec(608)
290  );  );
291    
292  tag('UncontroledTerms',  tag('UncontrolledTerms',
293          rec(610)          rec(610)
294  );  );
295    
# Line 419  tag('id', Line 355  tag('id',
355          rec(900)          rec(900)
356  );  );
357    
358  display('set',  #display('set',
359          lookup(  #       lookup(
360                  prefix( 'set-jzav:',  #               prefix( 'set-jzav:',
361                          rec(946,1),  #                       rec(946,1),
362                  )  #               )
363          ),  #       ),
364          lookup(  #       lookup(
365                  prefix( 'set-efzg:',  #               prefix( 'set-efzg:',
366                          rec(461,1),  #                       rec(461,1),
367                  )  #               )
368          )  #       )
369  );  #);
370    
371  search('set',  search('set',
372          rec(946,1),          rec(946,1),
373          rec(461,1),          rec(461,1),
374  );  );
375    
376  tag('set2',  #tag('set2',
377          lookup(  #       lookup(
378                  prefix( 'set-jzav:',  #               prefix( 'set-jzav:',
379                          lookup( 'parent-id:',  #                       lookup( 'parent-id:',
380                                  rec(946,1)  #                               rec(946,1)
381                          )  #                       )
382                  )  #               )
383          )  #       )
384  );  #);
385    
386  tag('ShelvingControlNumber',  tag('ShelvingControlNumber',
387          rec(990)          rec(990)
Legend:
Removed from v.502  
changed lines
  Added in v.988
  ViewVC Help
Powered by ViewVC 1.1.26