conf/normalize/mapping.pl

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

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

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', 0, ' ');
marc('100','a',
        join_with(', ',
                rec('700', 'a'),
                rec('700', 'b')
        )
);

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