conf/normalize/csv_ff-peri.pl

sub csv { to('csv',@_) }

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