conf/isi/isi2xls.pl

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

#warn( dump(
#       rec('CR','author')
#)
#);

my $cr = join_with(' ; ',
                rec('CR','author')
        );

if ( $cr =~ m/SVERKO B/ ) {


csv('A',
        rec('PT'),
);

csv('B',
        join_with(', ',
                rec('AU')
        )
);

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

csv('D',
        rec('DE'),
);

csv('E',
        rec('ID'),
);

csv('F',
        rec('TC'),
);

csv('G',
        rec('NR'),
);

csv('H',
        rec('CR','author')
);

csv('I',
        rec('CR','institution')
);

csv('J',
        rec('CR','page')
);

csv('K',
        rec('CR','reference')
);

csv('L',
        rec('CR','volume')
);

csv('M',
        rec('CR','year')
);


csv('N',
        rec('BP'),
);

csv('O',
        rec('EP'),
);

csv('P',
        rec('DT'),
);

csv('R',
        rec('LA'),
);

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

csv('T',
        rec('SO'),
);

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


}
1	mglavica	1189	sub csv { to('csv',@_) }
2
3			#warn( dump(
4			# rec('CR','author')
5			#)
6			#);
7
8			my $cr = join_with(' ; ',
9			rec('CR','author')
10			);
11
12			if ( $cr =~ m/SVERKO B/ ) {
13
14
15			csv('A',
16			rec('PT'),
17			);
18
19			csv('B',
20			join_with(', ',
21			rec('AU')
22			)
23			);
24
25			csv('C',
26			rec('TI'),
27			);
28
29			csv('D',
30			rec('DE'),
31			);
32
33			csv('E',
34			rec('ID'),
35			);
36
37			csv('F',
38			rec('TC'),
39			);
40
41			csv('G',
42			rec('NR'),
43			);
44
45			csv('H',
46			rec('CR','author')
47			);
48
49			csv('I',
50			rec('CR','institution')
51			);
52
53			csv('J',
54			rec('CR','page')
55			);
56
57			csv('K',
58			rec('CR','reference')
59			);
60
61			csv('L',
62			rec('CR','volume')
63			);
64
65			csv('M',
66			rec('CR','year')
67			);
68
69
70			csv('N',
71			rec('BP'),
72			);
73
74			csv('O',
75			rec('EP'),
76			);
77
78			csv('P',
79			rec('DT'),
80			);
81
82			csv('R',
83			rec('LA'),
84			);
85
86			csv('S',
87			rec('SN'),
88			);
89
90			csv('T',
91			rec('SO'),
92			);
93
94			csv('U',
95			rec('CR'),
96			);
97
98
99
100			}