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

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

revision 773 by dpavlin, Fri Nov 3 20:41:12 2006 UTC revision 905 by dpavlin, Mon Oct 29 21:59:43 2007 UTC
# Line 1  Line 1 
1  if ( rec('200','a') ) {  if ( rec('200','a') ) {
2    
3  # Leader  ### LEADER
4  # raspraviti 17,18  # raspraviti 17,18
5    
6  # u nekim knjižnicama koristi se 999a i 999b  marc_leader('05','n');          # Record status
7    marc_leader('06','a');          # Type of record
8    
9    if ( rec('225','a') ) {
10            marc_leader('07','d');  
11    } else {
12            marc_leader('07','s');  # Bibliographic level
13    }
14    
15    marc_leader('18','i');          # Descriptive cataloging form
16    
17    if ( rec('225','a') ) {
18            marc_leader('19','r');  # Linked record requirement
19    }
20    
21    ### 001 - Voyager
22    
23    ### 007
24    marc_fixed('007',00,'ta');
25    
 # vrijedi za ffan...  
26    
27  if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {  ### 008 - All materials
28          marc_leader('05','c');  # što zapisati u polje kad datum nije poznat?
29    
30    marc_fixed('008','00', '070707');       # 00-05 - Date entered on file
31    
32    ## za 008 06 treba i lookup u tablicu gdje postoji podatak o tome jel tekuci casopis ili nije?
33    ## c - Continuing resource currently published
34    ## d - Continuing resource ceased publication
35    
36    if ( rec('210','c') ) {
37            marc_fixed('008','06','s');             # 06 - Type of date/Publication status, s = single know date
38    
39            my $year = rec('210','c');
40            warn "## year = $year";
41            if ( $year =~ m/^(\d{4})/ ) {
42    #       warn "## $1 ##";
43                    marc_fixed('008','07',$1);              # 07-10 - Date 1
44            }
45                    
46  } else {  } else {
47          marc_leader('05','n');          marc_fixed('008','06','n');             # 06 - n = unknown date
48  }  }
49    
         marc_leader('06','a');  
         marc_leader('07','s');  
         marc_leader('18','i');  
50    
         marc_leader('19','r');  
51    
52    # marc_fixed('008','11', ' ');          # 11-14 - Date 2
53    marc_fixed('008','15',
54            lc ( rec('102') )
55    );                                      # 15-17 - Place of publication, production, or execution
56    marc_fixed('008','35',
57            first( lc(rec('101')) )         # 35-37 - Language
58    );
59    marc_fixed('008','38', '|');            # 38 - Modified record
60    marc_fixed('008','39','d');             # 39 - Cataloging source
61    
62    
63    ### 008 - Continuing resources
64    
65    if ( ! rec('225','a') ) {
66    
67    marc_fixed('008','18', '|');    # 18 - Frequency - ovo treba popuniti iz polja 326
68                                    # 19 - Regularity
69                                    # 20 - Undefined, ontains a blank (#) or fill character (|)
70    
71    # za polje 008 21 treba lookup u tablicu:
72    marc_fixed('008','21', 'p');    # 21 - Type of continuing resource
73    
74                                    # 22 - Form of original item - blank
75                                    # 23 - Form of item
76                                    # 24 - Nature of entire work
77                                    # 25-27 - Nature of contents
78                                    # 28 - Government publication
79                                    # 29 - Conference publication
80                                    # 30-32 - Undefined
81                                    # 33 - Original alphabet or script of title
82                                    # 34 - Entry convention
83    }
84    
85    ## 022
86    # if ( ! rec('225','a') ) {
87    #       marc('022','a',
88    #               rec('11')
89    #       );
90    # }
91    #
92    
93    ### 022
94    
95  # 001 polje - Voyager  if ( ! rec('225','a') ) {
96            marc('022','a',
97                    rec('11')
98            );
99    }
100    
101    ### 035$6
102  # privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku  # privemeno koristimo 0356 umjesto 0359, zato što marclint 9 prijavljuje kao grešku
103    
104  marc('035','6',  marc('035','6',
105  join_with('',          join_with('',
106  #               config('input normalize path'),                  uc( config() ),
107  #               config('name'),                  ' P',
                 config(),  
                 'L',  
 #               config('input name'),  
 #               id(),  
 #               rec('994','a'),  
108                  rec('000')                  rec('000')
109          )          )
110  );  );
111    
 # u marc 035a treba dodati System Number -  
 # NSK zapisuje Voyagerov ID (001) - kako ???  
   
 # u FFSF bazama postoji nekoliko zaredanih ISBN, odvojenih s '. - '  
112    
113  marc('020','a',  ### 040
114          rec('10')  # za sve je isti
115  );  # treba utvrditi točnu oznaku za ustanovu
   
 marc('022','a',  
         rec('11')  
 );  
   
 # u polje 040a možda još dodati prefiks HR  
 # NSK ima HR NSB (možda u novijim zapisima ima NSK?)  
116    
117  marc('040','a',  marc('040','a',
118          'HR FFZG'          'HR FFZG'
# Line 66  marc('040','e', Line 126  marc('040','e',
126          'HR PPIAK'          'HR PPIAK'
127  );  );
128    
129  # if (rec('300') && first(rec('300')) =~ m/Prijevod/) {  ### 041 - indikatori
 #       marc_indicators('041', 1, ' ');  
 # } else {  
 #       marc_indicators('041', 0, ' ');  
 # }  
130    
131  ## naci primjer u NSK  marc_indicators('041', 0, ' ');
132    
133    ### 041
134    
135  marc_repeatable_subfield('041','a',  marc_repeatable_subfield('041','a',
136          rec('101')          rec('101')
137  );  );
138    
139    
140    #_debug(3);
141    
142    ### 044 - zemlja izdavanja
143    
144    marc('044','a',
145            rec('102')
146    );
147    
148    ### 080
149    
150    marc('080','a',
151            rec('675','a')
152    );
153    
154    ### 210 indikatori
155    
156    # marc_indicators('210', '1',' ');
157    
158    ### 210
159    # pronaći priladan izvor podataka (nsk baza, issn baza)
160    
161    
162    ## iz nsk
163    #if ( rec('11') ) {
164    #marc('210','a',
165    #       lookup(
166    #               sub { rec('531','a') },
167    #               'nsk','bbaza',
168    #               sub { rec('011','a') },
169    #               sub { rec('11') },
170    #       )
171    #);
172    #}
173    
174    ### 222 indikatori
175    # drugi indikator prema članu
176    
177    marc_indicators('222',' ','0');
178    
179    ### 222 - Key title
180    # pronaći prikadan izvor podataka - nsk baza, issn baze
181    
182    marc('222','a',
183            rec('530')
184    );
185    
186    # iz nsk:
187    #if ( rec('11') ) {
188    #marc('222','a',
189    #       lookup(
190    #               sub { rec('530','a') },
191    #               'nsk','bbaza',
192    #               sub { rec('011','a') },
193    #               sub { rec('11') },
194    #       )
195    #);
196    #}
197    
198    ### 245 indikatori
199    # generiraju se prema članu i jeziku. potrebna naknadna kontrola.
200    
201  if (    ( rec('200','a') =~ m/^Die /) ||  if (    ( rec('200','a') =~ m/^Die /) ||
202          ( rec('200','a') =~ m/^Das /) ||          ( rec('200','a') =~ m/^Das /) ||
203          ( rec('200','a') =~ m/^The /) ) {          ( rec('200','a') =~ m/^The /) ) {
# Line 87  if (   ( rec('200','a') =~ m/^Die /) || Line 206  if (   ( rec('200','a') =~ m/^Die /) ||
206          marc_indicators('245', 0, 0);          marc_indicators('245', 0, 0);
207  }  }
208    
209  #_debug(3);  
210    ### 245
211    
212  marc_compose('245',  marc_compose('245',
213          'a', suffix(          'a', suffix(
214                  rec('200','b') ? '. '   :                  ( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' / ' :  
215                  rec('200','k') ? ' ; '  :                  ( rec('200','d') ) ? ' = ' :
216                  rec('200','d') ? ' = '  :                  ( rec('200','e') ) ? ' : ' :
217                  rec('200','e') ? ' : '  :                  ( rec('200','k') ) ? ' ; ' :
218                  rec('200','f') ? ' / '  :                          '',
219                                   '.',                          rec('200','a'),
                         rec('200','a')  
220          ),          ),
         'h', rec('200','b'),  
221          'b', suffix(          'b', suffix(
222                  ( rec('200','k') && rec('200','f') ) ? ' / ' :                  ( rec('200','d') && rec('200','f') ) ? ' / ' :
223                                                         ' ',                  ( rec('200','d') && rec('200','c') ) ? '. '  :
224                          join_with(' ; ',                          '',
225                                  rec('200','k'),                          rec('200','d'),
                         ),  
226          ),          ),
227          'b', suffix(          'b', suffix(
228                  ( rec('200','d') && rec('200','f') ) ? ' / ' :                  ( rec('200','e') && rec('200','f') ) ? ' / ' :
229                                                         ' ',                  ( rec('200','e') && rec('200','c') ) ? '. '  :
230                                  rec('200','d'),                          '',
231                            rec('200','e'),
232          ),          ),
233          'b', suffix(          'b', suffix(
234                  ( rec('200','e') && rec('200','f') ) ? ' / ' :                  ( rec('200','k') && rec('200','f') ) ? ' / ' :
235                                                         ' ',                  ( rec('200','k') && rec('200','c') ) ? '. '  :
236                          join_with(' : ',                          '',
237                                  rec('200','e'),                          rec('200','k'),
                         ),  
238          ),          ),
239            'c', suffix(
240  # ovo trenutno radi za slučaj kad f nije ponovljivo i kad uvijek postoje c i f u paru !!!                  ( rec('200','f') && rec('200','c') ) ? '. ' :
241          'c', join_with('. ',                          '',
242                  rec('200','f'),                          rec('200','f'),
                 rec('200','c'),  
243          ),          ),
244  # FIXME append to last subfield          '+', rec('200','c'),
245  #       '+', prefix('. ', rec('200','c') ),  );
246    
247    ### 246 inikatori
248    # prema jeziku - provjera
249    
250    if (    ( rec('200','a') =~ m/^Die /) ||
251            ( rec('200','a') =~ m/^Das /) ||
252            ( rec('200','a') =~ m/^The /) ) {
253                    marc_indicators('246', 0, 4);
254    } else {
255            marc_indicators('246', 0, 0);
256    }
257    
258    ### 246
259    # povući podatke iz prikladnog izvora (nsk, issn)
260    
261    marc('246','a',
262            rec('532')
263  );  );
264    
265    ## iz nsk:
266    #       marc('246','a',
267    #               lookup(
268    #                       sub { rec('532','a') },
269    #                       'nsk','bbaza',
270    #                       sub { rec('011','a') },
271    #                       sub { rec('11') },
272    #               )
273    #       );
274    
275  #_debug(0);  #_debug(0);
276    
 marc('250','a',  
         suffix(  
                 rec('205','f') ? ' / ' :  
                                  ' '.  
                         rec('205','a')  
         )  
 );  
277    
278  marc('250','b',  ## 260 - izdavanje
279          rec('205','f')  # provjeriti interpunkcije !!, u NSK nesto ne stima
 );  
280    
281  # ponovljiva potpolja u originalnom redosljedu  marc_original_order('260','210');
282  #  
283  marc_original_order('260', '210');  ## lookup u NSK:
284    # if ( rec('11') ) {
285    #       marc_repeatable_subfield('260','a',
286    #               lookup(
287    #                       sub { rec('210','a') },
288    #                       'nsk','bbaza',
289    #                       sub { rec('011','a') },
290    #                       sub { rec('11') },
291    #               )
292    #       );
293    #       marc_repeatable_subfield('260','b',
294    #               lookup(
295    #                       sub { rec('210','c') },
296    #                       'nsk','bbaza',
297    #                       sub { rec('011','a') },
298    #                       sub { rec('11') },
299    #               )
300    #       );
301    #       marc('260','c',
302    #               lookup(
303    #                       sub { rec('210','d') },
304    #                       'nsk','bbaza',
305    #                       sub { rec('011','a') },
306    #                       sub { rec('11') },
307    #               )
308    #       );
309    # } else {
310    #       marc_original_order('260', '210');
311    # }
312    
313    
314  # provjeriti interpunkcije !!  ### 300
 # u NSK nesto ne stima  
315    
316  marc('300','a',  marc('300','a',
317          suffix(          suffix(
318                  rec('215','c')  ?  ' : ' :                  ( rec('215','a') && rec('215','c') )    ?  ' : ' :
319                  rec('215','d')  ?  ' ; ' :                  ( rec('215','a') && rec('215','d') )    ?  ' ; ' :
320                  rec('215','e')  ?  ' + ' :                  ( rec('215','a') && rec('215','e') )    ?  ' + ' :
321                                     ' ',                                     ' ',
322                          rec('215','a')                          rec('215','a')
323          )          )
# Line 184  marc('300','e', Line 344  marc('300','e',
344          rec('215','e')          rec('215','e')
345  );  );
346    
347    ### 310 - current stated publication frequency
348    # potrebno ujednačiti, polje 008?
349    
350  # provjeriti  marc('310','a',
351            rec('326')
 marc_indicators('490', 0, ' ');  
   
 marc('490','a',  
         rec('225','a')  
352  );  );
353    
354  marc('490','v',  ### 321 - former frequency of either an item or an update to an item when a current frequency is contained in field 310
         join_with(', ',  
                 rec('225','v'),  
                 rec('225','w')  
         ),  
 );  
355    
356  marc('490','x',  # marc('321','a',
357          rec('225','x')  #       ovo bi trebalo procitati iz NSK konvertiranih podataka
 );  
   
 #marc('490','a',  
 #       join_with(' : ',  
 #               rec('225','a'),  
 #               join_with(" =  ",  
 #                       rec('225','d'),  
 #                       join_with(" / ",  
 #                               rec('225','e'),  
 #                               rec('225','f')  
 #                       )  
 #               )  
 #       )  
358  #);  #);
359    
360  #marc('490','v',  marc_indicators('362', 0, ' ');
 #       join2_with(225, 'v', ' , ', 225,'w');  
 #       join_with(', ',  
 #               rec('225','v'),  
 #               rec('225','w')  
 #       )  
 #);  
361    
362  #marc('500','a',  ### 362
 #       rec('300')  
 #);  
 #  
 #marc('500','a',  
 #       rec('314')  
 #);  
363  #  #
364  #marc('504','a',  if ( rec('207','a') ) {
365  #       rec('320')          marc('362','a',
366  #);                  rec('207','a'),
   
 ## napomene uz konverziju polja 327 (sadrzaj):  
 # NSK konvertira 327 (NP) u 501 (R)  
 # u LOC konv. tablici stoji 327 (NP) u 505 (NR)  
 # standard i validacije dopuštaju 501 (R) i 505 (R)  
   
 ## FFPS 327 - sadrzaj  
 if ( config() =~ m/ffps/ || config() =~ m/fftu/ ) {  
         marc_indicators('505', '1', ' ');  
         marc('505','a',  
                 regex('s/\s*[\\r\\n]+\s*\**\s*/ ; /g',  
                         rec('327')  
                 )        
 );  
 }  
   
   
 ## napomene uz konverziju polja 330:  
 # NSK konvertira 330 (P) u 520 (P) = LOC konv. tablica  
   
   
 # FFPS 330 (NP) - sažetak  
 if ( config() =~ m/ffps/ ) {  
         marc('520','a',  
                 regex('s/[\\r\\n]+/. /g',  
                         rec('330')  
                 )        
367          );          );
368  }  }
369    
370  # FFTU 330 - ???  ## lookup iz nsk
371  if ( config() =~ m/fftu/ ) {  #else {
372          marc('520','a',  #       if ( rec('11') ) {
373                  rec('330')  #               marc('362','a',
374          );  #                       lookup(
375  }  #                               sub { rec('207','a') },
376    #                               'nsk','bbaza',
377    #                               sub { first( rec('011','a') ) },
378    #                               sub { rec('11') },
379    #                       )
380    #               );
381    #       }
382    #}
383    
384    ### 490 ind.
385    
386  # možda i polje 520y - jezik napomene ako je uvijek isti jezik  marc_indicators('490', '0', ' ');
387    
388  marc_indicators('246', 1, 3);  ### 490
 marc('246','a',  
         rec('532')  
 );  
