/[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.16 by dpavlin, Mon Jun 24 18:07:26 2002 UTC revision 1.17 by dpavlin, Tue Jun 25 13:42:54 2002 UTC
# Line 350  foreach my $isis_db (@isis_dbs) { Line 350  foreach my $isis_db (@isis_dbs) {
350                  $bib .= isis_to_bib($row,'701','%700+','ab',undef,'>',', ');                  $bib .= isis_to_bib($row,'701','%700+','ab',undef,'>',', ');
351                  $bib .= isis_to_bib($row,'701','%700+','cd',undef,'>',', ');                  $bib .= isis_to_bib($row,'701','%700+','cd',undef,'>',', ');
352    
353                  my $tmp = isis_sf($row,'710','abc', '', '', (' : ',', '));                  my $tmp;
354                    $tmp = isis_sf($row,'710','abc', '', '', (' : ',', '));
355                  $tmp .= isis_sf($row,'710','dfe', ' (', ')', ('', ' ; ',' ; '));                  $tmp .= isis_sf($row,'710','dfe', ' (', ')', ('', ' ; ',' ; '));
356                  $bib .= "%700+ $tmp\n" if ($tmp);                  $bib .= "%700+ $tmp\n" if ($tmp);
357    
358                  my $tmp = isis_sf($row,'711','abc', '', '', (' : ',', '));                  $tmp = isis_sf($row,'711','abc', '', '', (' : ',', '));
359                  $tmp .= isis_sf($row,'711','dfe', ' (', ')', ('', ' ; ',' ; '));                  $tmp .= isis_sf($row,'711','dfe', ' (', ')', ('', ' ; ',' ; '));
360                  $bib .= "%700+ $tmp\n" if ($tmp);                  $bib .= "%700+ $tmp\n" if ($tmp);
361    
# Line 394  foreach my $isis_db (@isis_dbs) { Line 395  foreach my $isis_db (@isis_dbs) {
395                  $mps .= isis_to_mps($row,'233',2,"ae");                  $mps .= isis_to_mps($row,'233',2,"ae");
396    
397    
                 my $tmp;  
398                  $tmp =  isis_sf($row,'230','v').                  $tmp =  isis_sf($row,'230','v').
399                          isis_sf($row,'230','a',' : ').                          isis_sf($row,'230','a',' : ').
400                          isis_sf($row,'250',undef,'. - ').                          isis_sf($row,'250',undef,'. - ').
# Line 480  foreach my $isis_db (@isis_dbs) { Line 480  foreach my $isis_db (@isis_dbs) {
480                  $bib .= isis_to_bib($row,'610','%610');                  $bib .= isis_to_bib($row,'610','%610');
481                  $mps .= isis_to_mps($row,'610',8);                  $mps .= isis_to_mps($row,'610',8);
482    
483                  $bib .= isis_to_bib($row,'675','%675+');                  $bib .= isis_to_bib($row,'675','%675+','a');
484                  $mps .= isis_to_mps($row,'675',9);                  $mps .= isis_to_mps($row,'675',9);
485                  $bib .= isis_to_bib($row,'686','%675+');                  $bib .= isis_to_bib($row,'686','%675+','a');
486                  $mps .= isis_to_mps($row,'686',10);                  $mps .= isis_to_mps($row,'686',10);
487    
488                  $bib .= isis_to_bib($row,'990','%990');                  $bib .= isis_to_bib($row,'990','%990');

Legend:
Removed from v.1.16  
changed lines
  Added in v.1.17

  ViewVC Help
Powered by ViewVC 1.1.26