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