From: Martin Mares <mj@ucw.cz>
Date: Thu, 27 Sep 2012 14:34:03 +0000 (+0200)
Subject: Fix bugs caused by recent changes
X-Git-Url: http://mj.ucw.cz/gitweb/?a=commitdiff_plain;h=c755ba2cea3880eba6c150091986cde6960f9b38;p=gallery.git

Fix bugs caused by recent changes
---

diff --git a/gal/Gallery/Generator.pm b/gal/Gallery/Generator.pm
index b3542a1..c435543 100644
--- a/gal/Gallery/Generator.pm
+++ b/gal/Gallery/Generator.pm
@@ -32,7 +32,7 @@ sub img($$$) {
 	print "$base: ";
 	my $p = new Image::Magick;
 	my $e;
-	my $img = $CF{"PhotoDir"} . $orig;
+	my $img = $CF{"PhotoDir"} . "/$orig";
 	$e = $p->Read($img) and die "Error reading $img: $e";
 	my ($wo, $ho) = $p->Get('width', 'height');
 	my ($w, $h) = ($wo, $ho);
@@ -52,7 +52,7 @@ sub img($$$) {
 	$h = int($h);
 	print " -> ${w}x${h} ";
 	$p->Resize(width=>$w, height=>$h);
-	my $thumb = $CF{"ThumbDir"} . "$base-thumb.jpg";
+	my $thumb = $CF{"ThumbDir"} . "/$base-thumb.jpg";
 	$e = $p->Write($thumb) and die "Unable to write $thumb: $e";
 	print NOTES "$base $w $h $wo $ho\n";
 	print "OK\n";