--- trunk/t/data/normalize.pl 2006/10/25 21:01:51 765 +++ trunk/t/data/normalize.pl 2006/10/31 13:19:47 766 @@ -172,48 +172,10 @@ ) ); -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') ) - ) -); - tag('PartsID', rec('463','1') ); -tag('Piece', - lookup( - prefix( 'naslov-efzg:', - first( - rec(463,1) - ) - ) - ) -); - -tag('PieceSubtitle', - lookup( - prefix( 'podnaslov-efzg:', - first( - rec(463,1) - ) - ) - ) -); - tag('PieceNum', rec('463','v') ); @@ -316,34 +278,11 @@ rec(900) ); -display('Set', - lookup( - prefix( 'set-jzav:', - rec(946,1), - ) - ), - lookup( - prefix( 'set-efzg:', - rec(461,1), - ) - ) -); - search('Set', rec(946,1), rec(461,1), ); -tag('Set2', - lookup( - prefix( 'set-jzav:', - lookup( 'parent-id:', - rec(946,1) - ) - ) - ) -); - tag('CallNo', rec(990) );