{ $tn{$f} = TrivGal::Image->new($path . $f->name)->scale($size); }
for my $d (@$dd) {
my $p = join_paths $path, $d->name;
+ my ($ddd, $fff, $iii);
+ ($ddd, $fff, $iii) = listdir join_paths $IMGROOT, $p;
DIR: for (;;) {
- my ($ddd, $fff, $iii) = listdir join_paths $IMGROOT, $p;
if (defined $iii) {
my $index = join_paths $p, $iii->name;
$tn{$d} = TrivGal::Image->new($index)->scale($size);
}
if (!@$ddd) { $tn{$d} = undef; last DIR; }
$p = join_paths $p, $ddd->[0]->name;
+ ($ddd, $fff, $iii) = listdir join_paths $IMGROOT, $p;
}
}
</%perl>
if (defined $scale) {
my $img = TrivGal::Image->new($path);
- $m->redirect($img->scale($scale));
+ $m->redirect($img->scale($scale, 1));
}
my $real = join_paths $IMGROOT, $path;