346 |
$headline =~ s/\s+$//g; |
$headline =~ s/\s+$//g; |
347 |
|
|
348 |
# author |
# author |
349 |
$bib .= isis_to_bib($row,'700','%700+','*',2,'<'); |
$bib .= isis_to_bib($row,'700','%700+','ab',undef,'>',', '); |
350 |
$bib .= isis_to_bib($row,'701','%700+','*',2,'<'); |
$bib .= isis_to_bib($row,'701','%700+','ab',undef,'>',', '); |
351 |
$bib .= isis_to_bib($row,'710','%700+','*',2,'<'); |
$bib .= isis_to_bib($row,'701','%700+','cd',undef,'>',', '); |
352 |
$bib .= isis_to_bib($row,'711','%700+','*',2,'<'); |
|
353 |
$bib .= isis_to_bib($row,'503','%700+','*',2,'<'); |
my $tmp = isis_sf($row,'710','abc', '', '', (' : ',', ')); |
354 |
|
$tmp .= isis_sf($row,'710','dfe', ' (', ')', ('', ' ; ',' ; ')); |
355 |
|
$bib .= "%700+ $tmp\n" if ($tmp); |
356 |
|
|
357 |
|
my $tmp = isis_sf($row,'711','abc', '', '', (' : ',', ')); |
358 |
|
$tmp .= isis_sf($row,'711','dfe', ' (', ')', ('', ' ; ',' ; ')); |
359 |
|
$bib .= "%700+ $tmp\n" if ($tmp); |
360 |
|
|
361 |
|
$bib .= isis_to_bib($row,'503','%700+','ab',undef,'>',', '); |
362 |
|
|
363 |
$mps .= isis_to_mps($row,'700',1); |
$mps .= isis_to_mps($row,'700',1); |
364 |
$mps .= isis_to_mps($row,'701',1); |
$mps .= isis_to_mps($row,'701',1); |
530 |
$headline =~ s/&/∧/g; |
$headline =~ s/&/∧/g; |
531 |
$headline =~ s/</</g; |
$headline =~ s/</</g; |
532 |
$headline =~ s/>/>/g; |
$headline =~ s/>/>/g; |
|
$headline =~ s/<(\/?[bi])>/<$1>/g; |
|
533 |
$mps .= "H ".c_852_iso($headline)."\n"; |
$mps .= "H ".c_852_iso($headline)."\n"; |
534 |
} else { |
} else { |
535 |
$mps .= "H nepoznato\n"; |
$mps .= "H nepoznato\n"; |