conf/normalize/mapping.pl

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