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); |
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! |