/[webpac2]/trunk/conf/normalize/csv_ff-peri.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /trunk/conf/normalize/csv_ff-peri.pl

Parent Directory Parent Directory | Revision Log Revision Log


Revision 1065 - (show annotations)
Tue Nov 27 21:03:08 2007 UTC (16 years, 4 months ago) by dpavlin
File MIME type: text/plain
File size: 1059 byte(s)
note CSV output as unfinished task

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

  ViewVC Help
Powered by ViewVC 1.1.26