/[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.15 by dpavlin, Mon Jun 24 17:52:25 2002 UTC revision 1.16 by dpavlin, Mon Jun 24 18:07:26 2002 UTC
# Line 325  foreach my $isis_db (@isis_dbs) { Line 325  foreach my $isis_db (@isis_dbs) {
325          my $row = OpenIsis::read( $db, $row_id );          my $row = OpenIsis::read( $db, $row_id );
326          if (my $tmp = $row->{'200'}->[0]) {          if (my $tmp = $row->{'200'}->[0]) {
327    
328                    my $bib;
329                  my $mps = "W $row->{mfn} 14\n";                  my $mps = "W $row->{mfn} 14\n";
330    
331                  my $pcnt = int($row->{mfn} * 100 / $max_rowid);                  my $pcnt = int($row->{mfn} * 100 / $max_rowid);
# Line 490  foreach my $isis_db (@isis_dbs) { Line 491  foreach my $isis_db (@isis_dbs) {
491                  $bib .= isis_to_bib($row,'991','%991');                  $bib .= isis_to_bib($row,'991','%991');
492                  $mps .= isis_to_mps($row,'991',12);                  $mps .= isis_to_mps($row,'991',12);
493    
494                    # Jezik
495                    $bib .= isis_to_bib($row,'101','%101');
496                    $mps .= isis_to_mps($row,'101',16);
497                    # Pismo
498                    $bib .= isis_to_bib($row,'998','%101', 'a');
499    
500                  sub isis_isn_to_mps {                  sub isis_isn_to_mps {
501                          my $row = shift @_ || die;                          my $row = shift @_ || die;
502                          my $isis_id = shift @_ || die;                          my $isis_id = shift @_ || die;

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

  ViewVC Help
Powered by ViewVC 1.1.26