+
+ my $size = "medthumb";
+ my %tn;
+ for my $f (@$ff)
+ { $tn{$f} = TrivGal::Image->new($path . $f->name)->scale($size); }
+ for my $d (@$dd) {
+ my $p = join_paths $path, $d->name;
+ 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);
+ last DIR;
+ }
+ if (!@$ddd) { $tn{$d} = undef; last DIR; }
+ $p = join_paths $p, $ddd->[0]->name;
+ }
+ }