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