conf/normalize/ff-arti.pl

### Leader

marc_leader('05','n');
marc_leader('06','a');
#if ( rec('990') ) {
#       marc_leader('07','a');
#} else {
        marc_leader('07','b');
#};
marc_leader('18','i');

### 007
marc_fixed('007',00,'ta');

### 008

### 035
# privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku

marc('035','6',
join_with('',
                config('input normalize path'),
#               config('name'),
#               config('input name'),
#               config(),
#               id(),
#               rec('994','a'),
#               rec('000')
#       )
#);


### 020

marc('020','a',
        rec('10')
);

### 040

marc('040','a',
        'HR FFZG'
);

marc('040','b',
        'hrv'
);

marc('040','e',
        'HR PPIAK'
);

### 245 indikatori

marc_indicators('245', 0, 0);

#_debug(3);

marc_compose('245',
        'a', suffix(
                rec('203','b') ? '. '   :
                rec('203','k') ? ' ; '  :
                rec('203','d') ? ' = '  :
                rec('203','e') ? ' : '  :
                rec('203','f') ? ' / '  :
                                 '.',
                        join_with('. ',
                                rec('203','a')
                        )
        ),
        'h', rec('203','b'),
        'b', 
        join_with(' ; ',
                rec('203','k'),
        ),
        'b', 
        join_with(' = ',
                rec('203','d'), 
        ),
        'b', 
        join_with(' : ',
                rec('203','e'),
        ),
        'c', 
        join_with(' ; ',
                rec('203','f'),
        ),
        '+', prefix('. ', rec('203','c') ),
);

marc_original_order('260', '210');

marc('520','a',
        regex('s/[\\r\\n]+/. /g',
                rec('330')
        )
);

marc_indicators('653', ' ', ' ');
marc('653','a',
        rec('610')
);

# 675 podpolja c, d ... - ¹to s njima ???

marc('080','a',
        rec('675','a')
);

marc_indicators('100', 1, ' ');
marc('100','a',
        join_with(', ',
                rec('700', 'a'),
                rec('700', 'b')
        )
);

marc_indicators('700', 1, ' ');

if ( rec('701') ) { 
marc('700','4', 
        'aut'
); 
}

marc('700','a',
        rec('701', 'a'),
);

marc('700','a',
        join_with(', ',
                rec('701', 'c'),
                rec('701', 'd')
        )
);

marc('700','a',
        join_with(', ',
                rec('701', 'e'),
                rec('701', 'f')
        )
);

marc('700','a',
        join_with(', ',
                rec('701', 'g'),
                rec('701', 'h')
        )
);


marc('700','a',
        rec('702','a'),
);


# ako je u originalu ponovljivo polje treba biti i konvertirano!!


marc('700','a',
        join_with(', ',
                rec('702','c'),
                rec('702','d')
        )
);

marc('700','a',
        join_with(', ',
                rec('702','e'),
                rec('702','f')
        )
);

marc('700','a',
        join_with(', ',
                rec('702','g'),
                rec('702','h')
        )
);

#_debug(0);


if ( rec('710','f') ) {

marc_indicators('111', 2, ' ');
marc('111','a',
        rec('710','a')
);

marc('111','c',
        rec('710','e')
);

marc('111','d',
        rec('710','f')
);

marc('111','e',
        rec('710','b')
);

marc('111','n',
        rec('710','d')
);


} else {
        
marc_indicators('110', 2, ' ');
marc('110','a',
        rec('710','a')
);

marc('110','c',
        rec('710','c')
);

};

marc_indicators('773', 0, ' ');

marc('773','g',
        rec('200','x'),
);

marc('773','t',
        join_with(' : ',
                rec('200','a'),
                rec('200','e'),
        ),
);

marc('773','w',
        lookup(
                sub { 'ffkk-peri-' . rec('000') },
                'ffkk','peri',
                sub { rec('11') }
        ) ||
        lookup(
                sub { 'ffkk-peri-' . rec('000') },
                'ffkk','peri',
                sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
        ) ||

        lookup(
                sub { "ffkk-peri-" . rec('000') },
                'ffkk','peri',
                sub { rec(200,'a') },
#               sub { rec(900,'x') },
        )

);


1	dpavlin	1010	### Leader
2	dpavlin	751
3			marc_leader('05','n');
4			marc_leader('06','a');
5	dpavlin	1010	#if ( rec('990') ) {
6			# marc_leader('07','a');
7			#} else {
8	dpavlin	751	marc_leader('07','b');
9	dpavlin	1010	#};
10	dpavlin	751	marc_leader('18','i');
11
12	dpavlin	1010	### 007
13			marc_fixed('007',00,'ta');
14
15			### 008
16
17			### 035
18	dpavlin	751	# privemeno koristimo 0356 umjesto 0359, zato ¹to marclint 9 prijavljuje kao gre¹ku
19
20	dpavlin	1010	marc('035','6',
21			join_with('',
22			config('input normalize path'),
23	dpavlin	751	# config('name'),
24			# config('input name'),
25			# config(),
26			# id(),
27			# rec('994','a'),
28			# rec('000')
29			# )
30			#);
31
32	dpavlin	1010
33			### 020
34
35	dpavlin	751	marc('020','a',
36			rec('10')
37			);
38
39	dpavlin	1010	### 040
40	dpavlin	751
41			marc('040','a',
42	dpavlin	1010	'HR FFZG'
43	dpavlin	751	);
44
45			marc('040','b',
46			'hrv'
47			);
48
49	dpavlin	1010	marc('040','e',
50			'HR PPIAK'
51			);
52
53			### 245 indikatori
54
55	dpavlin	751	marc_indicators('245', 0, 0);
56
57			#_debug(3);
58
59			marc_compose('245',
60			'a', suffix(
61			rec('203','b') ? '. ' :
62			rec('203','k') ? ' ; ' :
63			rec('203','d') ? ' = ' :
64			rec('203','e') ? ' : ' :
65			rec('203','f') ? ' / ' :
66			'.',
67	dpavlin	807	join_with('. ',
68			rec('203','a')
69			)
70	dpavlin	751	),
71			'h', rec('203','b'),
72			'b',
73	dpavlin	807	join_with(' ; ',
74			rec('203','k'),
75			),
76	dpavlin	751	'b',
77	dpavlin	807	join_with(' = ',
78			rec('203','d'),
79			),
80			'b',
81			join_with(' : ',
82			rec('203','e'),
83			),
84	dpavlin	751	'c',
85	dpavlin	807	join_with(' ; ',
86			rec('203','f'),
87			),
88	dpavlin	751	'+', prefix('. ', rec('203','c') ),
89			);
90
91			marc_original_order('260', '210');
92
93			marc('520','a',
94			regex('s/[\\r\\n]+/. /g',
95			rec('330')
96			)
97			);
98
99			marc_indicators('653', ' ', ' ');
100			marc('653','a',
101			rec('610')
102			);
103
104			# 675 podpolja c, d ... - ¹to s njima ???
105
106			marc('080','a',
107			rec('675','a')
108			);
109
110			marc_indicators('100', 1, ' ');
111			marc('100','a',
112			join_with(', ',
113			rec('700', 'a'),
114			rec('700', 'b')
115			)
116			);
117
118			marc_indicators('700', 1, ' ');
119
120			if ( rec('701') ) {
121			marc('700','4',
122			'aut'
123			);
124			}
125
126			marc('700','a',
127			rec('701', 'a'),
128			);
129
130			marc('700','a',
131			join_with(', ',
132			rec('701', 'c'),
133			rec('701', 'd')
134			)
135			);
136
137			marc('700','a',
138			join_with(', ',
139			rec('701', 'e'),
140			rec('701', 'f')
141			)
142			);
143
144			marc('700','a',
145			join_with(', ',
146			rec('701', 'g'),
147			rec('701', 'h')
148			)
149			);
150
151
152			marc('700','a',
153			rec('702','a'),
154			);
155
156
157			# ako je u originalu ponovljivo polje treba biti i konvertirano!!
158
159
160			marc('700','a',
161			join_with(', ',
162			rec('702','c'),
163			rec('702','d')
164			)
165			);
166
167			marc('700','a',
168			join_with(', ',
169			rec('702','e'),
170			rec('702','f')
171			)
172			);
173
174			marc('700','a',
175			join_with(', ',
176			rec('702','g'),
177			rec('702','h')
178			)
179			);
180
181			#_debug(0);
182
183
184			if ( rec('710','f') ) {
185
186			marc_indicators('111', 2, ' ');
187			marc('111','a',
188			rec('710','a')
189			);
190
191			marc('111','c',
192			rec('710','e')
193			);
194
195			marc('111','d',
196			rec('710','f')
197			);
198
199			marc('111','e',
200			rec('710','b')
201			);
202
203			marc('111','n',
204			rec('710','d')
205			);
206
207
208			} else {
209
210			marc_indicators('110', 2, ' ');
211			marc('110','a',
212			rec('710','a')
213			);
214
215			marc('110','c',
216			rec('710','c')
217			);
218
219			};
220
221	dpavlin	754	marc_indicators('773', 0, ' ');
222	dpavlin	751
223			marc('773','g',
224			rec('200','x'),
225			);
226
227			marc('773','t',
228			join_with(' : ',
229			rec('200','a'),
230			rec('200','e'),
231			),
232			);
233
234	dpavlin	754	marc('773','w',
235			lookup(
236	dpavlin	758	sub { 'ffkk-peri-' . rec('000') },
237	dpavlin	754	'ffkk','peri',
238			sub { rec('11') }
239			) \|\|
240			lookup(
241	dpavlin	758	sub { 'ffkk-peri-' . rec('000') },
242	dpavlin	754	'ffkk','peri',
243			sub { first(rec(200,'a')) . ' ' . first(rec('200','e')) },
244			) \|\|
245
246			lookup(
247	dpavlin	758	sub { "ffkk-peri-" . rec('000') },
248	dpavlin	754	'ffkk','peri',
249			sub { rec(200,'a') },
250			# sub { rec(900,'x') },
251			)
252
253			);
254
255