conf/normalize/mapping.pl

# Leader

if ( rec('999') && first(rec('999')) =~ m/pregledan/i) {
        marc_leader('05','c');
} else {
        marc_leader('05','n');
}

marc_leader('06','a');

marc_leader('07','m');

marc_leader('18','i');

if ( rec('230') ) {
        marc_leader('19','r');
}

# gre¹ka - 000 se ne zapisuje u marc:

marc('001',
        rec('000')
);

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

if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
        marc_indicators('041', 1, ' ');
} else {
        marc_indicators('041', 0, ' ');
}

marc_repeatable_subfield('041','a',
        rec('101')
);

marc_indicators('245', 0, 0);
marc('245','a',
        rec('200','a')
);

marc('245','b',
        join_with(' : ',
                rec('200','d'),
                rec('200','e')
        )
);

marc('245','c',
        join_with(' ; ',
                rec('200','f'),
                rec('200','g')
        )
);

marc('250','a',
        rec('205','a')
);

_debug( 2 );
warn "210a: ",dump( first(rec('210','a' )) );

marc_compose('260',
        'a', split_rec_on('210','a', qr/\s*;\s*/, 1),
        'b', first(rec('210','c')),
        'a', split_rec_on('210','a', qr/\s*;\s*/, 2),
        'c', first(rec('210','d')),
);


_debug( 0 );

marc('300','a',
        rec('215','a')
);

marc('300','b',
        rec('215','c')
);

marc('300','c',
        rec('215','d')
);

marc('300','e',
        rec('215','e')
);


marc_indicators('490', 1, ' ');
marc('490','a',
        join_with(' = ',
                rec('225','a'),
                join_with(" :  ",
                        rec('225','d'),
                        join_with(" / ",
                                rec('225','e'),
                                rec('225','f')
                        )
                )
        )
);

marc('490','v',
        rec('225','v')
);

marc('500','a',
        rec('300')
);

marc('500','a',
        rec('314')
);

marc('504','a',
        rec('320')
);

marc('501','a',
        rec('327')
);

marc('520','a',
        rec('330')
);

# mo¾da i polje 520y - jezik napomene ako je uvijek isti jezik

marc_indicators('655', ' ', 4);
marc('655','a',
        rec('608')
);

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

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

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

marc('084','a',
        rec('686')
);

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


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

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

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

# podesiti podpolje 4 na editore nije dobra ideja
#
# if ( rec('702') ) {
#       marc('700','4',
#               '340'
#       );
# }

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

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

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

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

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

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

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

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

}

