--- isis2stream.pl 2002/06/24 15:36:52 1.11 +++ isis2stream.pl 2002/06/24 16:49:53 1.13 @@ -346,11 +346,11 @@ $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+','*',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,'>',', '); $mps .= isis_to_mps($row,'700',1); $mps .= isis_to_mps($row,'701',1); @@ -522,7 +522,6 @@ $headline =~ s/&/∧/g; $headline =~ s//>/g; - $headline =~ s/<(\/?[bi])>/<$1>/g; $mps .= "H ".c_852_iso($headline)."\n"; } else { $mps .= "H nepoznato\n";