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
  18 my $series_key =
  19 join_with('',
  20         rec('225','a'),
  21         rec('210','a'),
  22         rec('210','b'),
  23 );
  24
  25 my $series = get( $series_key );
  26
  27 if ($series) {
  28         warn "nije novi";
  29 } else {
  30
  31
  32 $series = join_with('',
  33         config(),
  34         'LS',
  35         rec('000')
  36 );
  37
  38 #set( $series_key => $series );
  39
  40 # Leader
  41 marc_leader('05','n');
  42 marc_leader('06','a');
  43 marc_leader('07','s');
  44 marc_leader('18','i');
  45
  46 ## 008
  47
  48 marc_fixed('008',00,
  49         '070401'
  50 );
  51
  52 marc_fixed('008','35',
  53         first( lc( rec('101') ) )
  54 );
  55
  56 marc('022','a',
  57         rec('225','x')
  58 );
  59
  60 marc('035','6', $series );
  61
  62 marc('040','a',
  63         'HR FFZG'
  64 );
  65
  66 marc('040','b',
  67         'hrv'
  68 );
  69
  70 marc('040','e',
  71         'HR PPIAK'
  72 );
  73
  74 marc_indicators('041', 0, ' ');
  75
  76 marc_repeatable_subfield('041','a',
  77         rec('101')
  78 );
  79
  80 # indikatori za 245
  81
  82 my $i1;
  83
  84 if ( rec('700') || rec('710') ) {
  85         $i1 = 1;
  86
  87 } else {
  88         $i1 = 0;
  89 }
  90
  91 marc_indicators('245', $i1, 0);
  92
  93 if (    ( rec('200','a') =~ m/^Die /) ||
  94         ( rec('200','a') =~ m/^Das /) ||
  95         ( rec('200','a') =~ m/^The /) ) {
  96                 marc_indicators('245', $i1, 4);
  97 }
  98
  99 if (    ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) {
 100                 marc_indicators('245', $i1, 2);
 101 }
 102
 103 if (    ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) {
 104                 marc_indicators('245', $i1, 2);
 105 }
 106
 107
 108 ## 245
 109
 110 marc_compose('245',
 111         'a', suffix(
 112                 ( ! rec('225','p') && ( rec('225','f') || rec('225','c') ) ) ? ' / ' :
 113                 ( rec('225','p') && rec('225','c') ) ? ' : '  :
 114                         '',
 115                         first(rec('225','a')),
 116         ),
 117         'b', suffix(
 118                 ( rec('225','p') && rec('225','f') ) ? ' / ' :
 119                 ( rec('225','p') && rec('225','c') ) ? '. '  :
 120                         '',
 121                         rec('225','p'),
 122         ),
 123         'c', suffix(
 124                 ( rec('225','f') && rec('225','c') ) ? '. ' :
 125                         '',
 126                         rec('225','f'),
 127         ),
 128 );
 129
 130 marc_original_order('260', '210');
 131
 132 marc_remove('260','c');
 133
 134 ## FIXME - UPISATI PODATAK U 260c
 135
 136 #_debug(2);
 137
 138 #marc('900','a',
 139 #       lookup(
 140 #               sub { rec('702','a') . ', ' . rec('702','b') },
 141 #               'nsk','baza',
 142 #               sub { rec('200','a') . rec('210','a') . rec('210','c') },
 143 #               sub { rec('225','a') . rec('210','a') . rec('210','b') },
 144 #       )
 145 #);
 146
 147 #_debug(0);
 148
 149 marc_duplicate();
 150 marc_remove('*');
 151
 152
 153 } # $series
 154
 155 }