43 |
marc_leader('07','c'); |
marc_leader('07','c'); |
44 |
marc_leader('18','i'); |
marc_leader('18','i'); |
45 |
|
|
46 |
|
## 008 |
47 |
|
|
48 |
|
marc_fixed('008','35', |
49 |
|
first( rec('101') ) |
50 |
|
); |
51 |
|
|
52 |
marc('035','6', $series ); |
marc('035','6', $series ); |
53 |
|
|
54 |
marc('040','a', |
marc('040','a', |
69 |
rec('101') |
rec('101') |
70 |
); |
); |
71 |
|
|
72 |
# indikatori za članove !! |
# indikatori za 245 |
73 |
|
|
74 |
marc_indicators('245', 0, 0); |
my $i1; |
75 |
|
|
76 |
if ( ( rec('225','a') =~ m/^Die /) || |
if ( rec('700') || rec('710') ) { |
77 |
( rec('225','a') =~ m/^Das /) || |
$i1 = 1; |
78 |
( rec('225','a') =~ m/^The /) ) { |
|
79 |
marc_indicators('245', 0, 4); |
} else { |
80 |
|
$i1 = 0; |
81 |
|
} |
82 |
|
|
83 |
|
marc_indicators('245', $i1, 0); |
84 |
|
|
85 |
|
if ( ( rec('200','a') =~ m/^Die /) || |
86 |
|
( rec('200','a') =~ m/^Das /) || |
87 |
|
( rec('200','a') =~ m/^The /) ) { |
88 |
|
marc_indicators('245', $i1, 4); |
89 |
} |
} |
90 |
|
|
91 |
if ( ( rec('225','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) |
if ( ( rec('200','a') =~ m/^A /) && ( rec(101) =~ m/ENG/ ) ) { |
92 |
{ |
marc_indicators('245', $i1, 2); |
|
marc_indicators('245', 0, 2); |
|
93 |
} |
} |
94 |
|
|
95 |
# treba dodati ostala polja za naslov ... !!! |
if ( ( rec('200','a') =~ m/^An /) && ( rec(101) =~ m/ENG/ ) ) { |
96 |
|
marc_indicators('245', $i1, 2); |
97 |
|
} |
98 |
|
|
|
marc('245','a', |
|
|
join_with(' : ', |
|
|
rec('225','a'), |
|
|
rec('225','e') |
|
|
), |
|
|
); |
|
99 |
|
|
100 |
marc('245','c', |
## 245 |
|
rec('225','f') |
|
|
); |
|
101 |
|
|
102 |
marc('245','n', |
marc('245', |
103 |
rec('225','h'), |
'a', suffix( |
104 |
|
( ! rec('225','b') && rec('225','f') ) ? ' / ' : |
105 |
|
rec('225','c') ? ' / ' : ' ', |
106 |
|
rec('225','a'), |
107 |
|
) |
108 |
); |
); |
109 |
|
marc('245', |
110 |
marc('245','p', |
'b', suffix( |
111 |
rec('225','i'), |
( rec('225','b') && rec('225','f') ) ? ' / ' : |
112 |
|
( rec('225','b') && rec('225','c') ) ? '. ' : |
113 |
|
' ', |
114 |
|
rec('225','b'), |
115 |
|
), |
116 |
|
); |
117 |
|
marc('245', |
118 |
|
'c', suffix( |
119 |
|
( rec('225','f') && rec('225','c') ) ? '. ' : |
120 |
|
' ', |
121 |
|
rec('225','f'), |
122 |
|
), |
123 |
); |
); |
|
|
|
124 |
|
|
125 |
marc_original_order('260', '210'); |
marc_original_order('260', '210'); |
126 |
|
|
127 |
marc_remove('260','c'); |
marc_remove('260','c'); |
128 |
|
|
129 |
marc('300','c', |
## FIXME - UPISATI PODATAK U 260c |
|
suffix( |
|
|
rec('215','e') ? ' + ' : |
|
|
' ', |
|
|
rec('215','d') |
|
|
|
|
|
) |
|
|
); |
|
130 |
|
|
131 |
#_debug(2); |
#_debug(2); |
132 |
marc('900','a', |
|
133 |
lookup( |
#marc('900','a', |
134 |
sub { rec('702','a') . ', ' . rec('702','b') }, |
# lookup( |
135 |
'nsk','baza', |
# sub { rec('702','a') . ', ' . rec('702','b') }, |
136 |
sub { rec('200','a') . rec('210','a') . rec('210','c') }, |
# 'nsk','baza', |
137 |
sub { rec('225','a') . rec('210','a') . rec('210','b') }, |
# sub { rec('200','a') . rec('210','a') . rec('210','c') }, |
138 |
) |
# sub { rec('225','a') . rec('210','a') . rec('210','b') }, |
139 |
); |
# ) |
140 |
|
#); |
141 |
|
|
142 |
#_debug(0); |
#_debug(0); |
143 |
|
|