git.rot13.org Git - webpac2/blob - conf/normalize/ff-nakladnicka.pl

   1 if (
   2         rec('225','a')  # da li je nakladnicka cjelina?
   3         &&              # i
   4         count( lookup(
   5                 sub { 1 },
   6                 'ffsf','blibri',
   7                 sub {
   8                         join_with('',
   9                                 rec('225','a'),
  10                                 rec('210','a'),
  11                                 rec('210','b'),
  12                         )
  13                 }
  14         ) ) > 1
  15 ) {
  16
  17 my $series_key =
  18 join_with('',
  19         rec('225','a'),
  20         rec('210','a'),
  21         rec('210','b'),
  22 );
  23
  24 my $series = get( $series_key );
  25
  26 if ($series) {
  27         warn "nije novi";
  28 } else {
  29
  30
  31 $series = join_with(' ',
  32         config(),
  33         'LS',
  34         rec('000')
  35 );
  36
  37 set( $series_key => $series );
  38
  39 # Leader
  40 marc_leader('05','n');
  41 marc_leader('06','a');
  42 marc_leader('07','s');
  43 marc_leader('18','i');
  44
  45 marc('035','6', $series );
  46
  47 marc('040','a',
  48         'HR FFZG'
  49 );
  50
  51 marc('040','b',
  52         'hrv'
  53 );
  54
  55 marc('040','e',
  56         'HR PPIAK'
  57 );
  58
  59 marc_indicators('041', 0, ' ');
  60
  61 marc_repeatable_subfield('041','a',
  62         rec('101')
  63 );
  64
  65 # indikatori za èlanove !!
  66
  67 marc_indicators('245', 0, 0);
  68
  69 if (    ( rec('200','a') =~ m/^Die /) ||
  70         ( rec('200','a') =~ m/^Das /) ||
  71         ( rec('200','a') =~ m/^The /) ) {
  72                 marc_indicators('245', 0, 4);
  73 }
  74
  75 if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) )
  76         {
  77                 marc_indicators('245', 0, 2);
  78 }
  79
  80 # treba dodati ostala polja za naslov ... !!!
  81
  82 marc('245','a',
  83         join_with(' : ',
  84                 rec('225','a'),
  85                 rec('225','e')
  86         ),
  87 );
  88
  89 marc('245','n',
  90         rec('225','h'),
  91 );
  92
  93 marc('245','p',
  94         rec('225','i'),
  95 );
  96
  97
  98 marc_original_order('260', '210');
  99
 100 marc_remove('260','c');
 101
 102 marc('300','c',
 103         suffix(
 104                 rec('215','e') ? ' + ' :
 105                                  ' ',
 106                         rec('215','d')
 107
 108         )
 109 );
 110
 111 marc('900','a',
 112         lookup(
 113                 sub { rec('702','a') . ', ' . rec('702','b') },
 114                 'nsk','baza',
 115                 sub { rec('200','a') . rec('210','a') . rec('210','c') },
 116                 sub {
 117                         regex('s/[:|,]//g',
 118                                 rec('225','a') . rec('210','a') . rec('210','b')
 119                         );
 120                 },
 121         )
 122 );
 123
 124 marc_duplicate();
 125 marc_remove('*');
 126
 127
 128 } # $series
 129
 130 }