/[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 484 by dpavlin, Sun May 14 11:06:33 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 235  tag('Form', Line 243  tag('Form',
243          rec(608)          rec(608)
244  );  );
245    
246  tag('UncontroledTerms',  tag('UncontrolledTerms',
247          rec(610)          rec(610)
248  );  );
249    
250    search('UDC_All',
251            rec(675),
252    );
253    
254  tag('UDC',  tag('UDC',
255          rec(675)          rec(675)
256  );  );
# Line 261  tag('PersonalNameSec', Line 273  tag('PersonalNameSec',
273          )          )
274  );  );
275    
276  tag('PersonalNameOth',  tag('PersonalNameOther',
277          join_with(', ',          join_with(', ',
278                  rec(702,'a'),                  rec(702,'a'),
279                  rec(702,'b'),                  rec(702,'b'),
# Line 304  tag('ID', Line 316  tag('ID',
316          rec(900)          rec(900)
317  );  );
318    
319    display('Set',
320            lookup(
321                    prefix( 'set-jzav:',
322                            rec(946,1),
323                    )
324            ),
325            lookup(
326                    prefix( 'set-efzg:',
327                            rec(461,1),
328                    )
329            )
330    );
331    
332    search('Set',
333            rec(946,1),
334            rec(461,1),
335    );
336    
337    tag('Set2',
338            lookup(
339                    prefix( 'set-jzav:',
340                            lookup( 'parent-id:',
341                                    rec(946,1)
342                            )
343                    )
344            )
345    );
346    
347  tag('CallNo',  tag('CallNo',
348          rec(990)          rec(990)
349  );  );
# Line 312  tag('InvNo', Line 352  tag('InvNo',
352          rec(991)          rec(991)
353  );  );
354    
355            1;
   
   
   
   

Legend:
Removed from v.470  
changed lines
  Added in v.484

  ViewVC Help
Powered by ViewVC 1.1.26