X-Git-Url: https://git.distorted.org.uk/~mdw/tgal/blobdiff_plain/b0e94d8a6a8cfc0cb5f19f7bdfa110af15c8ca6e..27ad11a21f4e10123bf32fd307cf917022afdafc:/mason/dhandler

diff --git a/mason/dhandler b/mason/dhandler
index 94c39cc..44ab7ed 100755
--- a/mason/dhandler
+++ b/mason/dhandler
@@ -85,12 +85,14 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
 
 	my $size = "medthumb";
 	my %tn;
+	my (%nd, %nf);
 	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;
 	  my ($ddd, $fff, $iii);
 	  ($ddd, $fff, $iii) = listdir join_paths $IMGROOT, $p;
+	  $nd{$d} = @$ddd; $nf{$d} = @$fff;
 	  DIR: for (;;) {
 	    if (defined $iii) {
 	      my $index = join_paths $p, $iii->name;
@@ -120,9 +122,13 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
 <h2>Subfolders</h2>
 <div class="gallery <% $size %>">
 %   for my $d (@$dd) {
+%     my $count = "";
+%     $count .= "$nd{$d}/" if $nd{$d};
+%     $count .= "$nf{$d}" if $nf{$d};
   <& .thumbnail, target => $d->name, comment => $d->comment,
 		 tn => $tn{$d}, size => $size,
-		 caption => $m->interp->apply_escapes($d->name, "h") &>\
+		 caption =>
+		   $m->interp->apply_escapes($d->name, "h") . " [$count]" &>\
 %   }
 </div>
 % }