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

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

revision 466 by dpavlin, Sat May 13 09:25:56 2006 UTC revision 988 by dpavlin, Sun Nov 4 12:02:27 2007 UTC
# Line 213  tag('PieceNum', Line 213  tag('PieceNum',
213  tag('PieceAnalitic',  tag('PieceAnalitic',
214          join_with(' / ',          join_with(' / ',
215                  rec('464','a'),                  rec('464','a'),
216                  joint_with(' ',                  join_with(' ',
217                          rec(464,'g'),                          rec(464,'g'),
218                          rec(464,'f'),                          rec(464,'f'),
219                  )                  )
# Line 248  tag('APACC', Line 248  tag('APACC',
248  );  );
249    
250  tag('PersonalNamePrim',  tag('PersonalNamePrim',
251          join_width(', ',          join_with(', ',
252                  rec(700,'a'),                  rec(700,'a'),
253                  rec(700,'b'),                  rec(700,'b'),
254          )          )
255  );  );
256    
257  tag('PersonalNameSec',  tag('PersonalNameSec',
258          join_width(', ',          join_with(', ',
259                  rec(701,'a'),                  rec(701,'a'),
260                  rec(701,'b'),                  rec(701,'b'),
261          )          )
262  );  );
263    
264  tag('PersonalNameOth',  tag('PersonalNameOth',
265          join_width(', ',          join_with(', ',
266                  rec(702,'a'),                  rec(702,'a'),
267                  rec(702,'b'),                  rec(702,'b'),
268          )          )
# Line 275  search('Names', Line 275  search('Names',
275  );  );
276    
277  tag('CorporateNamePrim',  tag('CorporateNamePrim',
278          join_width(', ',          join_with(', ',
279                  rec(710,'a'),                  rec(710,'a'),
280                  rec(710,'b'),                  rec(710,'b'),
281          )          )
282  );  );
283    
284  tag('CorporateNameSec',  tag('CorporateNameSec',
285          join_width(', ',          join_with(', ',
286                  rec(711,'a'),                  rec(711,'a'),
287                  rec(711,'b'),                  rec(711,'b'),
288          )          )
# Line 304  tag('ID', Line 304  tag('ID',
304          rec(900)          rec(900)
305  );  );
306    
307    display('Set',
308            lookup(
309                    prefix( 'set-jzav:',
310                            rec(946,1),
311                    )
312            ),
313            lookup(
314                    prefix( 'set-efzg:',
315                            rec(461,1),
316                    )
317            )
318    );
319    
320    search('Set',
321            rec(946,1),
322            rec(461,1),
323    );
324    
325    tag('Set2',
326            lookup(
327                    prefix( 'set-jzav:',
328                            lookup( 'parent-id:',
329                                    rec(946,1)
330                            )
331                    )
332            )
333    );
334    
335  tag('CallNo',  tag('CallNo',
336          rec(990)          rec(990)
337  );  );

Legend:
Removed from v.466  
changed lines
  Added in v.988

  ViewVC Help
Powered by ViewVC 1.1.26