git.rot13.org Git - webpac2/blob - conf/hpm/knjige.pl

   1 # Ova datoteka sadrzi pravila za generiranje MARC21 ISO 2709 izlazne
   2 # datoteke. Ulazni format je CDS/ISIS izvorni format, sa zapisima u
   3 # UNIMARC formatu, koji sadrzi visestruka odstupanja od standarda.
   4
   5 ## konvertira se ako postoji polje 200^a
   6 if ( rec('200','a') ) {
   7
   8 ### LEADER
   9
  10 ## LDR 05 - n - new
  11 marc_leader('05','n');
  12
  13 ## LDR 06 - a - language material
  14 marc_leader('06','a');
  15
  16 ## LDR 07 - m - Monograph/item
  17 marc_leader('07','m');
  18
  19 ## LDR 17 - Encoding level ; 7 - minimal level, u - unknown
  20 marc_leader('17','u');
  21
  22 ## LDR 18 - i - isbd
  23 marc_leader('18','i');
  24
  25 ## LDR 19 - Multipart resource record level ; # - Not specified or not applicable, a - Set, b - Part with independent title, c - Part with dependent title
  26
  27 ### 003
  28 marc_fixed('003','00','HR-ZaHPM');
  29
  30 ### 008 - All materials
  31 ## dodati sve moguce slucajeve za datum, popuniti ono sto nedostaje
  32
  33 if ( rec('100') ) {
  34         marc_fixed('008','00',
  35                 regex('s/^\d\d//',
  36                         rec('100')
  37                 ),
  38         );
  39         marc_fixed('008','02',
  40                 regex('s/^\d\d\d\d//',
  41                         rec('100')
  42                 ),
  43         );
  44 } else {
  45         marc_fixed('008','00',
  46                 '000000'
  47         );
  48 }
  49
  50
  51 ## 008 06 - Type of date/Publication status
  52
  53 marc_fixed('008','06',
  54         's'
  55 );
  56
  57 ## 008 07-10 - Date 1
  58 ## 008 11-14 - Date 2
  59 ## 210d kroz modify postaje 210c
  60
  61 if ( rec('210','c') ) {
  62         my $d1 = '';
  63         my $d2 = '    ';
  64         if ( rec('210','c') =~ m/(\d{4})-/ ) {
  65                 marc_fixed('008','06','m');
  66                 if ( rec('210','c') =~ m/(\d{4})-/ ) {
  67                         $d1 = $1;
  68                         $d2 = '9999';
  69                 }
  70                 if ( rec('210','c') =~ m/-(\d{4})/ ) {
  71                         $d2 = $1;
  72                 }
  73         } else {
  74                 marc_fixed('008','06','s');
  75                 if ( rec('210','c') =~ m/(\d{4})/ ) {
  76                         $d1 = $1;
  77                 }
  78                 if ( rec('210','c') =~ m/(\d{2})(--|__)/ ) {
  79                         $d1 = $1.'uu';
  80                 }
  81                 if ( rec('210','c') =~ m/(\d{3})(-|_)/ ) {
  82                         $d1 = $1.'u';
  83                 }
  84         }
  85
  86         marc_fixed('008','07',$d1);             # 07-10 - Date 1
  87         marc_fixed('008','11',$d2);             # 07-10 - Date 1
  88
  89 } else {
  90         marc_fixed('008','06','n');             # 06 - n = unknown date
  91         marc_fixed('008','07','uuuu');
  92         marc_fixed('008','11','    ');          # 07-10 - Date 1
  93 }
  94
  95
  96 ## 008 15-17 - Place of publication, production, or execution - ako nema 102, popunjava se s |
  97 marc_fixed('008','15',
  98         rec('102')
  99 );
 100
 101 ## 008 35-37 - Language
 102 if ( frec('101','a') =~ m/(\w\w\w)/ ) {
 103         marc_fixed('008','35', $1 );
 104 }
 105
 106 ## 008 38 - Modified record
 107 marc_fixed('008','38','|');
 108
 109 ## 008 39 - Cataloging source - d (other)
 110 marc_fixed('008','39','d');
 111
 112 ### 008 - Books
 113 ## 008 18-21 - Illustrations
 114 if ( rec('215','c') && rec('215','c') =~ m/ilustr/ ) {
 115         marc_fixed('008','18','a')
 116 }
 117
 118 ## 008 22 - Target audience
 119 marc_fixed('008','22','|');
 120
 121 ## 008 23 - Form of item
 122 marc_fixed('008','23','|');
 123
 124 ## 008 24-27 - Nature of contents
 125 marc_fixed('008','24','||||');
 126
 127 ## 008 28 - Government publication
 128 marc_fixed('008','28','|');
 129
 130 ## 008 29 - Conference publication
 131 marc_fixed('008','29','|');
 132
 133 ## 008 30 - Festschrift
 134 marc_fixed('008','30','|');
 135
 136 ## 008 31 - Index
 137 marc_fixed('008','31','|');
 138
 139 ## 008 32 - Undefined
 140 ## 008 33 - Literary form
 141 marc_fixed('008','33','|');
 142
 143 ## 008 34 - Biography
 144 marc_fixed('008','34','|');
 145
 146 ### 020
 147 ## postoji modify za polje 10 -> drugi ISBN pocinje prefixom "ISBN" koji se mice (pr. u sfb)
 148 #if ( frec('10') ne ( frec('290') ) ) {
 149         if ( rec('10','a') !~ /pogre/ ) {
 150                 marc('020','a',
 151                         # isbn_13(
 152                                 regex('s/\s\s/ /g',
 153                                 # regex('s/\(\d\)\(/$1 \(//g',
 154                                         rec('10','a')
 155                                 )
 156                         # )
 157                 );
 158         }
 159         if ( rec('10','a') =~ /pogre/ ) {
 160                 marc('020','z',
 161                         regex('s/\s\s/ /g',
 162                                 rec('10','a')
 163                         )
 164                 );
 165         }
 166         marc('020','z',
 167                 rec('10','z')
 168         );
 169 #}
 170
 171 ### 035
 172 ## marc 035a - System Number
 173 ## polje moze sadrzavati slova i razmake
 174 ## moguc problem u pretrazivanju ako ima zagrade, kako bi trebalo po standardu
 175
 176 marc('035','a',
 177 join_with('',
 178         # config('input normalize path'),
 179         # config('name'),
 180         '(HR-ZaHPM)',
 181         # config(),
 182         # config('input name'),
 183         # id(),
 184         # rec('994','a'),
 185         rec('000')
 186         )
 187 );
 188
 189 ### 040
 190 ## za sve je isti
 191
 192 marc('040','a',
 193         'HR-ZaHPM'
 194 );
 195 marc('040','b',
 196         'hrv'
 197 );
 198 marc('040','c',
 199         'HR-ZaHPM'
 200 );
 201 marc('040','e',
 202         'ppiak'
 203 );
 204
 205 ### 041 - indikatori
 206 ## pretpostavke o indikatorima
 207 ## 1. Ako postoji polje 300 i ono sadrzi /Prijevod/ ili /Izv. stv. nasl./, i1 = 1
 208 ## (Da li je napomena uvijek pisana?)
 209 ## 2. Podatak o prevodiocu u 200g. Problem: razliciti oblici rijeci, razliciti jezici.
 210 ## 3. Ako u UDK oznaci postoji "=", bez zagrada, onda je to prijevod
 211 ## (ako postoje zagrade pr. 94(=411.16) onda su to pomocne oznake)
 212 ## pr. 821.111-2=163.42 je prijevod engleske drame na HR.
 213 ## to ima samo za knjizevna djela, eseje....
 214 ## ovo treba kasnije ispravljati
 215
 216 #if ( rec('675') =~ m/\d=\d/ ) ?
 217
 218 ### 041
 219 ## ponovljivo polje (101) konvertira se u ponovljivo potpolje (041a)
 220 ## koristi se kad ima vise od jednog jezika, ili kad se radi o prijevodu
 221 ## nadopuniti
 222
 223
 224 if ( ( count( rec('101','a') ) > 1 ) || ( rec('101','b') ) || ( rec('101','h') ) ) {
 225         marc_original_order('041','101');
 226         if ( ( grep( m/prijevod/i, rec('300') ) ) || ( rec('101','h') ) ) {
 227                 marc_indicators('041', 1, ' ');
 228         } else {
 229                 marc_indicators('041', ' ', ' ');
 230         }
 231 }
 232
 233
 234 ### 044
 235 ## koristi se kad ima vise zemalja izdavanja
 236
 237 ### 080 - UDK
 238
 239 marc('080','a',
 240         rec('675')
 241 );
 242
 243 ### 100
 244 ## I1 = 0 ako je pseudonim (ima 700a, nema 700b)
 245
 246 if ( rec('700','a') && ! rec('700','b') ) {
 247         marc_indicators('100', 0, ' ');
 248 } else {
 249         marc_indicators('100', 1, ' ');
 250 }
 251
 252 marc('100','a',
 253         join_with(', ',
 254                 rec('700','a'),
 255                 rec('700','b')
 256         )
 257 );
 258
 259 ### formalna odrednica - iz 503 u 110, i1=0, i2=1
 260
 261 # nadopuniti nakon konverzije
 262
 263
 264 ### 111 i 110
 265 ## konverzija u 110 ili 111 ovisno o postojanju/nepostojanju nekih polja
 266
 267 if ( ! rec('700') ) {
 268
 269 if ( rec('710','d') || rec('710','e') || rec('710','f') ) {
 270
 271         marc_indicators('111', 2, ' ');
 272
 273         if ( rec('710','d') ) {
 274                 marc_compose('111',
 275                         'a', suffix(
 276                                 ( rec('710','d') || rec('710','f') || rec('710','e') ) ? '' :
 277                                         '.',
 278                                         rec('710','a'),
 279                         ),
 280                         'n', surround( '(', ' :',
 281                                         rec('710','d'),
 282                         ),
 283                         'd', suffix(
 284                                 ( ! rec('710','d') ) ? ')' :
 285                                 ( ! rec('710','e') ) ? ')' :
 286                                         ' :',
 287                                         rec('710','f'),
 288                         ),
 289                         'c', suffix(')',
 290                                 rec('710','e'),
 291                         ),
 292                 );
 293         } else {
 294                 marc_compose('111',
 295                         'a', suffix(
 296                                 ( rec('710','d') || rec('710','f') || rec('710','e') ) ? '' :
 297                                         '.',
 298                                         rec('710','a'),
 299                         ),
 300                         'd', surround('(',' :',
 301                                         rec('710','f'),
 302                         ),
 303                         'c', suffix(')',
 304                                 rec('710','e'),
 305                         ),
 306                 );
 307         }
 308 } else {
 309         marc_indicators('110', 2, ' ');
 310         marc('110','a',
 311                 rec('710','a')
 312         );
 313         marc('110','b',
 314                 rec('710','b')
 315         );
 316         if ( rec('710','c') ) {
 317                 marc('110','c',
 318                         surround('(', ')', rec('710','c'))
 319                 );
 320         }
 321 }
 322
 323 }
 324
 325 ### 245 indikatori
 326 ## i1 = 0 za anonimne publikacije, i1 = 1 ako postoji 700 ili 710
 327 ## i2 = pretpostavlja se na temelju clana na pocetku naslova i jezika
 328
 329 my $titleind1;
 330
 331 if ( rec('700') || rec('710') ) {
 332         $titleind1 = 1;
 333 } else {
 334         $titleind1 = 0;
 335 }
 336
 337 marc_indicators('245', $titleind1, 0);
 338
 339 if ( rec('200','a') =~ m/^Einen / ) {
 340         marc_indicators('245', $titleind1, 6);
 341 }
 342 if ( rec('200','a') =~ m/^Eine / ) {
 343         marc_indicators('245', $titleind1, 5);
 344 }
 345 if ( rec('200','a') =~ m/^(Die|Das|Der|Ein|Les|Los|The) / ) {
 346         marc_indicators('245', $titleind1, 4);
 347 }
 348 if ( rec('200','a') =~ m/^(Um|Un|An|La|Le|Lo|Il) / ) {
 349         marc_indicators('245', $titleind1, 3);
 350 }
 351 if ( ( rec('101') =~ m/eng/ ) && ( rec('200','a') =~ m/^A / ) ) {
 352         marc_indicators('245', $titleind1, 2);
 353 }
 354 if ( rec('200','a') =~ m/^L / ) {
 355         marc_indicators('245', $titleind1, 2);
 356 }
 357 if ( rec('200','a') =~ m/^L'/ ) {
 358         marc_indicators('245', $titleind1, 2);
 359 }
 360
 361
 362 ### 245
 363 ## postoji modify
 364 ## da li treba makivati razmake u inicijalima?
 365
 366 #_debug(3);
 367
 368 marc_compose('245',
 369         'a', suffix(
 370                 ( ! ( rec('200','d') || rec('200','e') || rec('200','k') ) ) && ( rec('200','f') ) ? ' /' :
 371                 ( rec('200','d') ) ? ' =' :
 372                 ( rec('200','e') ) ? ' :' :
 373                 ( rec('200','k') ) ? ' ;' :
 374                         '.',
 375                         rec('200','a'),
 376         ),
 377         'b', suffix(
 378                 ( rec('200','d') && rec('200','f') ) ? ' /' :
 379                 ( rec('200','d') && rec('200','c') ) ? '.'  :
 380                         '',
 381                         rec('200','d'),
 382         ),
 383         'b', suffix(
 384                 ( rec('200','e') && rec('200','f') ) ? ' /' :
 385                 ( rec('200','e') && rec('200','c') ) ? '.'  :
 386                         '',
 387                         rec('200','e'),
 388         ),
 389         'b', suffix(
 390                 ( rec('200','k') && rec('200','f') ) ? ' /' :
 391                 ( rec('200','k') && rec('200','c') ) ? '.'  :
 392                         '',
 393                         rec('200','k'),
 394         ),
 395         'c', suffix(
 396                 ( rec('200','f') && rec('200','c') ) ? '. ' :
 397                         '',
 398                         join_with(' ; ',
 399                                 regex('s/(\S\.)\s(\S\.\s)/$1$2/g',
 400                                         rec('200','f'),
 401                                 ),
 402                                 regex('s/(\S\.)\s(\S\.\s)/$1$2/g',
 403                                         rec('200','g')
 404                                 )
 405                         )
 406         ),
 407         ## append to last subfield
 408         '+', suffix('.',
 409                 join_with(' / ',
 410                         rec('200','c'),
 411                         rec('200','x')
 412                 )
 413         ),
 414 );
 415
 416 #_debug(0);
 417
 418 ### 250
 419 ## zapisima koji nemaju potpolje, dodaje se ^a u modify - provjeriti za svaku bazu
 420 marc_compose('250',
 421         'a',suffix(
 422                 rec('205','f') ? ' / ' :
 423                         '',
 424                         rec('205','a')
 425         ),
 426         'b', rec('205','f'),
 427 );
 428
 429 ### 260
 430 ## ponovljiva potpolja u originalnom redosljedu - priprema u modify
 431 marc_original_order('260', '210');
 432
 433
 434 ### 300
 435 ## urediti interpunkcije za sve kombinacije
 436 marc('300','a',
 437         suffix(
 438                 rec('215','c') ? ' :' :
 439                 rec('215','d') ? ' ;' :
 440                 rec('215','e') ? ' +' :
 441                         '',
 442                         rec('215','a')
 443         )
 444 );
 445 marc('300','b',
 446         suffix(
 447                 ( rec('215','c') && rec('215','d') ) ? ' ;' :
 448                 ( rec('215','c') && rec('215','e') ) ? ' +' :
 449                         '',
 450                         rec('215','c')
 451         )
 452 );
 453 marc('300','c',
 454         suffix(
 455                 rec('215','e') ? ' +' :
 456                         '',
 457                         rec('215','d')
 458         )
 459 );
 460 marc('300','e',
 461         rec('215','e')
 462 );
 463
 464
 465 if ( rec('225') ) {
 466         marc_indicators('490', 0, ' ');
 467         marc('490','a',
 468                 rec('225','a')
 469         );
 470         marc('490','v',
 471                 rec('225','v')
 472         );
 473 }
 474
 475 # marc_indicators('830',' ','0');
 476 # i2 ovisi clanu - popraviti
 477 #
 478 # marc('830','a',
 479 #       regex('s/(^.*)\s\/\s(.*)/$1 ($2)/g',
 480 #               rec('225','a')
 481 #       )
 482 # );
 483
 484
 485 ### 830 - indikatori
 486 ## 2.ind. prema jeziku i clanu, uskladiti s 245
 487
 488 #marc_indicators('440', ' ', '0');
 489 #
 490 #if ( rec('225','a') =~ m/^Einen / ) {
 491 #               marc_indicators('440', ' ', 6);
 492 #}
 493 #
 494 #if ( rec('225','a') =~ m/^Eine / ) {
 495 #               marc_indicators('440', ' ', 5);
 496 #}
 497 #
 498 #if ( rec('225','a') =~ m/^(Die|Das|Der|Ein|Les|The) / ) {
 499 #               marc_indicators('440', ' ', 4);
 500 #}
 501 #
 502 #if ( rec('225','a') =~ m/^(Um|Un|An|La|Le|Il) / ) {
 503 #               marc_indicators('440', ' ', 3);
 504 #}
 505 #
 506 #if ( rec('225','a') =~ m/^(A|L') / ) {
 507 #               marc_indicators('440', ' ', 2);
 508 #}
 509
 510 #if (
 511 #       count( lookup(
 512 #               sub { 1 },
 513 #               'ffps','libri',
 514 #               sub { rec('225','a') }
 515 #       ) ) > 1
 516 #) {
 517
 518
 519 #_debug(0);
 520
 521
 522 ### 500
 523
 524 marc('500','a',
 525         rec('300')
 526 );
 527
 528 ### 502 - biljeska o disertacijama
 529 ## odgovarajuceg polja nema u originalnim podacima. mozda se moze pretpostaviti?
 530
 531 ### 504
 532 marc('504','a',
 533         rec('320')
 534 );
 535
 536
 537 ### 653 - Index Term-Uncontrolled
 538 ## da li ponovljivo polje ili potpolje, pogledati u Koha tags
 539 marc_indicators('653', ' ', ' ');
 540 marc('653','a',
 541         rec('610')
 542 );
 543
 544
 545
 546 ### 700
 547 ## ako je u originalu ponovljivo polje treba bioti i konvertirano u ponovljivo !!
 548 ## ako ima samo podpolje a onda je pseudonim - nakon konverzije treba provjeriti
 549
 550 if ( rec('701','a') ) {
 551         #_debug(3);
 552         marc_indicators('701', 1, ' '); # override original indicators
 553         marc_original_order('700','701');
 554         #_debug(0);
 555 }
 556
 557 my $relcode = rec('702','4');
 558 my $relcode_konv = {
 559         'autor' => 'aut',
 560         'autor dodatka' => 'wam',
 561         'autor fotografija' => 'pht',
 562         'autorica' => 'aut',
 563         'autorica i urednica' => 'aut edt',
 564         'autorica teksta' => 'aut',
 565         'autorica uvodnog teksta' => 'aui',
 566         'autor izložbe' => 'cur',
 567         'autor izložbe i fotografije' => 'cur pht',
 568         'autor kataloških jedinica' => 'aqt',
 569         'autorov suradnik' => 'oth',
 570         'autor popratnih tekstova i kataloga' => 'aqt',
 571         'autor predgovora' => 'aui',
 572         'autor projekta' => 'pdr',
 573         'autor projekta i urednik, izrada kazala' => 'pdr edt aqt',
 574         'autor teksta' => 'aut',
 575         'autor teksta i urednik' => 'aut edt',
 576         'autor tekstova u jednom poglavlju i autor fotografija' => 'aut pht',
 577         'autor uvoda' => 'aui',
 578         'bibliografski urednik' => 'pbd',
 579         'crtač geografskih karata' => 'ill',
 580         'crteži' => 'ill',
 581         'crteži karata' => 'ill',
 582         'dizajner' => 'dsr',
 583         'editor' => 'edt',
 584         'fotograf' => 'pht',
 585         'fotografija' => 'pht',
 586         'fotografije' => 'pht',
 587         'fotografije, engleski prijevod' => 'pht trl',
 588         'fotografije i crteži' => 'pht ill',
 589         'general editor' => 'edt',
 590         'GIS i izrada karata' => 'ctg',
 591         'glavna urednica' => 'edt',
 592         'glavni i odgovorni urednik' => 'edt',
 593         'glavni urednik' => 'edt',
 594         'ilustracije' => 'ill',
 595         'ilustracije i izrada karata' => 'ill ctg',
 596         'ilustrator' => 'ill',
 597         'ilustratorica' => 'ill',
 598         'izrada crteža' => 'ill',
 599         'izrada karata' => 'ill',
 600         'izrada karata antičkih prometnica' => 'ctg',
 601         'izrada kazala' => 'ant',
 602         'izvedba CD-ROMa' => 'oth',
 603         'kartograf' => 'ctg',
 604         'kolorirani bakropisi' => 'ill',
 605         'koncepcija' => 'ccp',
 606         'likovno-grafička oprema' => 'ill',
 607         'likovno oblikovanje' => 'ill',
 608         'obrada izvornih karata i izrada kartografskih originala' => 'ctg',
 609         'pisac predgovora' => 'aui',
 610         'pisac uvoda' => 'aui',
 611         'pomoćnica urednika' => 'edt',
 612         'pomoćnik glavnog urednika' => 'edt',
 613         'pomoćnik urednika' => 'edt',
 614         'pomoćni urednik' => 'edt',
 615         'predgovor' => 'aui',
 616         'predsjednik redakcijskog kolegija' => 'pbd',
 617         'prevoditelj' => 'trl',
 618         'prevoditeljica' => 'trl',
 619         ' prevoditeljica' => 'trl',
 620         'prevoditeljica i redaktorica' => 'trl',
 621         'priprema fotografija' => 'oth',
 622         'priređivač' => 'edt',
 623         'priređivač izdanja' => 'pbd',
 624         'redaktor' => 'oth',
 625         'savjetnik' => 'oth',
 626         'series editor' => 'pbd',
 627         'stručna suradnica' => 'ctb',
 628         'stručna suradnica i autorica teksta' => 'aut',
 629         'stručni koordinator' => 'oth',
 630         'stručni suradnik' => 'oth',
 631         'stručni suradnik i autor teksta' => 'aut',
 632         'stručni urednik' => 'edt',
 633         'suradnica' => 'oth',
 634         'suradnik' => 'oth',
 635         'tehnička realizacija CD-ROM-a' => 'oth',
 636         'tekstovi o muzejima' => 'aut',
 637         'tekstovi o zbirkama vjerskih zajednica' => 'aut',
 638         'urednica' => 'edt',
 639         'urednik' => 'edt',
 640         'urednik i autor' => 'edt aut',
 641         'urednik i urednik nakladničke cjeline' => 'edt pbd',
 642         'urednik izdanja' => 'edt',
 643         'urednik knjige i nakladničke cjeline' => 'edt',
 644         'urednik nakladničke cjeline' => 'pbd',
 645         'urednik pretiska' => 'edt',
 646         'urednik serije' => 'edt',
 647         'uvod' => 'aui',
 648         'zemljopisne karte' => 'ill',
 649         'zemljovidi' => 'ill',
 650         'zvučni snimci' => 'rce'
 651 };
 652
 653
 654 if ( rec('702','a') ) {
 655         marc_indicators('700', 1, ' ');
 656
 657         foreach my $repeat ( rec_array('702') ) {
 658                 my $sf_a = $repeat->{a} || die "702 doesn't have a ", dump( $repeat );
 659                 if ( my $sf_4 = $repeat->{4} ) {
 660                         my $relcode = $relcode_konv->{ $sf_4 } || die "no relcode_konv for ",dump( $sf_4 );
 661                         marc_compose('700',
 662                                 '4' => $relcode,
 663                                 'a' => $sf_a,
 664                         );
 665                 } else {
 666                         marc('700', 'a', $sf_a );
 667                 }
 668         }
 669 }
 670
 671 #_debug(0);
 672
 673 ## eventualno nadopuniti 710 i 711 - provjetiti da li u podacima postoji u ISIS-u
 674
 675 if ( rec('700') ) {
 676
 677 if ( rec('710','d') || rec('710','e') || rec('710','f') ) {
 678
 679 marc_indicators('711', 2, ' ');
 680
 681 marc_compose('711',
 682         'a', suffix(
 683                 rec('710','b') ? '.' :
 684                         '',
 685                         rec('710','a'),
 686         ),
 687         'e', rec('710','b'),
 688         'n', prefix(
 689                 rec('710','d') ? '(' :
 690                         '',
 691                         rec('710','d')
 692         ),
 693         'd', prefix(
 694                 ( ! rec('710','d') ) ? '(' :
 695                 ( ! rec('710','e') ) ? '(' :
 696                         '; ',
 697                         rec('710','f'),
 698         ),
 699         'c', prefix(
 700                 ( rec('710','e') && ( rec('710','d') || rec('710','f') ) ) ? '; ' :
 701                 ( ! rec('710','d') && ! rec('710','f') )  ? '(' :
 702                         '',
 703                         rec('710','e'),
 704         ),
 705         '+',')',
 706 );
 707 } else {
 708         marc_indicators('710', 2, ' ');
 709         marc('710','a',
 710                 rec('710','a')
 711         );
 712         marc('710','b',
 713                 rec('710','b')
 714         );
 715         if ( rec('710','c') ) {
 716                 marc('710','c',
 717                         surround('(', ')', rec('710','c'))
 718                 );
 719         }
 720 }
 721
 722 }
 723
 724
 725 ### 740 - Added Entry - Uncontrolled Related/Analytical Title
 726 ## raspraviti
 727 ## nadopuniti prvi indikator prema clanovima
 728 marc_indicators('740', '0', ' ');
 729
 730 # if ( ! rec('464') ) {
 731 # marc('740','a',
 732 #       rec('200','c')
 733 # );
 734
 735 #marc('740','a',
 736 #       rec('200','k')
 737 #);
 738
 739 # } else {
 740
 741 #marc('740','a',
 742 #       rec('464','a')
 743 #);
 744
 745 # };
 746
 747 ### 760 w ---------------------------------------------
 748 ## generiranje zapisa o nakladnickoj cjelini i povezivanje podredenog zapisa s nadredenim
 749
 750 #if (
 751 #       rec('225','a')  # da li je nakladnicka cjelina?
 752 #) {
 753
 754 #my $series_key =
 755 #join_with('',
 756 #       rec('225','a'),
 757 #       rec('210','a'),
 758 #       rec('210','b'),
 759 #);
 760 #
 761 #my $series = get( $series_key );
 762 #
 763 #if ($series) {
 764 #       warn "nije novi";
 765 #} else {
 766 #
 767 #$series = join_with('',
 768 #       uc( config() ),
 769 #       ' LS',
 770 #       rec('000')
 771 #);
 772 #
 773 #set( $series_key => $series );
 774 #
 775 #} # $series
 776 #} # nakladnicka cjelina
 777 #
 778 #my $series_key = join_with('',
 779 #       rec('225','a'),
 780 #       rec('210','a'),
 781 #       rec('210','b'),
 782 #);
 783 #
 784 #if ($series_key) {
 785 #
 786 #       marc_indicators('760', 0, ' ');
 787 #
 788 #       marc('760','t',
 789 #               rec('225','a')
 790 #       );
 791 #       marc('760','w',
 792 #               get( $series_key )
 793 #       );
 794 #}
 795
 796 # ## testing
 797 #
 798 # my $dup_key = join_with('',
 799 #       rec('200','a'),
 800 #);
 801 #
 802 #if ($dup_key) {
 803 #       marc('995','a',
 804 #               get( $dup_key )
 805 #       );
 806 #}
 807 #
 808 #
 809 # marc_indicators('776', 0, ' ');
 810 #
 811 # marc('776','a',
 812 #       rec('452','1')
 813 # );
 814 #
 815 # -------------------------------------------------------------------
 816
 817 ### 774 - Constituent Item Entry - to bi trebali koristiti ali ne koristimo jer NSK to koristi za nesto drugo
 818 ### 787 - Nonspecific Relationship Entry
 819
 820 #marc_indicators('787','0',' ');
 821 #
 822 #marc_compose('787',
 823 #       'g', rec('230','v'),
 824 #       't', rec('230','a'),
 825 #       'b', rec('240','a'),
 826 #       'd', rec('250','a'),
 827 #       'd', rec('250','d'),
 828 #       'h', rec('260','a'),
 829 #       'k', rec('270','a'),
 830 #       'n', join_with('. - ',
 831 #               rec('280'),
 832 #       ),
 833 #       'x', join_with(', ',
 834 #               rec('290'),
 835 #       )
 836 #);
 837 #marc_compose('787',
 838 #       'g', rec('231','v'),
 839 #       't', rec('231','a'),
 840 #       'b', rec('241','a'),
 841 #       'd', rec('251','a'),
 842 #       'd', rec('251','d'),
 843 #       'h', rec('261','a'),
 844 #       'k', rec('271','a'),
 845 #       'n', join_with('. - ',
 846 #               rec('281'),
 847 #       ),
 848 #       'x', join_with(', ',
 849 #               rec('291'),
 850 #       )
 851 #);
 852 #marc_compose('787',
 853 #       'g', rec('232','v'),
 854 #       't', rec('232','a'),
 855 #       'b', rec('242','a'),
 856 #       'd', rec('252','a'),
 857 #       'd', rec('252','d'),
 858 #       'h', rec('262','a'),
 859 #       'k', rec('272','a'),
 860 #       'n', join_with('. - ',
 861 #               rec('282'),
 862 #       ),
 863 #       'x', join_with(', ',
 864 #               rec('292'),
 865 #       )
 866 #);
 867 #marc_compose('787',
 868 #       'g', rec('233','v'),
 869 #       't', rec('233','a'),
 870 #       'b', rec('243','a'),
 871 #       'd', rec('253','a'),
 872 #       'h', rec('263','a'),
 873 #       'k', rec('273','a'),
 874 #       'n', join_with('. - ',
 875 #               rec('283'),
 876 #       ),
 877 #       'x', join_with(', ',
 878 #               rec('293'),
 879 #       )
 880 #);
 881
 882
 883 ### 852 - ne koristimo, koristimo  942 i 952
 884
 885 ### 876 - item information - basic bibliographic unit (R)
 886 ## da li ovdje zapisati stare inventarne brojeve?
 887 #marc('876','a',
 888 #       rec('991','t'),
 889 #);
 890
 891 ### 886 - former marc
 892 # inicijale treba prebaciti u neko lokalno polje, a ovo polje nam ne treba
 893 #
 894 # marc_indicators('886', 2, ' ');
 895 # marc('886','2',
 896 #       'ffmarc'
 897 # );
 898 # marc('886','a',
 899 #       '994'
 900 # );
 901 # marc('886','b',
 902 #       join_with(''.
 903 #               '##^a',
 904 #               join_with('',
 905 #                       prefix('^a',
 906 #                               rec('994','a'),
 907 #                       ),
 908 #                       prefix('^b',
 909 #                               rec('994','b')
 910 #                       )
 911 #               )
 912 #       )
 913 #);
 914
 915 ### KOHA items
 916
 917 marc('942','b',
 918         'LIB'
 919 );
 920
 921 marc('942','c',
 922         'K'
 923 );
 924
 925 marc('952','a',
 926         'HPM'
 927 );
 928 marc('952','b',
 929         'HPM'
 930 );
 931 marc('952','e',
 932         rec('991','a')
 933 );
 934 marc('952','t',
 935         rec('991','b')
 936 );
 937 marc('952','o',
 938         rec('990')
 939 );
 940
 941
 942
 943
 944
 945
 946 } # polje 200a