Parent Directory | Revision Log | Patch
revision 562 by dpavlin, Sun Jul 2 16:14:41 2006 UTC | revision 563 by dpavlin, Sun Jul 2 18:36:22 2006 UTC | |
---|---|---|
# | Line 1 | Line 1 |
1 | # Leader | |
2 | ||
3 | if ( rec('999') && first(rec('999')) =~ m/pregledan/i) { | |
4 | marc_leader('05','c'); | |
5 | } else { | |
6 | marc_leader('05','n'); | |
7 | } | |
8 | ||
9 | marc_leader('06','a'); | |
10 | ||
11 | marc_leader('07','m'); | |
12 | ||
13 | marc_leader('18','i'); | |
14 | ||
15 | if ( rec('230') ) { | |
16 | marc_leader('19','r'); | |
17 | } | |
18 | ||
19 | # greška - 000 se ne zapisuje u marc: | |
20 | ||
21 | marc('001', | marc('001', |
22 | rec('000') | rec('000') |
23 | ); | ); |
# | Line 204 marc('110','c', | Line 224 marc('110','c', |
224 | } | } |
225 | ||
226 | # zapisi za duplanje | # zapisi za duplanje |
227 | # | |
228 | if ( rec('230') ) { | # if ( rec('230') ) { |
229 | # | |
230 | marc('245','a', | # marc('245','a', |
231 | rec('230','a') | # rec('230','a') |
232 | ); | # ); |
233 | # | |
234 | marc('245','b', | # marc('245','b', |
235 | rec('230','e') | # rec('230','e') |
236 | ); | # ); |
237 | # | |
238 | marc('245','c', | # marc('245','c', |
239 | rec('230','f') | # rec('230','f') |
240 | ); | # ); |
241 | # | |
242 | marc('245','n', | # marc('245','n', |
243 | rec('230','v') | # rec('230','v') |
244 | ); | # ); |
245 | # | |
246 | } | # } |
|
ViewVC Help | |
Powered by ViewVC 1.1.26 |