/[webpac-proto]/isis2stream.pl
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Diff of /isis2stream.pl

Parent Directory Parent Directory | Revision Log Revision Log | View Patch Patch

revision 1.13 by dpavlin, Mon Jun 24 16:49:53 2002 UTC revision 1.14 by dpavlin, Mon Jun 24 17:08:20 2002 UTC
# Line 346  foreach my $isis_db (@isis_dbs) { Line 346  foreach my $isis_db (@isis_dbs) {
346                  $headline =~ s/\s+$//g;                  $headline =~ s/\s+$//g;
347    
348                  # author                  # author
349                  $bib .= isis_to_bib($row,'700','%700+','*',2,'>',', ');                  $bib .= isis_to_bib($row,'700','%700+','ab',undef,'>',', ');
350                  $bib .= isis_to_bib($row,'701','%700+','*',2,'>',', ');                  $bib .= isis_to_bib($row,'701','%700+','ab',undef,'>',', ');
351                  $bib .= isis_to_bib($row,'710','%700+','*',2,'>',', ');                  $bib .= isis_to_bib($row,'701','%700+','cd',undef,'>',', ');
352                  $bib .= isis_to_bib($row,'711','%700+','*',2,'>',', ');  
353                  $bib .= isis_to_bib($row,'503','%700+','*',2,'>',', ');                  my $tmp = isis_sf($row,'710','abc', '', '', (' : ',', '));
354                    $tmp .= isis_sf($row,'710','dfe', ' (', ')', ('', ' ; ',' ; '));
355                    $bib .= "%700+ $tmp\n" if ($tmp);
356    
357                    my $tmp = isis_sf($row,'711','abc', '', '', (' : ',', '));
358                    $tmp .= isis_sf($row,'711','dfe', ' (', ')', ('', ' ; ',' ; '));
359                    $bib .= "%700+ $tmp\n" if ($tmp);
360    
361                    $bib .= isis_to_bib($row,'503','%700+','ab',undef,'>',', ');
362    
363                  $mps .= isis_to_mps($row,'700',1);                  $mps .= isis_to_mps($row,'700',1);
364                  $mps .= isis_to_mps($row,'701',1);                  $mps .= isis_to_mps($row,'701',1);

Legend:
Removed from v.1.13  
changed lines
  Added in v.1.14

  ViewVC Help
Powered by ViewVC 1.1.26