From: Martin Mares <mj@ucw.cz>
Date: Wed, 26 Dec 2012 13:19:09 +0000 (+0100)
Subject: Gallery2: Debugging
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=af6a110cfa2e84b53328488f70e23a316bececfd;p=gallery.git

Gallery2: Debugging
---

diff --git a/gal2/UCW/Gallery/Web.pm b/gal2/UCW/Gallery/Web.pm
index ac33361..2d6de1d 100644
--- a/gal2/UCW/Gallery/Web.pm
+++ b/gal2/UCW/Gallery/Web.pm
@@ -110,7 +110,7 @@ sub show_list() {
 		my $annot = UCW::CGI::html_escape($m->{title});
 		my $tw = $tm->{w};
 		my $th = $tm->{h};
-		my $thumb = $CF{'ThumbUrlPrefix'} . "/$thumb_fmt/$id.jpg";
+		my $thumb = $CF{'ThumbUrlPrefix'} . "$thumb_fmt/$id.jpg";
 		my $side_w = $CF{"ThumbW"} + 2*$CF{"InteriorMargin"};
 		my $side_h = $CF{"ThumbH"} + 2*$CF{"InteriorMargin"};
 		my $box_w = $CF{"LeftW"} + $side_w + $CF{"RightW"};
@@ -121,7 +121,7 @@ sub show_list() {
 		my $ol = $CF{'LeftW'} + $CF{'InteriorMargin'} + int(($CF{'ThumbW'} - $tw)/2);
 		my $ot = $CF{'TopH'} + $CF{'InteriorMargin'} + int(($CF{'ThumbH'} - $th)/2);
 		my $tit = ($annot ne "") ? " title=\"$annot\"" : "";
-		my $url = ($CF{"ImageSubpages"} ? "?i=$id" : $orig);
+		my $url = ($CF{"ImageSubpages"} ? "?i=$idx" : $orig);
 		print "<a href='$url'><img src='$thumb' width=$w height=$h alt='$orig'$tit class=ti style='left: ${ol}px; top: ${ot}px'></a>\n";
 		print "<img src='$CF{'RightImg'}' width=$CF{'RightW'} height=$side_h alt='' class=tr>\n";
 		print "<img src='$CF{'BotImg'}' width=$box_w height=$CF{'BotH'} alt='' class=tb>\n";