1 |
################################################################################## |
######################################################################### |
2 |
## Ova datoteka sadrži pravila za generiranje MARC21 ISO 2709 izlazne datoteke. ## |
## ## |
3 |
## Ulazni format je CDS/ISIS sa zapisima u UNIMARC-u. ## |
## Ova datoteka sadrži pravila za generiranje MARC21 ISO 2709 izlazne ## |
4 |
################################################################################## |
## datoteke. Ulazni format je CDS/ISIS sa zapisima u UNIMARC-u. ## |
5 |
|
## ## |
6 |
|
########################################################################## |
7 |
|
|
8 |
# konvertira se ako postoji polje 200^a |
# konvertira se ako postoji polje 200^a |
9 |
|
|
141 |
|
|
142 |
### 111 i 110 |
### 111 i 110 |
143 |
# provjeriti ispise naslova iz svake baze - moguće su greške. |
# provjeriti ispise naslova iz svake baze - moguće su greške. |
144 |
|
# ovo vrijedi za FFSFB |
145 |
|
|
146 |
if ( rec('710','f') ) { |
if ( rec('710','f') ) { |
147 |
|
|
148 |
marc_indicators('111', 2, ' '); |
marc_indicators('111', 2, ' '); |
|
marc('111','a', |
|
|
rec('710','a') |
|
|
); |
|
|
|
|
|
marc('111','c', |
|
|
rec('710','e') |
|
|
); |
|
149 |
|
|
150 |
marc('111','d', |
marc_compose('111', |
151 |
rec('710','f') |
'a', rec('710','a'), |
152 |
); |
'e', rec('710','b'), |
153 |
|
'n', rec('710','d'), |
154 |
marc('111','e', |
'd', rec('710','f'), |
155 |
rec('710','b') |
'c', rec('710','e'), |
|
); |
|
|
|
|
|
marc('111','n', |
|
|
rec('710','d') |
|
156 |
); |
); |
157 |
|
|
158 |
|
|
167 |
rec('710','c') |
rec('710','c') |
168 |
); |
); |
169 |
|
|
170 |
}; |
} |
171 |
|
|
172 |
|
|
173 |
### 245 indikatori |
### 245 indikatori |