/[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.8 by dpavlin, Sun Jun 16 19:39:42 2002 UTC revision 1.9 by dpavlin, Sun Jun 16 19:55:19 2002 UTC
# Line 459  foreach my $isis_db (@isis_dbs) { Line 459  foreach my $isis_db (@isis_dbs) {
459                  $bib .= isis_to_bib($row,'991','%991');                  $bib .= isis_to_bib($row,'991','%991');
460                  $mps .= isis_to_mps($row,'991',12);                  $mps .= isis_to_mps($row,'991',12);
461    
462                  sub store_isn {                  sub isis_isn_to_mps {
463                          if (my $isn = shift @_) {                          my $row = shift @_ || die;
464                                  my $nr = shift @_;                          my $isis_id = shift @_ || die;
465                                  my $tag = shift @_;                          my $nr = shift @_ || die;
466                            my $i=0;
467                            my $mps='';
468                            while (my $isn=$row->{$isis_id}->[$i]) {
469                                  $isn =~ s/ +//g;        # remove spaces                                  $isn =~ s/ +//g;        # remove spaces
470                                  $mps .= "W $isn $nr\n";                                  $mps .= "W $isn $nr\n";
                                 $bib .= "$tag $isn\n";  
471                                  if ($isn =~ s/-//g) {                                  if ($isn =~ s/-//g) {
472                                          $mps .= "W $isn $nr\n";                                          $mps .= "W $isn $nr\n";
473                                  }                                  }
474                                    $i++;
475                          }                          }
476                            return $mps;
477                  }                  }
478    
479                  # ISBN                  # ISBN
480                  store_isn($row->{10}->[0],13,'%ISBN');                  $bib .= isis_to_bib($row,'10','%ISBN');
481                  $mps .= isis_to_mps($row,'290',13);                  $mps .= isis_isn_to_mps($row,'10',13);
482                  $mps .= isis_to_mps($row,'291',13);                  $mps .= isis_isn_to_mps($row,'290',13);
483                  $mps .= isis_to_mps($row,'292',13);                  $mps .= isis_isn_to_mps($row,'291',13);
484                  $mps .= isis_to_mps($row,'293',13);                  $mps .= isis_isn_to_mps($row,'292',13);
485                    $mps .= isis_isn_to_mps($row,'293',13);
486    
487                  # ISSN                  # ISSN
488                  #store_isn($row->{11}->[0],14,'%ISSN');                  #store_isn($row->{11}->[0],14,'%ISSN');

Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9

  ViewVC Help
Powered by ViewVC 1.1.26