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	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