389    
390  marc_indicators('655', ' ', 4);  marc('490','a',
391  marc('655','a',          join_with('. ',
392          rec('608')                  join_with(' / ',
393                            join_with(' : ',
394                                    join_with(' = ',
395                                            rec('225','a'),
396                                            rec('225','d')
397                                    ),
398                                    rec('225','e')
399                            ),
400                            join_with(' ; ',
401                                    rec('225','f'),
402                                    rec('225','g')
403                            ),
404                    ),
405                    rec('225','h')
406            )
407  );  );
408    
409  marc_indicators('653', 0, ' ');  marc('490','v',
410  marc('653','a',          rec('225','v')
         rec('610')  
411  );  );
412    
413  # 675 podpolja c, d ... - što s njima ???  marc('490','x',
414            rec('225','x')
 marc('080','a',  
         rec('675','a')  
415  );  );
416    
417  # 084 je other classification (R)  #if ( rec('225','a') && rec('11') ) {
418  # NSK ga koristi za stručnu oznaku NSK iz polja 681  #       marc('999','a',
419  # NSK definira i prelazak polja 686 u 084, u skladu s LOC konv. tablicom  #               lookup(
420  #  #                       sub { rec('110','a'), },
421  # polje 686 koristi FFPS  #                       'nsk','bbaza',
422    #                       sub { rec('011','a') },
423    #                       sub { rec('11') }
424    #               )
425    #       );
426    #}
427    
 marc('084','a',  
         rec('686')  
 );  
