mame concealable elements on info page. hide them when loaded to info frame.

[mkgallery.git] / mkgallery.pl

diff --git a/mkgallery.pl b/mkgallery.pl
index 085f42a7a0600826a41c64d609cf9d30661462d8..26e1729e3d11bddad9967ce68abe190cc9a905f1 100755 (executable)
--- a/mkgallery.pl
+++ b/mkgallery.pl
@@ -524,13 +524,19 @@ sub makeaux {
                my $imgsrc = sprintf("../.%s/%s",$sizes[0],$name);
                print $F start_html(-title=>$title,
                                -encoding=>"utf-8",
-                               -style=>{-src=>$inc."gallery.css"},),"\n",
+                               -style=>{-src=>$inc."gallery.css"},
+                               -script=>[
+                                       {-src=>$inc."mootools.js"},
+                                       {-src=>$inc."urlparser.js"},
+                                       {-src=>$inc."infopage.js"},
+                               ]),"\n",
                        start_center,"\n",
                        h1($title),"\n",
                        table({-class=>'ipage'},
                                Tr(td(img({-src=>$imgsrc})),
                                        td($self->infotable))),
-                       a({-href=>'../index.html'},'Index'),"\n",
+                       a({-href=>'../index.html',-class=>'conceal'},
+                               'Index'),"\n",
                        end_center,"\n",
                        end_html,"\n";
                close($F);
@@ -667,23 +673,13 @@ sub img_entry {
 
        my $i=0+$self->{-parent}->{-numofimgs};
        $self->{-parent}->{-numofimgs}++;
-       print $IND start_div({-class=>'ibox',-id=>$name,
-                               -OnClick=>"HideIbox('$name');"}),"\n",
-               start_div({-class=>'iboxtitle'}),
-               span({-style=>'float: left;'},b("Info for $name")),
-               span({-style=>'float: right;'},
-                       a({-href=>"#",-OnClick=>"HideIbox('$name');"},"Close")),
-               br({-clear=>'all'}),"\n",
-               end_div,"\n",
-               $self->infotable,
-               end_div,"\n";
 
        print $IND a({-name=>$i}),"\n",
                start_table({-class=>'slide'}),start_Tr,start_td,"\n",
                div({-class=>'slidetitle',-id=>$name},
-                       a({-href=>".html/$name-info.html",
-                               -title=>'Image Info',
-                               -class=>'infobox'},
+                       a({-href=>".html/$name-info.html?conceal",
+                               -title=>'Image Info: '.$name,
+                               -class=>'infoBox'},
                                $title)),"\n",
                div({-class=>'slideimage',-id=>$name},
                        a({-href=>".html/$name-static.html",-title=>$title,