my $title;
my $T;
if (open($T,'<'.$fullpath.'/.title')) {
+ binmode($T, ":utf8");
$title = <$T>;
$title =~ s/[\r\n]*$//;
close($T);
"?q=$la,$lo&ll=$la,$lo",
-title=>"$la,$lo",
-class=>'geoloc'},
- div({-class=>'geoloc'},"G")),"\n";
+ div({-class=>'geoloc'},"")),"\n";
}
print $IND a({-href=>".html/$name-static.html",
-title=>$title,