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',
        join_with(' | ',
                rec('CR','full')
        )
);

#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('I',
        rec('BP'),
);

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

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

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

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

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


}
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	mglavica	1199	join_with(' \| ',
47			rec('CR','full')
48			)
49	mglavica	1189	);
50
51	mglavica	1199	#csv('H',
52			# rec('CR','author')
53			#);
54			#
55			#csv('I',
56			# rec('CR','institution')
57			#);
58			#
59			#csv('J',
60			# rec('CR','page')
61			#);
62			#
63			#csv('K',
64			# rec('CR','reference')
65			#);
66			#
67			#csv('L',
68			# rec('CR','volume')
69			#);
70			#
71			#csv('M',
72			# rec('CR','year')
73			#);
74	mglavica	1189
75
76	mglavica	1199	csv('I',
77	mglavica	1189	rec('BP'),
78			);
79
80	mglavica	1199	csv('J',
81	mglavica	1189	rec('EP'),
82			);
83
84	mglavica	1199	csv('K',
85	mglavica	1189	rec('DT'),
86			);
87
88	mglavica	1199	csv('L',
89	mglavica	1189	rec('LA'),
90			);
91
92	mglavica	1199	csv('M',
93	mglavica	1189	rec('SN'),
94			);
95
96	mglavica	1199	csv('N',
97	mglavica	1189	rec('SO'),
98			);
99
100
101
102			}