| 1 |
my $csigid = |
| 2 |
lookup( |
| 3 |
sub { rec('A') }, |
| 4 |
'casopisi','csigid', |
| 5 |
sub { rec('A') }, |
| 6 |
sub { rec('I') } |
| 7 |
); |
| 8 |
|
| 9 |
if ( ! $csigid ) { |
| 10 |
|
| 11 |
|
| 12 |
### LEADER |
| 13 |
|
| 14 |
## LDR 05 - n - new |
| 15 |
marc_leader('05','n'); |
| 16 |
|
| 17 |
## LDR 06 - a - language material |
| 18 |
marc_leader('06','a'); |
| 19 |
|
| 20 |
## LDR 07 - Bibliographic level |
| 21 |
marc_leader('07','s'); |
| 22 |
|
| 23 |
## LDR 17 - Encoding level ; 7 - minimal level, u - unknown |
| 24 |
marc_leader('17','u'); |
| 25 |
|
| 26 |
## LDR 18 - i - isbd |
| 27 |
marc_leader('18','i'); |
| 28 |
|
| 29 |
### 008 - All materials |
| 30 |
marc_fixed('008','00', '090820'); # 00-05 - Date entered on file |
| 31 |
|
| 32 |
## za 008 06 treba i lookup u tablicu u kojoj postoji podatak o tome jel tekuci casopis ili nije? |
| 33 |
## c - Continuing resource currently published |
| 34 |
## d - Continuing resource ceased publication |
| 35 |
|
| 36 |
marc_fixed('008','06','|'); # 06 - Type of date/Publication status, s = single know date, | = no attempt to code |
| 37 |
marc_fixed('008','07','||||'); |
| 38 |
marc_fixed('008','11','||||'); |
| 39 |
marc_fixed('008','15','xx '); |
| 40 |
# 18-34 - Material specific coded elements |
| 41 |
# 35-37 - Language |
| 42 |
marc_fixed('008','38','|'); # 38 - Modified record |
| 43 |
marc_fixed('008','39','d'); # 39 - Cataloging source |
| 44 |
|
| 45 |
### 008 - Continuing resources |
| 46 |
|
| 47 |
marc_fixed('008','18', '|'); # 18 - Frequency - ovo treba popuniti iz polja 326 |
| 48 |
marc_fixed('008','19', '|'); # 19 - Regularity |
| 49 |
# 20 - Undefined, ontains a blank (#) or fill character (|) |
| 50 |
|
| 51 |
marc_fixed('008','21', 'p'); # 21 - Type of continuing resource |
| 52 |
|
| 53 |
# 22 - Form of original item - blank |
| 54 |
# 23 - Form of item |
| 55 |
# 24 - Nature of entire work |
| 56 |
# 25-27 - Nature of contents |
| 57 |
# 28 - Government publication |
| 58 |
# 29 - Conference publication |
| 59 |
# 30-32 - Undefined |
| 60 |
# 33 - Original alphabet or script of title |
| 61 |
# 34 - Entry convention |
| 62 |
marc_fixed('008','22', ' '); |
| 63 |
marc_fixed('008','23', ' '); |
| 64 |
marc_fixed('008','24', '|'); |
| 65 |
marc_fixed('008','25', '|||'); |
| 66 |
marc_fixed('008','28', ' '); |
| 67 |
marc_fixed('008','29', '|'); |
| 68 |
marc_fixed('008','33', '|'); |
| 69 |
marc_fixed('008','34', '0'); |
| 70 |
|
| 71 |
### 022 |
| 72 |
|
| 73 |
marc('022','a', |
| 74 |
rec('F') |
| 75 |
); |
| 76 |
|
| 77 |
### 035$a |
| 78 |
|
| 79 |
marc('035','a', |
| 80 |
prefix('HR-ZaFF csig', |
| 81 |
rec('I') |
| 82 |
), |
| 83 |
); |
| 84 |
|
| 85 |
### 040 |
| 86 |
# za sve je isti |
| 87 |
# treba utvrditi toènu oznaku za ustanovu |
| 88 |
|
| 89 |
marc('040','a', |
| 90 |
'HR FFZG' |
| 91 |
); |
| 92 |
|
| 93 |
marc('040','b', |
| 94 |
'hrv' |
| 95 |
); |
| 96 |
|
| 97 |
marc('040','c', |
| 98 |
'HR-ZaFF' |
| 99 |
); |
| 100 |
|
| 101 |
marc('040','e', |
| 102 |
'ppiak' |
| 103 |
); |
| 104 |
|
| 105 |
|
| 106 |
#_debug(3); |
| 107 |
|
| 108 |
|
| 109 |
marc_indicators('245', 0, 0); |
| 110 |
|
| 111 |
if ( ( rec('E') =~ m/^Die /) || |
| 112 |
( rec('E') =~ m/^Das /) || |
| 113 |
( rec('E') =~ m/^Der /) || |
| 114 |
( rec('E') =~ m/^Les /) || |
| 115 |
( rec('E') =~ m/^The /) ) { |
| 116 |
marc_indicators('245', 0, 4); |
| 117 |
|
| 118 |
} |
| 119 |
|
| 120 |
if ( ( rec('E') =~ m/^Un /) || |
| 121 |
( rec('E') =~ m/^An /) || |
| 122 |
( rec('E') =~ m/^La /) || |
| 123 |
( rec('E') =~ m/^Le /) || |
| 124 |
( rec('E') =~ m/^Il /) ) { |
| 125 |
marc_indicators('245', 0, 3); |
| 126 |
} |
| 127 |
|
| 128 |
if ( ( rec('E') =~ m/^A /) || |
| 129 |
( rec('E') =~ m/^L'/) ) { |
| 130 |
marc_indicators('245', 0, 2); |
| 131 |
} |
| 132 |
|
| 133 |
### 245 |
| 134 |
|
| 135 |
my ($a,$b,$c); |
| 136 |
my $naslov = rec('E'); |
| 137 |
$c = $2 if $naslov =~ s{(\s+/)\s+(.+)$}{$1}; |
| 138 |
if ( $naslov =~ s{^(.+?[:=])\s+}{} ) { |
| 139 |
$a = $1; |
| 140 |
$b = $naslov ; |
| 141 |
} else { |
| 142 |
$a = $naslov ; |
| 143 |
} |
| 144 |
|
| 145 |
|
| 146 |
marc('245','a', $a); |
| 147 |
marc('245','b', $b) if $b; |
| 148 |
marc('245','c', $c); |
| 149 |
|
| 150 |
#if ( rec('E') =~ m/:/ ) { |
| 151 |
# marc('245','a', |
| 152 |
# suffix(' :', |
| 153 |
# regex('s/(^.*):.*/$1/', |
| 154 |
# rec('E') |
| 155 |
# ) |
| 156 |
# ) |
| 157 |
# ); |
| 158 |
# marc('245','b', |
| 159 |
# regex('s/^.*: (.*)/$1/', |
| 160 |
# rec('E') |
| 161 |
# ) |
| 162 |
# ); |
| 163 |
#} else { |
| 164 |
# marc('245','a', |
| 165 |
# rec('E') |
| 166 |
# ); |
| 167 |
#} |
| 168 |
|
| 169 |
marc('500','a', |
| 170 |
rec('H'), |
| 171 |
); |
| 172 |
|
| 173 |
|
| 174 |
### 866 |
| 175 |
marc_indicators('866',' ','0'); |
| 176 |
marc('866','a', |
| 177 |
rec('G') |
| 178 |
); |
| 179 |
|
| 180 |
|
| 181 |
### 942 |
| 182 |
|
| 183 |
marc('942','b', |
| 184 |
'PER' |
| 185 |
); |
| 186 |
|
| 187 |
marc('942','c', |
| 188 |
'PER' |
| 189 |
); |
| 190 |
|
| 191 |
marc('942','d', |
| 192 |
rec('C') |
| 193 |
); |
| 194 |
|
| 195 |
marc('942','i', |
| 196 |
rec('C') |
| 197 |
); |
| 198 |
|
| 199 |
} #csigid |
Parent Directory
| 
Revision Log