Probably pedantically technical. I was considering doing this anyway,
and then noticed that folders listed in an index file (a) must have a
trailing `/' to be recognized as a folder, and (b) this doesn't get
removed in the generated contact page.
my (@d, @f);
my $ix = undef;
+ $path =~ s#/$##;
if (-f "$path/.tgal.index") {
open my $f, "<", "$path/.tgal.index";
my $item = undef;
my $st = stat "$path/$e";
my $list = undef;
if ($dotp) { }
- elsif (-d $st) { $list = \@d; }
+ elsif (-d $st) { $list = \@d; $e .= "/"; }
elsif ($TYPE{lc $ext} && -f $st) { $list = \@f; }
$list and push @$list, TrivGal::Item->new($e);
}
% for my $size (qw{medthumb}) {
<div class="gallery <% $size %>">
% for my $d (@$dd) {
- <& .thumbnail, target => $d->name . "/", comment => $d->comment,
+ <& .thumbnail, target => $d->name, comment => $d->comment,
img => $tn{$d}, size => $size,
caption => $m->interp->apply_escapes($d->name, "h") &>\
% }