# zapisi za duplanje
#
# if ( rec('230') ) {
#
# marc('245','a',
#       rec('230','a')
# );
# 
# marc('245','b',
#       rec('230','e')
# );
# 
# marc('245','c',
#       rec('230','f')
# );
# 
# marc('245','n',
#       rec('230','v')
# );
# 
# }
1	dpavlin	563	# 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	dpavlin	547	marc('001',
22	dpavlin	537	rec('000')
23			);
24
25	dpavlin	547	marc('020','a',
26	dpavlin	537	rec('010')
27			);
28
29	dpavlin	549	if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
30			marc_indicators('041', 1, ' ');
31			} else {
32			marc_indicators('041', 0, ' ');
33			}
34
35	dpavlin	547	marc_repeatable_subfield('041','a',
36	dpavlin	537	rec('101')
37			);
38
39	dpavlin	547	marc_indicators('245', 0, 0);
40			marc('245','a',
41	dpavlin	537	rec('200','a')
42			);
43
44	dpavlin	547	marc('245','b',
45	dpavlin	537	join_with(' : ',
46			rec('200','d'),
47			rec('200','e')
48			)
49			);
50
51	dpavlin	547	marc('245','c',
52	dpavlin	537	join_with(' ; ',
53			rec('200','f'),
54			rec('200','g')
55			)
56			);
57
58	dpavlin	547	marc('250','a',
59	dpavlin	537	rec('205','a')
60			);
61
62	dpavlin	562	_debug( 2 );
63			warn "210a: ",dump( first(rec('210','a' )) );
64	dpavlin	537
65	dpavlin	562	marc_compose('260',
66			'a', split_rec_on('210','a', qr/\s;\s/, 1),
67			'b', first(rec('210','c')),
68			'a', split_rec_on('210','a', qr/\s;\s/, 2),
69			'c', first(rec('210','d')),
70	dpavlin	537	);
71
72
73	dpavlin	562	_debug( 0 );
74
75	dpavlin	547	marc('300','a',
76	dpavlin	537	rec('215','a')
77			);
78
79	dpavlin	547	marc('300','b',
80	dpavlin	537	rec('215','c')
81			);
82
83	dpavlin	547	marc('300','c',
84	dpavlin	537	rec('215','d')
85			);
86
87	dpavlin	547	marc('300','e',
88	dpavlin	537	rec('215','e')
89			);
90
91	dpavlin	562
92			marc_indicators('490', 1, ' ');
93	dpavlin	547	marc('490','a',
94	dpavlin	537	join_with(' = ',
95			rec('225','a'),
96			join_with(" : ",
97			rec('225','d'),
98			join_with(" / ",
99			rec('225','e'),
100			rec('225','f')
101			)
102			)
103			)
104			);
105
106	dpavlin	547	marc('490','v',
107	dpavlin	537	rec('225','v')
108			);
109
110	dpavlin	547	marc('500','a',
111	dpavlin	537	rec('300')
112			);
113
114	dpavlin	562	marc('500','a',
115			rec('314')
116			);
117
118	dpavlin	547	marc('504','a',
119	dpavlin	537	rec('320')
120			);
121
122	dpavlin	562	marc('501','a',
123			rec('327')
124			);
125
126			marc('520','a',
127			rec('330')
128			);
129
130			# mo¾da i polje 520y - jezik napomene ako je uvijek isti jezik
131
132	dpavlin	547	marc_indicators('655', ' ', 4);
133			marc('655','a',
134	dpavlin	562	rec('608')
135			);
136
137			marc_indicators('653', ' ', ' ');
138			marc('653','a',
139	dpavlin	537	rec('610')
140			);
141
142	dpavlin	562	marc('080','a',
143			rec('675','a')
144			);
145
146			# podpolja c, d ... - ¹to s njima?
147
148			marc('084','a',
149			rec('686')
150			);
151
152	dpavlin	549	marc_indicators('100', 1, ' ');
153	dpavlin	547	marc('100','a',
154	dpavlin	537	join_with(', ',
155			rec('700', 'a'),
156			rec('700', 'b')
157			)
158			);
159
160	dpavlin	549
161			marc_indicators('700', 1, ' ');
162	dpavlin	547	marc('700','a',
163	dpavlin	537	join_with(', ',
164			rec('701', 'a'),
165			rec('701', 'b')
166			)
167			);
168
169			if ( rec('701') ) {
170	dpavlin	562	marc('700','4',
171			'aut'
172			);
173	dpavlin	537	}
174
175	dpavlin	547	marc('700','a',
176	dpavlin	537	join_with(', ',
177			rec('702','a'),
178			rec('702','b')
179			)
180			);
181
182	dpavlin	562	# podesiti podpolje 4 na editore nije dobra ideja
183			#
184			# if ( rec('702') ) {
185			# marc('700','4',
186			# '340'
187			# );
188			# }
189
190			if ( rec('710','f') ) {
191
192			marc_indicators('111', 2, ' ');
193			marc('111','a',
194			rec('710','a')
195			);
196
197			marc('111','e',
198			rec('710','b')
199			);
200
201			marc('111','n',
202			rec('710','d')
203			);
204
205			marc('111','c',
206			rec('710','e')
207			);
208
209			marc('111','d',
210			rec('710','f')
211			);
212
213			} else {
214
215			marc_indicators('110', 2, ' ');
216			marc('110','a',
217			rec('710','a')
218			);
219
220			marc('110','c',
221			rec('710','c')
222			);
223
224	dpavlin	537	}
225
226	dpavlin	562	# zapisi za duplanje
227	dpavlin	563	#
228			# if ( rec('230') ) {
229			#
230			# marc('245','a',
231			# rec('230','a')
232			# );
233			#
234			# marc('245','b',
235			# rec('230','e')
236			# );
237			#
238			# marc('245','c',
239			# rec('230','f')
240			# );
241			#
242			# marc('245','n',
243			# rec('230','v')
244			# );
245			#
246			# }