style slideshow
authorEugene Crosser <crosser@average.org>
Thu, 2 Mar 2006 14:52:24 +0000 (14:52 +0000)
committerEugene Crosser <crosser@average.org>
Thu, 2 Mar 2006 14:52:24 +0000 (14:52 +0000)
include/gallery.css
mkgallery.pl

index af7ba23079eb1b17af20ed85df3569e91b5a6b93..5778fc05be56e6fdd15aa534ff53a0baecfd3ef6 100644 (file)
@@ -66,3 +66,23 @@ table.infotable td {
  border-width: 0px;
  padding: 0.3ex;
 }
+
+table.navi {
+ background-color: #c0c0c0;
+ border: 1px solid black;
+ border-collapse: collapse;
+ text-align: center;
+ margin: 0px;
+ padding: 0px;
+}
+table.navi td {
+ border: 1px solid black;
+ margin: 0px;
+ padding: 1ex;
+}
+
+table.picframe {
+ border: 1px solid black;
+ margin: 10px;
+ padding: 10px;
+}
index c61e22c293f2214b78c327c54be491595669c0f2..a6252e6403d4c9c7d50e3b5ab61bc02e66189d10 100755 (executable)
@@ -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},"&lt;&lt;Prev")," | ",
-                       a({-href=>$toggleref},$toggletext)," | ",
-                       a({-href=>$fwdref},"Next&gt;&gt;"),
-                       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},"&lt;&lt;Prev")),"\n",
+                       td(a({-href=>$toggleref},$toggletext)),"\n",
+                       td(a({-href=>$fwdref},"Next&gt;&gt;")),"\n",
+                       end_Tr,
+                       end_table,"\n",
+                       table({-class=>'picframe'},
+                               Tr(td(img({-src=>$imgsrc})))),"\n",
                        end_center,"\n",
                        end_html,"\n";
                close($F);