/[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 470 by dpavlin, Sat May 13 12:07:27 2006 UTC revision 766 by dpavlin, Tue Oct 31 13:19:47 2006 UTC
# Line 48  tag('Responsibility', Line 48  tag('Responsibility',
48          )          )
49  );  );
50    
51    display('ResponsibilityFirst',
52            rec('200','f')
53    );
54    
55    display('ResponsibilitySecond',
56            rec('200','g')
57    );
58    
59  tag('VolumeDesignation',  tag('VolumeDesignation',
60          rec('200','v')          rec('200','v')
61  );  );
# Line 164  tag('IssuedWith', Line 172  tag('IssuedWith',
172          )          )
173  );  );
174    
 display('Parts',  
         lookup(  
                 prefix( 'dio-jzav:', rec(900) )  
         )  
 );  
   
 search('Parts',  
         lookup(  
                 prefix( 'id-dio-jzav:', rec(900) )  
         )  
 );  
   
 display('PartsEF',  
         lookup(  
                 prefix( 'naslov-efzg:001', rec('001') )  
         )  
 );  
   
175  tag('PartsID',  tag('PartsID',
176          rec('463','1')          rec('463','1')
177  );  );
178    
 tag('Piece',  
         lookup(  
                 prefix( 'naslov-efzg:',  
                         first(  
                                 rec(463,1)  
                         )  
                 )  
         )  
 );  
   
 tag('PieceSubtitle',  
         lookup(  
                 prefix( 'podnaslov-efzg:',  
                         first(  
                                 rec(463,1)  
                         )  
                 )  
         )  
 );  
   
179  tag('PieceNum',  tag('PieceNum',
180          rec('463','v')          rec('463','v')
181  );  );
# Line 235  tag('Form', Line 205  tag('Form',
205          rec(608)          rec(608)
206  );  );
207    
208  tag('UncontroledTerms',  tag('UncontrolledTerms',
209          rec(610)          rec(610)
210  );  );
211    
212    search('UDC_All',
213            rec(675),
214    );
215    
216  tag('UDC',  tag('UDC',
217          rec(675)          rec(675)
218  );  );
# Line 261  tag('PersonalNameSec', Line 235  tag('PersonalNameSec',
235          )          )
236  );  );
237    
238  tag('PersonalNameOth',  tag('PersonalNameOther',
239          join_with(', ',          join_with(', ',
240                  rec(702,'a'),                  rec(702,'a'),
241                  rec(702,'b'),                  rec(702,'b'),
# Line 304  tag('ID', Line 278  tag('ID',
278          rec(900)          rec(900)
279  );  );
280    
281    search('Set',
282            rec(946,1),
283            rec(461,1),
284    );
285    
286  tag('CallNo',  tag('CallNo',
287          rec(990)          rec(990)
288  );  );
# Line 312  tag('InvNo', Line 291  tag('InvNo',
291          rec(991)          rec(991)
292  );  );
293    
294            1;
   
   
   
   
Legend:
Removed from v.470  
changed lines
  Added in v.766
  ViewVC Help
Powered by ViewVC 1.1.26