conf/normalize/mapping.pl

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

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

marc21('101','a',
        rec('101')
);

marc21('245','a',
        rec('200','a')
);

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

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

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

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

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

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

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

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

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

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

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

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

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

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

marc21('655','a',
        rec('610')
);

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

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

marc21('655','a',
        rec('610')
);

marc21('100','a',
        join_with(', ',
                rec('700', 'a'),
                rec('700', 'b')
        )
);

marc21('700','a',
        join_with(', ',
                rec('701', 'a'),
                rec('701', 'b')
        )
);

if ( rec('701') ) { 
        marc21('700','4', 
                '070'
        ); 
}

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

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


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