X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgallery.pl;h=a6252e6403d4c9c7d50e3b5ab61bc02e66189d10;hp=c61e22c293f2214b78c327c54be491595669c0f2;hb=96a2650cf7261e7427592a2f635c87f4efe5fd92;hpb=cb44a09019db83f27d607386ffef817e007e67d5

diff --git a/mkgallery.pl b/mkgallery.pl
index c61e22c..a6252e6 100755
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -29,7 +29,7 @@ package FsObj;
 use strict;
 use Carp;
 use POSIX qw/getcwd/;
-use CGI qw/:html *table *center *div/;
+use CGI qw/:html *table *Tr *center *div/;
 use Image::Info qw/image_info dim/;
 use Term::ReadLine;
 use Getopt::Long;
@@ -323,7 +323,7 @@ sub makeaux {
 	# slideshow
 	for my $refresh('static', 'slide') {
 		my $fn = sprintf("%s/.html/%s-%s.html",$dn,$name,$refresh);
-		my $imgsrc = sprintf("../.%s/%s",$sizes[1],$name);
+		my $imgsrc = '../'.$self->{$sizes[1]};
 		my $fwdref;
 		my $bakref;
 		if ($nref) {
@@ -365,13 +365,16 @@ sub makeaux {
 				),"\n";
 		}
 		print $F start_center,"\n",
-			h1($title),
-			a({-href=>"../index.html"},"Index")," | ",
-			a({-href=>$bakref},"<<Prev")," | ",
-			a({-href=>$toggleref},$toggletext)," | ",
-			a({-href=>$fwdref},"Next>>"),
-			p,
-			img({-src=>$imgsrc}),"\n",
+			h1($title),"\n",
+			start_table({-class=>'navi'}),start_Tr,"\n",
+			td(a({-href=>"../index.html"},"Index")),"\n",
+			td(a({-href=>$bakref},"<<Prev")),"\n",
+			td(a({-href=>$toggleref},$toggletext)),"\n",
+			td(a({-href=>$fwdref},"Next>>")),"\n",
+			end_Tr,
+			end_table,"\n",
+			table({-class=>'picframe'},
+				Tr(td(img({-src=>$imgsrc})))),"\n",
 			end_center,"\n",
 			end_html,"\n";
 		close($F);