/[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.11 by dpavlin, Mon Jun 24 15:36:52 2002 UTC revision 1.15 by dpavlin, Mon Jun 24 17:52:25 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    
                 my $bib = "%MFN $row->{mfn}\n";  
328                  my $mps = "W $row->{mfn} 14\n";                  my $mps = "W $row->{mfn} 14\n";
329    
330                  my $pcnt = int($row->{mfn} * 100 / $max_rowid);                  my $pcnt = int($row->{mfn} * 100 / $max_rowid);
# Line 346  foreach my $isis_db (@isis_dbs) { Line 345  foreach my $isis_db (@isis_dbs) {
345                  $headline =~ s/\s+$//g;                  $headline =~ s/\s+$//g;
346    
347                  # author                  # author
348                  $bib .= isis_to_bib($row,'700','%700+','*',2,'<');                  $bib .= isis_to_bib($row,'700','%700+','ab',undef,'>',', ');
349                  $bib .= isis_to_bib($row,'701','%700+','*',2,'<');                  $bib .= isis_to_bib($row,'701','%700+','ab',undef,'>',', ');
350                  $bib .= isis_to_bib($row,'710','%700+','*',2,'<');                  $bib .= isis_to_bib($row,'701','%700+','cd',undef,'>',', ');
351                  $bib .= isis_to_bib($row,'711','%700+','*',2,'<');  
352                  $bib .= isis_to_bib($row,'503','%700+','*',2,'<');                  my $tmp = isis_sf($row,'710','abc', '', '', (' : ',', '));
353                    $tmp .= isis_sf($row,'710','dfe', ' (', ')', ('', ' ; ',' ; '));
354                    $bib .= "%700+ $tmp\n" if ($tmp);
355    
356                    my $tmp = isis_sf($row,'711','abc', '', '', (' : ',', '));
357                    $tmp .= isis_sf($row,'711','dfe', ' (', ')', ('', ' ; ',' ; '));
358                    $bib .= "%700+ $tmp\n" if ($tmp);
359    
360                    $bib .= isis_to_bib($row,'503','%700+','ab',undef,'>',', ');
361    
362                  $mps .= isis_to_mps($row,'700',1);                  $mps .= isis_to_mps($row,'700',1);
363                  $mps .= isis_to_mps($row,'701',1);                  $mps .= isis_to_mps($row,'701',1);
# Line 514  foreach my $isis_db (@isis_dbs) { Line 521  foreach my $isis_db (@isis_dbs) {
521    
522                  $mps .= isis_to_mps($row,'532',1);                  $mps .= isis_to_mps($row,'532',1);
523    
524                  $bib .= isis_to_bib($row,'994','%994a','a');                  $bib .= '%knjiz '.$DatabaseDescriptions{$db_dir}.", ".$row->{mfn}."\n";
   
525                  # headline                  # headline
526                  if ($headline) {                  if ($headline) {
527                          $headline .= " <i>(".$DatabaseDescriptions{$db_dir}.", ".$row->{mfn}.")</i>";   ## debug MFN!                          $headline .= " <i>(".$DatabaseDescriptions{$db_dir}.", ".$row->{mfn}.")</i>";   ## debug MFN!
528                          $headline =~ s/&/&and;/g;                          $headline =~ s/&/&and;/g;
529                          $headline =~ s/</&lt;/g;                          $headline =~ s/</&lt;/g;
530                          $headline =~ s/>/&gt;/g;                          $headline =~ s/>/&gt;/g;
                         $headline =~ s/&lt;(\/?[bi])&gt;/<$1>/g;  
531                          $mps .= "H ".c_852_iso($headline)."\n";                          $mps .= "H ".c_852_iso($headline)."\n";
532                  } else {                  } else {
533                          $mps .= "H nepoznato\n";                          $mps .= "H nepoznato\n";

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

  ViewVC Help
Powered by ViewVC 1.1.26