projects
/
webpac2
/ blob
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
history
|
raw
|
HEAD
git-svn-id: svn+ssh://mjesec/home/dpavlin/svn/webpac2/trunk@1103 07558da8-63fa-0310...
[webpac2]
/
conf
/
normalize
/
csv_ff-peri.pl
1
sub csv { to('csv',@_) }
2
3
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
}