prop set

[mkgallery.git] / mkgallery.pl

diff --git a/mkgallery.pl b/mkgallery.pl
index 7efd5c4209209b42e03497f7b6ae9ee29e23bad2..d5473c18779abd346930ce5a820aae30a360b139 100755 (executable)
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -1,6 +1,6 @@
 #!/usr/bin/perl
 
-# $Id$
+my $version='$Id$';
 
 # Recursively create image gallery index and slideshow wrappings.
 # Makes use of modified "slideshow" javascript by Samuel Birch
@@ -489,14 +489,16 @@ sub makeaux {
                                        -head=>meta({-http_equiv=>'Refresh',
                                                -content=>"3; url=$fwdref"}),
                                        -style=>{-src=>$inc."gallery.css"},
-                                       ),"\n";
+                                       ),"\n",
+                                       comment("Created by ".$version),"\n";
                                                
                        } else {
                                print $F start_html(-title=>$title,
                                        -encoding=>"utf-8",
                                        -bgcolor=>"#808080",
                                        -style=>{-src=>$inc."gallery.css"},
-                                       ),"\n";
+                                       ),"\n",
+                                       comment("Created by ".$version),"\n";
                        }
                        print $F start_table({-class=>'navi'}),start_Tr,"\n",
                                td(a({-href=>"../index.html"},"Index")),"\n",
@@ -530,6 +532,7 @@ sub makeaux {
                                        {-src=>$inc."urlparser.js"},
                                        {-src=>$inc."infopage.js"},
                                ]),"\n",
+                       comment("Created by ".$version),"\n",
                        start_center,"\n",
                        h1($title),"\n",
                        table({-class=>'ipage'},
@@ -576,8 +579,8 @@ sub startindex {
                                {-src=>$inc."multibox.js"},
                                {-src=>$inc."slideshow.js"},
                                {-src=>$inc."gallery.js"},
-                               {-code=>"var incPrefix='$inc';"}
-                       ]),
+                       ]),"\n",
+               comment("Created by ".$version),"\n",
                a({-href=>"../index.html"},"UP"),"\n",
                start_center,"\n",
                h1($title),"\n",
@@ -668,7 +671,7 @@ sub img_entry {
                                -class=>'showImage',
                                -id=>$name},
                                img({-src=>$thumb})),"\n"),"\n",
-               start_div({-class=>'varimages',-id=>$name,-name=>$title}),"\n";
+               start_div({-class=>'varimages',-id=>$name,-title=>$title}),"\n";
        foreach my $sz(@sizes) {
                my $src=$self->{$sz}->{'url'};
                my $w=$self->{$sz}->{'dim'}->[0];