428    
 marc_indicators('100', 1, ' ');  
 marc('100','a',  
         join_with(', ',  
                 rec('700', 'a'),  
                 rec('700', 'b')  
         )  
 );  
429    
430  #_debug(2);  ### 5xx
431    # koje podatke povući iz drugih baza?
432    
433  marc_indicators('700', 1, ' ');  marc('500','a',
434            rec('300','a'),
435    );
436    
437    
438  if ( rec('701') ) {  ### 534 - napomena o pretisku
 marc('700','4',  
         'aut'  
 );  
 }  
439    
440  marc('700','a',  marc('534','a',
441          join_with(', ',          rec('324')
                 rec('701', 'a'),  
                 rec('701', 'b')  
         )  
442  );  );
443    
444  marc('700','a',  ## potencijalno za izvući iz NSK
445          join_with(', ',  #if ( rec('11') ) {
446                  rec('701', 'c'),  #marc('546','a',
447                  rec('701', 'd')  #       lookup(
448          )  #               sub { rec('302','a') },
449  );  #               'nsk','bbaza',
450    #               sub { rec('011','a') },
451    #               sub { rec('11') },
452    #       )
453    #);
454    #
455    #marc('550','a',
456    #       lookup(
457    #               sub { rec('314','a') },
458    #               'nsk','bbaza',
459    #               sub { rec('011','a') },
460    #               sub { rec('11') },
461    #       )
462    #);
463    #
464    #marc('555','a',
465    #       lookup(
466    #               sub { rec('320','a') },
467    #               'nsk','bbaza',
468    #               sub { rec('011','a') },
469    #               sub { rec('11') },
470    #       )
471    #);
472    #
473    #
474    ## marc('562','a',
475    ##      lookup(
476    ##              sub { rec('316','a') },
477    ##              'nsk','bbaza',
478    ##              sub { rec('011','a') },
479    ##              sub { rec('11') },
480    ##      )
481    ## );
482    #}
483    
484  marc('700','a',  ### 653 indikatori
485          join_with(', ',  marc_indicators('653', 0, ' ');
                 rec('701', 'e'),  
                 rec('701', 'f')  
         )  
 );  
