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	dpavlin	547	marc('001',
2	dpavlin	537	rec('000')
3			);
4
5	dpavlin	547	marc('020','a',
6	dpavlin	537	rec('010')
7			);
8
9	dpavlin	549	if (rec('300') && first(rec('300')) =~ m/prijevod/i) {
10			marc_indicators('041', 1, ' ');
11			} else {
12			marc_indicators('041', 0, ' ');
13			}
14
15	dpavlin	547	marc_repeatable_subfield('041','a',
16	dpavlin	537	rec('101')
17			);
18
19	dpavlin	547	marc_indicators('245', 0, 0);
20
21			marc('245','a',
22	dpavlin	537	rec('200','a')
23			);
24
25	dpavlin	547	marc('245','b',
26	dpavlin	537	join_with(' : ',
27			rec('200','d'),
28			rec('200','e')
29			)
30			);
31
32	dpavlin	547	marc('245','c',
33	dpavlin	537	join_with(' ; ',
34			rec('200','f'),
35			rec('200','g')
36			)
37			);
38
39	dpavlin	547	marc('250','a',
40	dpavlin	537	rec('205','a')
41			);
42
43	dpavlin	547	marc('260','a',
44	dpavlin	537	rec('210','a')
45			);
46
47	dpavlin	547	marc('260','b',
48	dpavlin	537	rec('210','c')
49			);
50
51	dpavlin	547	marc('260','c',
52	dpavlin	537	rec('210','d')
53			);
54
55	dpavlin	547	marc('300','a',
56	dpavlin	537	rec('215','a')
57			);
58
59	dpavlin	547	marc('300','b',
60	dpavlin	537	rec('215','c')
61			);
62
63	dpavlin	547	marc('300','c',
64	dpavlin	537	rec('215','d')
65			);
66
67	dpavlin	547	marc('300','e',
68	dpavlin	537	rec('215','e')
69			);
70
71	dpavlin	547	marc('490','a',
72	dpavlin	537	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	dpavlin	547	marc('490','v',
85	dpavlin	537	rec('225','v')
86			);
87
88	dpavlin	547	marc('500','a',
89	dpavlin	537	rec('300')
90			);
91
92	dpavlin	547	marc('504','a',
93	dpavlin	537	rec('320')
94			);
95
96	dpavlin	547	marc_indicators('655', ' ', 4);
97			marc('655','a',
98	dpavlin	537	rec('610')
99			);
100
101	dpavlin	549	marc_indicators('100', 1, ' ');
102	dpavlin	547	marc('100','a',
103	dpavlin	537	join_with(', ',
104			rec('700', 'a'),
105			rec('700', 'b')
106			)
107			);
108
109	dpavlin	549
110			marc_indicators('700', 1, ' ');
111	dpavlin	547	marc('700','a',
112	dpavlin	537	join_with(', ',
113			rec('701', 'a'),
114			rec('701', 'b')
115			)
116			);
117
118			if ( rec('701') ) {
119	dpavlin	547	marc('700','4',
120	dpavlin	537	'070'
121			);
122			}
123
124	dpavlin	547	marc('700','a',
125	dpavlin	537	join_with(', ',
126			rec('702','a'),
127			rec('702','b')
128			)
129			);
130
131			if ( rec('702') ) {
132	dpavlin	547	marc('700','4',
133	dpavlin	537	'340'
134			);
135			}
136
137
138