git.rot13.org Git - webpac2/blob - conf/isi/isi2xls.pl

   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 }