/[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 484 by dpavlin, Sun May 14 11:06:33 2006 UTC revision 766 by dpavlin, Tue Oct 31 13:19:47 2006 UTC
# Line 172  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 316  tag('ID', Line 278  tag('ID',
278          rec(900)          rec(900)
279  );  );
280    
 display('Set',  
         lookup(  
                 prefix( 'set-jzav:',  
                         rec(946,1),  
                 )  
         ),  
         lookup(  
                 prefix( 'set-efzg:',  
                         rec(461,1),  
                 )  
         )  
 );  
   
281  search('Set',  search('Set',
282          rec(946,1),          rec(946,1),
283          rec(461,1),          rec(461,1),
284  );  );
285    
 tag('Set2',  
         lookup(  
                 prefix( 'set-jzav:',  
                         lookup( 'parent-id:',  
                                 rec(946,1)  
                         )  
                 )  
         )  
 );  
   
286  tag('CallNo',  tag('CallNo',
287          rec(990)          rec(990)
288  );  );
Legend:
Removed from v.484  
changed lines
  Added in v.766
  ViewVC Help
Powered by ViewVC 1.1.26