486    
487  marc('700','a',  ### 653
488          join_with(', ',  
489                  rec('701', 'g'),  marc('653','a',
490                  rec('701', 'h')          rec('610')
         )  
491  );  );
492    
493    # marc_indicators('655', ' ', 4);
494    # marc('655','a',
495    #       lookup(
496    #               sub { rec('608','a') },
497    #               'nsk','bbaza',
498    #               sub { rec('011','a') },
499    #               sub { rec('11') },
500    #       )
501    # );
502    
 marc('700','a',  
         rec('702','a'),  
 );  
503    
504    #_debug(2);
505    
506  # ako je u originalu ponovljivo polje treba biti i konvertirano u ponovljivo !!  ### 700 indikatori
507    
508    marc_indicators('700', 1, ' ');
509    
510  marc('700','a',  ### 700
         join_with(', ',  
                 rec('702','c'),  
                 rec('702','d')  
         )  
 );  
511    
512  marc('700','a',  marc('700','a',
513          join_with(', ',          rec('702','a'),
                 rec('702','e'),  
                 rec('702','f')  
         )  
514  );  );
515    
516  marc('700','a',  marc('700','a',
517          join_with(', ',          join_with(', ',
518                  rec('702','g'),                  rec('702','c'),
519                  rec('702','h')                  rec('702','d')
520          )          )
521  );  );
522    
523    
524  #_debug(0);  #_debug(0);
525    
526    ### 710 indikatori
527    
528  if ( rec('710','f') ) {  marc_indicators('710', '2', ' ');
529    
530  marc_indicators('111', 2, ' ');  ### 710
531  marc('111','a',  marc('710','a',
532          rec('710','a')          rec('710','a')
533  );  );
534    
535  marc('111','c',  ### 770 indikatori
         rec('710','e')  
 );  
536    
537  marc('111','d',  marc_indicators('770', 0, ' ');
         rec('710','f')  
 );  
538    
539  marc('111','e',  ### 770
540          rec('710','b')  marc('770','t',
541            rec('421','a'),
542  );  );
543    
544  marc('111','n',  ### 772 indikatori
545          rec('710','d')  marc_indicators('772', 0, ' ');
546    
547    ### 772
548    marc('772','t',
549            rec('422','a'),
550  );  );
551    
552    ### 777 indikatori
553    
554  } else {  marc_indicators('777', 0, ' ');
           
 marc_indicators('110', 2, ' ');  
 marc('110','a',  
         rec('710','a')  
 );  
555    
556  marc('110','c',  ### 777
557          rec('710','c')  marc('777','t',
558            rec('423','a'),
559  );  );
560    
561  };  ### 780 indikatori
562    
563    marc_indicators('780', 0, 0);
564    
565  marc_indicators('740', 0, ' ');  ### 780
566    marc('780','t',
567  if ( ! rec('464') ) {          rec('430','a'),
 marc('740','a',  
         rec('200','c')  
568  );  );
569    
570  marc('740','a',  ### 785 indikatori
         rec('200','k')  
 );  
571    
572  } else {  marc_indicators('785', 0, 0);
 marc('740','a',  
         rec('464','a')  
 );  
 };  
