conf/normalize/csv_ff-peri.pl

if ( rec('200','a') ) {

## 022

if ( ! rec('225','a') ) {
        csv('A',
                rec('11')
        );
}

csv('B',
        join_with('',
                uc( config() ),
                ' P',
                rec('000')
        )
);

csv('C',
        rec('101')
);


csv('D',
        rec('675','a')
);

csv('E',
        join_with(', ',
                rec('700', 'a'),
                rec('700', 'b')
        )
);

csv('F',
        rec('710','a')
);

csv('G',
        rec('710','c')
);

csv('H',
        lookup(
                sub { rec('530','a') },
                'nsk','bbaza',
                sub { rec('011','a') },
                sub { rec('11') },
        ) 
);

csv('I',
        rec('200','a')
);

csv('J',
        rec('200','d')
);

csv('K',
        rec('200','e')
);


csv('L',
        rec('532')
);


csv('M',
        join_with(' / ',
                rec('205','a'),
                rec('205','f')
        )
);

csv('N',
        rec('210','a')
);

csv('O',
        rec('210','c')
);

csv('P',
        rec('210','d')
);

csv('R',
        rec('215','d')
);

csv('S',
        rec('326')
);

csv('T',
        rec('207','a')
);

csv('U',
        rec('300')
);

csv('V',
        rec('610')
);

csv('W',
        join_with(', ',
                rec('702','a'),
                rec('702','b'),
        ),
);


csv('Z',
        join_with(' ',
                rec('990')
        )
);

csv('X',
        rec('991','a')
);

csv('Y',
        join_with(' ; ', 
                rec('992')
        )
);
}
1	dpavlin	1065	if ( rec('200','a') ) {
2
3			## 022
4
5			if ( ! rec('225','a') ) {
6			csv('A',
7			rec('11')
8			);
9			}
10
11			csv('B',
12			join_with('',
13			uc( config() ),
14			' P',
15			rec('000')
16			)
17			);
18
19			csv('C',
20			rec('101')
21			);
22
23
24			csv('D',
25			rec('675','a')
26			);
27
28			csv('E',
29			join_with(', ',
30			rec('700', 'a'),
31			rec('700', 'b')
32			)
33			);
34
35			csv('F',
36			rec('710','a')
37			);
38
39			csv('G',
40			rec('710','c')
41			);
42
43			csv('H',
44			lookup(
45			sub { rec('530','a') },
46			'nsk','bbaza',
47			sub { rec('011','a') },
48			sub { rec('11') },
49			)
50			);
51
52			csv('I',
53			rec('200','a')
54			);
55
56			csv('J',
57			rec('200','d')
58			);
59
60			csv('K',
61			rec('200','e')
62			);
63
64
65			csv('L',
66			rec('532')
67			);
68
69
70			csv('M',
71			join_with(' / ',
72			rec('205','a'),
73			rec('205','f')
74			)
75			);
76
77			csv('N',
78			rec('210','a')
79			);
80
81			csv('O',
82			rec('210','c')
83			);
84
85			csv('P',
86			rec('210','d')
87			);
88
89			csv('R',
90			rec('215','d')
91			);
92
93			csv('S',
94			rec('326')
95			);
96
97			csv('T',
98			rec('207','a')
99			);
100
101			csv('U',
102			rec('300')
103			);
104
105			csv('V',
106			rec('610')
107			);
108
109			csv('W',
110			join_with(', ',
111			rec('702','a'),
112			rec('702','b'),
113			),
114			);
115
116
117			csv('Z',
118			join_with(' ',
119			rec('990')
120			)
121			);
122
123			csv('X',
124			rec('991','a')
125			);
126
127			csv('Y',
128			join_with(' ; ',
129			rec('992')
130			)
131			);
132			}