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