X-Git-Url: http://mj.ucw.cz/gitweb/?a=blobdiff_plain;ds=sidebyside;f=gal%2FGallery%2FGenerator.pm;h=c435543a7d7530ccb14ef5a2ab428e79c88b5e1e;hb=515adf113b16d84f39250a4dc011d11e702eeed0;hp=b3542a1e3f658a4b40fb9698411c5cbb07ee99ac;hpb=3e9b035a84f3754fe26d42a1082f8fa05a97273d;p=gallery.git

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";