573    
574  marc('500','a',  ### 785
575          lookup(  marc('785','t',
576                  sub { rec('304','a') },          rec('440','a'),
                 'nsk','baza',  
                 sub { rec('200','a') },  
         )  
577  );  );
578    
579  marc('500','a',  ### 852
580          lookup(  
581                  sub { rec('306','a') },  marc('852','j',
582                  'nsk','baza',          join_with(' ',
583                  sub { rec('200','a') },                  rec('990')
584          )          )
585  );  );
586    
587  marc('500','a',  ### 876
588          lookup(  
589                  sub { rec('314','a') },  marc('876','a',
590                  'nsk','baza',          rec('991','a')
                 sub { rec('200','a') },  
         )  
591  );  );
592    
593  marc('500','a',  ### 992
594          lookup(  
595                  sub { rec('316','a') },  marc('992','a',
596                  'nsk','baza',          join_with(' ; ',
597                  sub { rec('200','a') },                  rec('992')
         )  
 );  
   
 marc('504','a',  
         lookup(  
                 sub { rec('320','a') },  
                 'nsk','baza',  
                 sub { rec('200','a') },  
         )  
 );  
   
 marc('900','a',  
         sort(  
                 lookup(  
                         sub { rec('000') },  
                         'ffps','peri',  
                         sub { rec('200','a') },  
                 )  
598          )          )
599  );  );
600    
601  }  
602    ### polja za probu
603    
604    
605    #marc('998','a',
606    #       lookup(
607    #               sub { rec('200','a') },
608    #               'ffiz','peri',
609    #               sub { rec('200','a'), },
610    #               sub { rec('225','a'), }
611    #       )
612    #);
613    
614    
615    # marc('997','a',
616    #       sort(
617    #               lookup(
618    #                       sub { rec('001') },
619    #                       'nsk','bbaza',
620    #                       sub { rec('011','a') },
621    #                       sub { rec('11') },
622    #               )
623    #       )
624    # );
625    #
626    # marc('998','a',
627    #       sort(
628    #               lookup(
629    #                       sub { rec('001') },
630    #                       'nsk','bbaza',
631    #                       sub { first(rec('200','a')) . first(rec('200','e')) },
632    #                       sub { rec('200','a') . rec('200','e') },
633    #               )
634    #       )
635    # );
636    #
637    # marc('998','a',
638    #       sort(
639    #               lookup(
640    #                       sub { rec('001') },
641    #                       'nsk','bbaza',
642    #                       sub { first(rec('200','a')) },
643    #                       sub { rec('200','a') },
644    #               )
645    #       )
646    # );
647    
648    } # 200a
Legend:
Removed from v.773  
changed lines
  Added in v.905
  ViewVC Help
Powered by ViewVC 1.1.26