70 |
foreach my $w (@words) { |
foreach my $w (@words) { |
71 |
# FIX: this should be replaced by stemmer! |
# FIX: this should be replaced by stemmer! |
72 |
#$w =~ tr/ƾ/sSdDcCcCzZ/; |
#$w =~ tr/ƾ/sSdDcCcCzZ/; |
73 |
$w =~ tr/ܫȺ̪/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'-".'',"'Rr/; |
$w =~ tr/ܫȺ̪/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'".'',"'Rr/; |
74 |
$w =~ s//ss/g; |
$w =~ s//ss/g; |
75 |
$out .= "W $w $nr\n"; |
$out .= "W $w $nr\n"; |
76 |
} |
} |
95 |
sub c_852_czs { |
sub c_852_czs { |
96 |
my $tmp = $_[0]; |
my $tmp = $_[0]; |
97 |
$tmp =~ tr//ܫꔼȺ̪㍐슂ٝ/; |
$tmp =~ tr//ܫꔼȺ̪㍐슂ٝ/; |
98 |
$tmp =~ tr/ܫȺ̪/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'-".'',"'Rr/; |
$tmp =~ tr/ܫȺ̪/CueaauccleOoiZACELlooLlSsOUTtLcaiouAaZzEezCsAAESZzAadDDEdNIIeTUOoNnnSsRUrUyYt'".'',"'Rr/; |
99 |
$tmp =~ s//ss/g; |
$tmp =~ s//ss/g; |
100 |
return $tmp; |
return $tmp; |
101 |
} |
} |
315 |
push @isis_dbs,"$common::isis_data/$db_dir/$_/AMS/AMS"; |
push @isis_dbs,"$common::isis_data/$db_dir/$_/AMS/AMS"; |
316 |
} |
} |
317 |
if (-e "$common::isis_data/$db_dir/$_/ARTI") { |
if (-e "$common::isis_data/$db_dir/$_/ARTI") { |
318 |
push @isis_dbs,"$common::isis_data/$db_dir/$_/ARTI/ARTI"; |
# push @isis_dbs,"$common::isis_data/$db_dir/$_/ARTI/ARTI"; |
319 |
} |
} |
320 |
} |
} |
321 |
|
|
563 |
$tmp =~ s/m1/mjesenik/; |
$tmp =~ s/m1/mjesenik/; |
564 |
$tmp =~ s/m2/polumjesenik/; |
$tmp =~ s/m2/polumjesenik/; |
565 |
$tmp =~ s/nr/neredovito/; |
$tmp =~ s/nr/neredovito/; |
566 |
|
$tmp =~ s/g4/etiri puta godinje/; |
567 |
$bib .= c_iso_852($tmp); |
$bib .= c_iso_852($tmp); |
568 |
$bib .= isis_to_bib($row,'992','%992'); |
$bib .= isis_to_bib($row,'992','%992'); |
569 |
|
|