mason/dhandler (.image): Slight reformatting.

[tgal] / mason / dhandler

diff --git a/mason/dhandler b/mason/dhandler
index 49e5f84..4676769 100755 (executable)
--- a/mason/dhandler
+++ b/mason/dhandler
@@ -231,7 +231,7 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
          my $img = TrivGal::Image->new(join_paths $dir, $f->name);
          for my $sz (@thumbsz) { $tn{$f->name}{$sz} = $img->scale($sz); }
          if ($ff->[$i]->name eq "$base$ext")
-           { $fi = $i; $vw = $img->scale("view"); }
+           { $fi = $i; $vw = $img->scale("medium"); }
        }
        defined $fi or die "image not found in its folder?";
        my $this = $ff->[$fi];
@@ -248,12 +248,11 @@ Failed to find &lsquo;<% $path |h %>&rsquo;.
        }
 
        my $links = "";
-       my $pre =
-         urlencode join_paths $SCRIPTURL, $dir;
+       my $pre = urlencode join_paths $SCRIPTURL, $dir;
        for my $rel (qw{up first prev next last}) {
-         exists $link{$rel} and 
-           $links .= sprintf "  <link rel=%s href=\"%s\">\n",
-             $rel, urlencode "$pre/$link{$rel}";
+         $links .= sprintf "  <link rel=%s href=\"%s\">\n", $rel,
+                           urlencode "$pre/$link{$rel}"
+           if exists $link{$rel};
        }
 </%perl>
 %