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')
);

marc('260','a',
        rec('210','a')
);

marc('260','b',
        rec('210','c')
);

marc('260','c',
        rec('210','d')
);

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('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('504','a',
        rec('320')
);

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

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', 
                '070'
        ); 
}

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

if ( rec('702') ) {
        marc('700','4',
                '340'
        );
}


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
21	marc('245','a',
22	rec('200','a')
23	);
24
25	marc('245','b',
26	join_with(' : ',
27	rec('200','d'),
28	rec('200','e')
29	)
30	);
31
32	marc('245','c',
33	join_with(' ; ',
34	rec('200','f'),
35	rec('200','g')
36	)
37	);
38
39	marc('250','a',
40	rec('205','a')
41	);
42
43	marc('260','a',
44	rec('210','a')
45	);
46
47	marc('260','b',
48	rec('210','c')
49	);
50
51	marc('260','c',
52	rec('210','d')
53	);
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	marc('490','a',
72	join_with(' = ',
73	rec('225','a'),
74	join_with(" : ",
75	rec('225','d'),
76	join_with(" / ",
77	rec('225','e'),
78	rec('225','f')
79	)
80	)
81	)
82	);
83
84	marc('490','v',
85	rec('225','v')
86	);
87
88	marc('500','a',
89	rec('300')
90	);
91
92	marc('504','a',
93	rec('320')
94	);
95
96	marc_indicators('655', ' ', 4);
97	marc('655','a',
98	rec('610')
99	);
100
101	marc_indicators('100', 1, ' ');
102	marc('100','a',
103	join_with(', ',
104	rec('700', 'a'),
105	rec('700', 'b')
106	)
107	);
108
109
110	marc_indicators('700', 1, ' ');
111	marc('700','a',
112	join_with(', ',
113	rec('701', 'a'),
114	rec('701', 'b')
115	)
116	);
117
118	if ( rec('701') ) {
119	marc('700','4',
120	'070'
121	);
122	}
123
124	marc('700','a',
125	join_with(', ',
126	rec('702','a'),
127	rec('702','b')
128	)
129	);
130
131	if ( rec('702') ) {
132	marc('700','4',
133	'340'
134	);
135	}
136
137
138