sub startindex {
my $self = shift;
my $fn = $self->{-fullpath}.'/index.html';
+ my $block = $self->{-fullpath}.'/.noindex';
+ $fn = '/dev/null' if ( -f $block );
my $IND;
unless (open($IND,'>'.$fn)) {
warn "cannot open $fn: $!";
end_div,"\n";
print $IND table({-class=>'slide'},Tr(td(
- a({-href=>".html/$name-info.html",
+ a({-href=>".html/$name-info.html",-title=>'Image Info',
-onClick=>"return showIbox('$name');"},$title),
br,
a({-href=>$medium,-rel=>"lightbox",-title=>$title},
img({-src=>$thumb})),
br,
- a({-href=>$name},"($w x $h)"),
+ a({-href=>$name,-title=>'Original Image'},"($w x $h)"),
br))),"\n";
}