conf/dipl/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	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	join_with(' \| ',
47	rec('CR','full')
48	)
49	);
50
51	#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
75
76	csv('I',
77	rec('BP'),
78	);
79
80	csv('J',
81	rec('EP'),
82	);
83
84	csv('K',
85	rec('DT'),
86	);
87
88	csv('L',
89	rec('LA'),
90	);
91
92	csv('M',
93	rec('SN'),
94	);
95
96	csv('N',
97	rec('SO'),
98	);
99
100
101
102	}