--- isis2stream.pl	2002/06/24 17:52:25	1.15
+++ isis2stream.pl	2002/06/24 18:07:26	1.16
@@ -325,6 +325,7 @@
 	my $row = OpenIsis::read( $db, $row_id );
 	if (my $tmp = $row->{'200'}->[0]) {
 
+		my $bib;
 		my $mps = "W $row->{mfn} 14\n";
 
 		my $pcnt = int($row->{mfn} * 100 / $max_rowid);
@@ -490,6 +491,12 @@
         	$bib .= isis_to_bib($row,'991','%991');
 	        $mps .= isis_to_mps($row,'991',12);
 
+		# Jezik
+        	$bib .= isis_to_bib($row,'101','%101');
+	        $mps .= isis_to_mps($row,'101',16);
+		# Pismo
+        	$bib .= isis_to_bib($row,'998','%101', 'a');
+
 		sub isis_isn_to_mps {
 			my $row = shift @_ || die;
 			my $isis_id = shift @_ || die;