--- isis2stream.pl	2002/06/24 15:36:52	1.11
+++ isis2stream.pl	2002/06/24 17:52:25	1.15
@@ -325,7 +325,6 @@
 	my $row = OpenIsis::read( $db, $row_id );
 	if (my $tmp = $row->{'200'}->[0]) {
 
-		my $bib = "%MFN $row->{mfn}\n";
 		my $mps = "W $row->{mfn} 14\n";
 
 		my $pcnt = int($row->{mfn} * 100 / $max_rowid);
@@ -346,11 +345,19 @@
 		$headline =~ s/\s+$//g;
 
 		# author
-		$bib .= isis_to_bib($row,'700','%700+','*',2,'<');
-		$bib .= isis_to_bib($row,'701','%700+','*',2,'<');
-		$bib .= isis_to_bib($row,'710','%700+','*',2,'<');
-		$bib .= isis_to_bib($row,'711','%700+','*',2,'<');
-		$bib .= isis_to_bib($row,'503','%700+','*',2,'<');
+		$bib .= isis_to_bib($row,'700','%700+','ab',undef,'>',', ');
+		$bib .= isis_to_bib($row,'701','%700+','ab',undef,'>',', ');
+		$bib .= isis_to_bib($row,'701','%700+','cd',undef,'>',', ');
+
+		my $tmp = isis_sf($row,'710','abc', '', '', (' : ',', '));
+		$tmp .= isis_sf($row,'710','dfe', ' (', ')', ('', ' ; ',' ; '));
+		$bib .= "%700+ $tmp\n" if ($tmp);
+
+		my $tmp = isis_sf($row,'711','abc', '', '', (' : ',', '));
+		$tmp .= isis_sf($row,'711','dfe', ' (', ')', ('', ' ; ',' ; '));
+		$bib .= "%700+ $tmp\n" if ($tmp);
+
+		$bib .= isis_to_bib($row,'503','%700+','ab',undef,'>',', ');
 
 		$mps .= isis_to_mps($row,'700',1);
 		$mps .= isis_to_mps($row,'701',1);
@@ -514,15 +521,13 @@
 
 		$mps .= isis_to_mps($row,'532',1);
 
-		$bib .= isis_to_bib($row,'994','%994a','a');
-
+		$bib .= '%knjiz '.$DatabaseDescriptions{$db_dir}.", ".$row->{mfn}."\n";
 		# headline
 		if ($headline) {
 			$headline .= " <i>(".$DatabaseDescriptions{$db_dir}.", ".$row->{mfn}.")</i>";	## debug MFN!
 			$headline =~ s/&/&and;/g;
 			$headline =~ s/</&lt;/g;
 			$headline =~ s/>/&gt;/g;
-			$headline =~ s/&lt;(\/?[bi])&gt;/<$1>/g;
 			$mps .= "H ".c_852_iso($headline)."\n";
 		} else {
 			$mps .= "H nepoznato\n";