/[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 890 by dpavlin, Thu Sep 6 19:12:31 2007 UTC revision 1182 by mglavica, Mon May 18 17:37:06 2009 UTC
# Line 1  Line 1 
1  if ( rec('200','a') ) {  if ( rec('200','a') ) {
2    
3    ### LEADER
4    
5  # LEADER  ## LDR 05 - n - new
 # raspraviti 17,18  
   
6  marc_leader('05','n');  marc_leader('05','n');
7    
8    ## LDR 06 - a - language material
9  marc_leader('06','a');  marc_leader('06','a');
10    
11    ## LDR 07 - Bibliographic level
12    #  izvuci podatke iz tablice (za po i sf)
13    
14  if ( rec('225','a') ) {  if ( rec('225','a') ) {
15          marc_leader('07','b');          marc_leader('07','d');  
16  } else {  } else {
17          marc_leader('07','s');          marc_leader('07','s');  
18  }  }
19    
20    ## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
21    marc_leader('17','u');
22    
23    ## LDR 18 - i - isbd
24  marc_leader('18','i');  marc_leader('18','i');
25    
26    
27    ## LDR 19 - Multipart resource record level ; # - Not specified or not applicable, a - Set, b - Part with independent title, c - Part with dependent title
28    # tematski brojevi imaju vezu u
29    
30  if ( rec('225','a') ) {  if ( rec('225','a') ) {
31          marc_leader('19','r');          marc_leader('19','a');
32  }  }
33    
34  # 001 polje - Voyager  ### 008 - All materials
35    
36  # 007  marc_fixed('008','00', '010101');       # 00-05 - Date entered on file
 marc_fixed('007',00,'ta');  
37    
38    ## za 008 06 treba i lookup u tablicu gdje postoji podatak o tome jel tekuci casopis ili nije?
39    ## c - Continuing resource currently published
40    ## d - Continuing resource ceased publication
41    
42    my $year = rec('210','c');
43    
44    #if ( rec('210','c') ) {
45    #       marc_fixed('008','06','s');             # 06 - Type of date/Publication status, s = single know date
46    #      
47    ##      warn "## year = $year";
48    #
49    #       if ( $year =~ m/^(\d{4})/ ) {
50    ##      warn "## $1 ##\n";
51    #               marc_fixed('008','07',$1);              # 07-10 - Date 1
52    #       }
53    #
54    #       if ( $year =~ m/^\d{4}-(\d{4})/ ) {
55    ##      warn "## $1 ##";
56    #               marc_fixed('008','11',$1);              # 11-14 - Date 2
57    #               marc_fixed('008','06','d');
58    #       }
59    #      
60    #} else {
61    #       marc_fixed('008','06','n');             # 06 - n = unknown date
62    #}
63    
64  ## 008 - All materials  if ( rec('210','c') ) {
65  marc_fixed('008','00', '070707');       # Date entered on file          my $d1 = '';
66  marc_fixed('008','06', 's');            # Type of date/Publication status          my $d2 = '';
67  if ( rec('11') ) {          if ( rec('210','c') =~ m/(\d{4})-/ ) {
68          if ( my $lookup = lookup(                  marc_fixed('008','06','m');
69                          sub { rec('210','d') },                  if ( rec('210','c') =~ m/(\d{4})-/ ) {
70                          'nsk','bbaza',                          $d1 = $1;
71                          sub { first( rec('011','a') ) },                          $d2 = '9999';
72                          sub { rec('11') },                  }
73                  )                  if ( rec('210','c') =~ m/-(\d{4})/ ) {
74          ) {                          $d2 = $1;
75                  marc_fixed('008','07', $lookup);                  }
76          } else {          } else {
77                  marc_fixed('008','07',                  marc_fixed('008','06','s');
78                          rec('210','d')                  if ( rec('210','c') =~ m/(\d{4})/ ) {
79                  );                          $d1 = $1;
80                    }
81                    if ( rec('210','c') =~ m/(\d{2})(--|__)/ ) {
82                            $d1 = $1.'uu';
83                    }
84                    if ( rec('210','c') =~ m/(\d{3})(-|_)/ ) {
85                            $d1 = $1.'u';
86                    }
87          }          }
88  }                                       # Date 1          marc_fixed('008','07',$d1);             # 07-10 - Date 1
89  marc_fixed('008','11', ' ');            # Date 2          marc_fixed('008','11',$d2);             # 07-10 - Date 1
90  marc_fixed('008','15',  } else {
91            marc_fixed('008','06','n');             # 06 - n = unknown date
92            marc_fixed('008','07','uuuu');
93    }
94    
95    marc_fixed('008','15',                  # 15-17 - Place of publication, production, or execution
96          lc ( rec('102') )          lc ( rec('102') )
97  );                              # Place of publication, production, or execution  );
98  #marc_fixed('008','35',  
 #       rec('101')  
 #);                             # Language  
 marc_fixed('008','38', '|');    # Modified record  
 marc_fixed('008','39','d');     # Cataloging source  
99    
100    
101  ## 008 - Continuing resources  marc_fixed('008','35',
102  marc_fixed('008','18', '|');    # Frequency          first( lc(rec('101')) )         # 35-37 - Language
103  marc_fixed('008','19', '|');    # Regularity  );
104  marc_fixed('008','21', 'p');    # Type of continuing resource                                          # 38 - Modified record
105  marc_fixed('008','29', '|');    # Conference publication                                          # 39 - Cataloging source
 marc_fixed('008','33', '|');    # Original alphabet or script of title  
 marc_fixed('008','34', '|');    # Entry convention  
106    
107    ### 008 - Continuing resources
108    
 ## 022  
109  if ( ! rec('225','a') ) {  if ( ! rec('225','a') ) {
110    
111    marc_fixed('008','18', 'u');    # 18 - Frequency - ovo treba popuniti iz polja 326
112    marc_fixed('008','19', 'u');    # 19 - Regularity
113                                    # 20 - Undefined, ontains a blank (#) or fill character (|)
114    
115    # za polje 008 21 treba lookup u tablicu:
116    marc_fixed('008','21', 'p');    # 21 - Type of continuing resource
117    
118                                    # 22 - Form of original item - blank
119                                    # 23 - Form of item
120                                    # 24 - Nature of entire work
121                                    # 25-27 - Nature of contents
122                                    # 28 - Government publication
123                                    # 29 - Conference publication
124                                    # 30-32 - Undefined
125                                    # 33 - Original alphabet or script of title
126                                    # 34 - Entry convention
127    }
128    
129    ## 022
130    # if ( ! rec('225','a') ) {
131    #       marc('022','a',
132    #               rec('11')
133    #       );
134    # }
135    #
136    
137    ### 022
138    
139    #if ( ! rec('225','a') ) {
140          marc('022','a',          marc('022','a',
141                  rec('11')                  rec('11')
142          );          );
143  }  #}
144    
145    ### 035$6
146  # 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
147    
148  marc('035','6',  my $id;
149    
150    $id = (
151          join_with('',          join_with('',
152                  uc( config() ),                  uc( config() ),
153                  ' P',                  ' P',
# Line 80  marc('035','6', Line 155  marc('035','6',
155          )          )
156  );  );
157    
158    marc('035','6', $id);
159    
160    ### 040
161    # za sve je isti
162    # treba utvrditi točnu oznaku za ustanovu
163    
164  marc('040','a',  marc('040','a',
165          'HR FFZG'          'HR FFZG'
# Line 93  marc('040','e', Line 173  marc('040','e',
173          'HR PPIAK'          'HR PPIAK'
174  );  );
175    
176    ### 041 - indikatori
177    
178  marc_indicators('041', 0, ' ');  marc_indicators('041', 0, ' ');
179    
180    ### 041
181    
182  marc_repeatable_subfield('041','a',  marc_repeatable_subfield('041','a',
183          rec('101')          rec('101')
184  );  );
# Line 102  marc_repeatable_subfield('041','a', Line 186  marc_repeatable_subfield('041','a',
186    
187  #_debug(3);  #_debug(3);
188    
189  ## 044 - zemlja izdavanja  ### 044 - zemlja izdavanja
190    
191  if ( rec('11') ) {  marc('044','a',
192          marc('044','a',          rec('102')
193                  lookup(  );
194                          sub { rec('102','a') },  
195                          'nsk','bbaza',  ### 080
                         sub { first( rec('011','a') ) },  
                         sub { rec('11') },  
                 ),  
         );  
 }  
196    
197  marc('080','a',  marc('080','a',
198          rec('675','a')          rec('675','a')
199  );  );
200    
201  marc_indicators('210', '1',' ');  ### 210 indikatori
202    # marc_indicators('210', '1',' ');
203    
204  if ( rec('11') ) {  ### 210 - ABBREVIATED TITLE
205  marc('210','a',  # pronaći prikladan izvor podataka (nsk baza, issn baza)
206          lookup(  
207                  sub { rec('531','a') },  ## iz nsk
208                  'nsk','bbaza',  #if ( rec('11') ) {
209                  sub { rec('011','a') },  #marc('210','a',
210                  sub { rec('11') },  #       lookup(
211          )  #               sub { rec('531','a') },
212  );  #               'nsk','bbaza',
213  }  #               sub { rec('011','a') },
214    #               sub { rec('11') },
215    #       )
216    #);
217    #}
218    
219    ### 222 indikatori
220    # drugi indikator prema članu
221    
222    marc_indicators('222',' ','0');
223    
224    ### 222 - Key title
225    # pronaći prikadan izvor podataka - nsk baza, issn baze
226    
 marc_indicators('222',' ','0');         # drugi indikator prema članu  
 if ( rec('11') ) {  
227  marc('222','a',  marc('222','a',
228          lookup(          rec('530')
                 sub { rec('530','a') },  
                 'nsk','bbaza',  
                 sub { rec('011','a') },  
                 sub { rec('11') },  
         )  
229  );  );
230  }  
231    # iz nsk:
232    #if ( rec('11') ) {
233    #marc('222','a',
234    #       lookup(
235    #               sub { rec('530','a') },
236    #               'nsk','bbaza',
237    #               sub { rec('011','a') },
238    #               sub { rec('11') },
239    #       )
240    #);
241    #}
242    
243  ### 245 indikatori  ### 245 indikatori
244    # generiraju se prema članu, trebalo bi možda i prema jeziku (jezika nema uvijek).
245    # potrebna naknadna kontrola
246    
247    marc_indicators('245', 0, 0);
248    
249  if (    ( rec('200','a') =~ m/^Die /) ||  if (    ( rec('200','a') =~ m/^Die /) ||
250          ( rec('200','a') =~ m/^Das /) ||          ( rec('200','a') =~ m/^Das /) ||
251            ( rec('200','a') =~ m/^Der /) ||
252            ( rec('200','a') =~ m/^Les /) ||
253          ( rec('200','a') =~ m/^The /) ) {          ( rec('200','a') =~ m/^The /) ) {
254                  marc_indicators('245', 0, 4);                  marc_indicators('245', 0, 4);
 } else {  
         marc_indicators('245', 0, 0);  
 }  
255    
256    }
257    
258    if (    ( rec('200','a') =~ m/^Un /) ||
259            ( rec('200','a') =~ m/^An /) ||
260            ( rec('200','a') =~ m/^La /) ||
261            ( rec('200','a') =~ m/^Le /) ||
262            ( rec('200','a') =~ m/^Il /) ) {
263                    marc_indicators('245', 0, 3);
264    }
265    
266    if (    ( rec('200','a') =~ m/^A /) ||
267            ( rec('200','a') =~ m/^L'/) ) {
268                    marc_indicators('245', 0, 2);
269    }
270    
271    ### 245
272    
 ## 245  
273  marc_compose('245',  marc_compose('245',
274          'a', suffix(          'a', suffix(
275                  ( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' / ' :                    ( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' /' :  
276                  ( rec('200','d') ) ? ' = ' :                  ( rec('200','d') ) ? ' =' :
277                  ( rec('200','e') ) ? ' : ' :                  ( rec('200','e') ) ? ' :' :
278                  ( rec('200','k') ) ? ' ; ' :                  ( rec('200','k') ) ? ' ;' :
279                          '',                          '',
280                          rec('200','a'),                          rec('200','a'),
281          ),          ),
282          'b', suffix(          'b', suffix(
283                  ( rec('200','d') && rec('200','f') ) ? ' / ' :                  ( rec('200','d') && rec('200','f') ) ? ' /' :
284                  ( rec('200','d') && rec('200','c') ) ? '. '  :                  ( rec('200','d') && rec('200','c') ) ? '.'  :
285                          '',                          '',
286                          rec('200','d'),                          rec('200','d'),
287          ),          ),
288          'b', suffix(          'b', suffix(
289                  ( rec('200','e') && rec('200','f') ) ? ' / ' :                  ( rec('200','e') && rec('200','f') ) ? ' /' :
290                  ( rec('200','e') && rec('200','c') ) ? '. '  :                  ( rec('200','e') && rec('200','c') ) ? '.'  :
291                          '',                          '',
292                          rec('200','e'),                          rec('200','e'),
293          ),          ),
294          'b', suffix(          'b', suffix(
295                  ( rec('200','k') && rec('200','f') ) ? ' / ' :                  ( rec('200','k') && rec('200','f') ) ? ' /' :
296                  ( rec('200','k') && rec('200','c') ) ? '. '  :                  ( rec('200','k') && rec('200','c') ) ? '.'  :
297                          '',                          '',
298                          rec('200','k'),                          rec('200','k'),
299          ),          ),
300          'c', suffix(          'c', suffix(
301                  ( rec('200','f') && rec('200','c') ) ? '. ' :                  ( rec('200','f') && rec('200','c') ) ? '.' :
302                          '',                          '',
303                          rec('200','f'),                          rec('200','f'),
304          ),          ),
305          '+', rec('200','c'),          '+', suffix('.',
306                    rec('200','c'),
307            )
308  );  );
309    
310  ## 246  ### 246 inikatori
311    # prema jeziku - provjera
312    
313  if (    ( rec('200','a') =~ m/^Die /) ||  if (    ( rec('200','a') =~ m/^Die /) ||
314          ( rec('200','a') =~ m/^Das /) ||          ( rec('200','a') =~ m/^Das /) ||
315          ( rec('200','a') =~ m/^The /) ) {          ( rec('200','a') =~ m/^The /) ) {
# Line 200  if (   ( rec('200','a') =~ m/^Die /) || Line 318  if (   ( rec('200','a') =~ m/^Die /) ||
318          marc_indicators('246', 0, 0);          marc_indicators('246', 0, 0);
319  }  }
320    
321    ### 246
322    # povući podatke iz prikladnog izvora (nsk, issn)
323    
324  if ( rec('532') ) {  marc('246','a',
325          marc('246','a',          rec('532')
326                  rec('532')  );
         );  
 }  
327    
328  #else {  ## iz nsk:
329  #       marc('246','a',  #       marc('246','a',
330  #               lookup(  #               lookup(
331  #                       sub { rec('532','a') },  #                       sub { rec('532','a') },
# Line 216  if ( rec('532') ) { Line 334  if ( rec('532') ) {
334  #                       sub { rec('11') },  #                       sub { rec('11') },
335  #               )  #               )
336  #       );  #       );
 #}  
337    
338  #_debug(0);  #_debug(0);
339    
340    
341  ## 260 - izdavanje  ## 260 - izdavanje
342    # provjeriti interpunkcije !!, u NSK nesto ne stima
343    
344    marc_original_order('260','210');
345    
346    ## lookup u NSK:
347  # if ( rec('11') ) {  # if ( rec('11') ) {
348  #       marc_repeatable_subfield('260','a',  #       marc_repeatable_subfield('260','a',
349  #               lookup(  #               lookup(
# Line 252  if ( rec('532') ) { Line 373  if ( rec('532') ) {
373  #       marc_original_order('260', '210');  #       marc_original_order('260', '210');
374  # }  # }
375    
 marc_original_order('260','210');  
376    
377  # provjeriti interpunkcije !!  ### 300
 # u NSK nesto ne stima  
378    
379  marc('300','a',  marc('300','a',
380          suffix(          suffix(
# Line 288  marc('300','e', Line 407  marc('300','e',
407          rec('215','e')          rec('215','e')
408  );  );
409    
410  ## 310 - current stated publication frequency  ### 310 - current stated publication frequency
411    # potrebno ujednačiti, koristi se i u polju 008
412    
413  marc('310','a',  marc('310','a',
414          rec('326')          rec('326')
415  );  );
416    
417  ## 321 - former frequency of either an item or an update to an item when a current frequency is contained in field 310  ### 321 - former frequency of either an item or an update to an item when a current frequency is contained in field 310
418    
419  # marc('321','a',  # marc('321','a',
420  #       ovo bi trebalo procitati iz NSK konvertiranih podataka  #       ovo bi trebalo procitati iz NSK konvertiranih podataka
421  #);  #);
422    
423  marc_indicators('362', 0, ' ');  marc_indicators('362', 0, ' ');
424    
425    ### 362
426  ## 362  #
427  if ( rec('207','a') ) {  if ( rec('207','a') ) {
428          marc('362','a',          marc('362','a',
429                  rec('207','a'),                  rec('207','a'),
430          );          );
431  } else {  }
         if ( rec('11') ) {  
                 marc('362','a',  
                         lookup(  
                                 sub { rec('207','a') },  
                                 'nsk','bbaza',  
                                 sub { first( rec('011','a') ) },  
                                 sub { rec('11') },  
                         )  
                 );  
         }  
 }  
432    
433  ## 5xx  ## lookup iz nsk
434  marc('500','a',  #else {
435          rec('300','a'),  #       if ( rec('11') ) {
436  );  #               marc('362','a',
437    #                       lookup(
438    #                               sub { rec('207','a') },
439  marc('534','a',  #                               'nsk','bbaza',
440          rec('324')  #                               sub { first( rec('011','a') ) },
441    #                               sub { rec('11') },
442    #                       )
443    #               );
444    #       }
445    #}
446    
447    ### 490 ind.
448    
449    marc_indicators('490', '0', ' ');
450    
451    ### 490
452    
453    marc('490','a',
454            join_with('. ',
455                    join_with(' / ',
456                            join_with(' : ',
457                                    join_with(' = ',
458                                            rec('225','a'),
459                                            rec('225','d')
460                                    ),
461                                    rec('225','e')
462                            ),
463                            join_with(' ; ',
464                                    rec('225','f'),
465                                    rec('225','g')
466                            ),
467                    ),
468                    rec('225','h')
469            )
470  );  );
471    
472  if ( rec('11') ) {  marc('490','v',
473  marc('546','a',          rec('225','v')
         lookup(  
                 sub { rec('302','a') },  
                 'nsk','bbaza',  
                 sub { rec('011','a') },  
                 sub { rec('11') },  
         )  
474  );  );
475    
476  marc('550','a',  marc('490','x',
477          lookup(          rec('225','x')
                 sub { rec('314','a') },  
                 'nsk','bbaza',  
                 sub { rec('011','a') },  
                 sub { rec('11') },  
         )  
478  );  );
479    
480  marc('555','a',  if ( rec('11') ) {
481          lookup(          marc('999','a',
482                  sub { rec('320','a') },                  lookup(
483                  'nsk','bbaza',                          sub { rec('110','a'), },
484                  sub { rec('011','a') },                          'nsk','bbaza',
485                  sub { rec('11') },                          sub { rec('011','a') },
486          )                          sub { rec('11') }
487                    )
488            );
489    }
490    
491    
492    #marc('998','a',
493    #       lookup(
494    #               sub { rec('H') },
495    #               'ffsf','xls',
496    #               sub { rec('A') },
497    #               sub { $id },
498    #       ),
499    #);
500    
501    
502    ### 5xx
503    # koje podatke povući iz drugih baza?
504    
505    marc('500','a',
506            rec('300','a'),
507  );  );
508    
509    
510    ### 534 - napomena o pretisku
511    
512  # marc('562','a',  marc('534','a',
513            rec('324')
514    );
515    
516    ## potencijalno za izvući iz NSK
517    #if ( rec('11') ) {
518    #marc('546','a',
519  #       lookup(  #       lookup(
520  #               sub { rec('316','a') },  #               sub { rec('302','a') },
521  #               'nsk','bbaza',  #               'nsk','bbaza',
522  #               sub { rec('011','a') },  #               sub { rec('011','a') },
523  #               sub { rec('11') },  #               sub { rec('11') },
524  #       )  #       )
525  # );  #);
526  }  #
527    #marc('550','a',
528    #       lookup(
529    #               sub { rec('314','a') },
530    #               'nsk','bbaza',
531    #               sub { rec('011','a') },
532    #               sub { rec('11') },
533    #       )
534    #);
535    #
536    #marc('555','a',
537    #       lookup(
538    #               sub { rec('320','a') },
539    #               'nsk','bbaza',
540    #               sub { rec('011','a') },
541    #               sub { rec('11') },
542    #       )
543    #);
544    #
545    #
546    ## marc('562','a',
547    ##      lookup(
548    ##              sub { rec('316','a') },
549    ##              'nsk','bbaza',
550    ##              sub { rec('011','a') },
551    ##              sub { rec('11') },
552    ##      )
553    ## );
554    #}
555    
556    ### 653 indikatori
557  marc_indicators('653', 0, ' ');  marc_indicators('653', 0, ' ');
558    
559    ### 653
560    
561  marc('653','a',  marc('653','a',
562          rec('610')          rec('610')
563  );  );
# Line 386  marc('653','a', Line 575  marc('653','a',
575    
576  #_debug(2);  #_debug(2);
577    
578    ### 700 indikatori
579    
580  marc_indicators('700', 1, ' ');  marc_indicators('700', 1, ' ');
581    
582    ### 700
583    
584  marc('700','a',  marc('700','a',
585          rec('702','a'),          rec('702','a'),
586  );  );
# Line 402  marc('700','a', Line 595  marc('700','a',
595    
596  #_debug(0);  #_debug(0);
597    
598    ### 710 indikatori
599    
600  marc_indicators('710', '2', ' ');  marc_indicators('710', '2', ' ');
601    
602    ### 710
603  marc('710','a',  marc('710','a',
604          rec('710','a')          rec('710','a')
605  );  );
606    
607    ### 770 indikatori
608    
609  marc_indicators('770', 0, ' ');  marc_indicators('770', 0, ' ');
610    
611    ### 770
612  marc('770','t',  marc('770','t',
613          rec('421','a'),          rec('421','a'),
614  );  );
615    
616    ### 772 indikatori
617  marc_indicators('772', 0, ' ');  marc_indicators('772', 0, ' ');
618    
619    ### 772
620  marc('772','t',  marc('772','t',
621          rec('422','a'),          rec('422','a'),
622  );  );
623    
624    ### 773 indikatori
625    
626    if ( rec('225','a') ) {
627    
628    marc_indicators('773', 0, ' ');
629    
630    ### 773
631    ## da li je bitan redoslijed potpolja?
632    
633    marc('773','w',
634            lookup(
635                    sub { rec('000') },
636                    'ffsf','peri',
637                    sub { rec('200','a') },
638                    sub {
639                            regex('s/ ; //g',
640                                    rec('225','a')
641                            )
642                    },
643            )
644    );
645    
646    }
647    
648    
649    ### 777 indikatori
650    
651  marc_indicators('777', 0, ' ');  marc_indicators('777', 0, ' ');
652    
653    ### 777
654    
655  marc('777','t',  marc('777','t',
656          rec('423','a'),          rec('423','a'),
657  );  );
658    
659    ### 780 indikatori
660    
661  marc_indicators('780', 0, 0);  marc_indicators('780', 0, 0);
662    
663    ### 780
664  marc('780','t',  marc('780','t',
665          rec('430','a'),          rec('430','a'),
666  );  );
667    
668    ### 785 indikatori
669    
670  marc_indicators('785', 0, 0);  marc_indicators('785', 0, 0);
671    
672    ### 785
673  marc('785','t',  marc('785','t',
674          rec('440','a'),          rec('440','a'),
675  );  );
676    
677    ### 852
678    
679  marc('852','j',  marc('852','j',
680          join_with(' ',          join_with(' ',
681                  rec('990')                  rec('990')
682          )          )
683  );  );
684    
685    ### 876
686    
687  marc('876','a',  marc('876','a',
688          rec('991','a')          rec('991','a')
689  );  );
690    
691    ### 992
692    
693  marc('992','a',  marc('992','a',
694          join_with(' ; ',          join_with(' ; ',
695                  rec('992')                  rec('992')
696          )          )
697  );  );
698    
699    
700    ### polja za probu
701    
702    
703    #marc('998','a',
704    #       lookup(
705    #               sub { rec('200','a') },
706    #               'ffiz','peri',
707    #               sub { rec('200','a'), },
708    #               sub { rec('225','a'), }
709    #       )
710    #);
711    
712    
713  # marc('997','a',  # marc('997','a',
714  #       sort(  #       sort(
# Line 483  marc('992','a', Line 743  marc('992','a',
743  #       )  #       )
744  # );  # );
745    
746  }  }# 200a
Legend:
Removed from v.890  
changed lines
  Added in v.1182
  ViewVC Help
Powered by ViewVC 1.1.26