X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgallery.pl;h=fffb0301c6ca5bd2f21e4205ebdf6a3635fe46a7;hp=d5473c18779abd346930ce5a820aae30a360b139;hb=7a52825ce5f25653945b6f1ba8f1aa0098f95863;hpb=b28da5acd20f0d611ecd7fae9ed6942c239adda6 diff --git a/mkgallery.pl b/mkgallery.pl index d5473c1..fffb030 100755 --- a/mkgallery.pl +++ b/mkgallery.pl @@ -509,7 +509,9 @@ sub makeaux { end_Tr, end_table,"\n", center(table({-class=>'picframe'}, - Tr(td(img({-src=>$imgsrc}))))),"\n", + Tr(td(img({-src=>$imgsrc, + -class=>'standalone', + -alt=>$title}))))),"\n", end_html,"\n"; close($F); } @@ -536,7 +538,9 @@ sub makeaux { start_center,"\n", h1($title),"\n", table({-class=>'ipage'}, - Tr(td(img({-src=>$imgsrc})), + Tr(td(img({-src=>$imgsrc, + -class=>'thumbnail', + -alt=>$title})), td($self->infotable))), a({-href=>'../index.html',-class=>'conceal'}, 'Index'),"\n", @@ -577,10 +581,14 @@ sub startindex { {-src=>$inc."overlay.js"}, {-src=>$inc."urlparser.js"}, {-src=>$inc."multibox.js"}, - {-src=>$inc."slideshow.js"}, + {-src=>$inc."showwin.js"}, + {-src=>$inc."controls.js"}, + {-src=>$inc."show.js"}, {-src=>$inc."gallery.js"}, ]),"\n", comment("Created by ".$version),"\n", + start_div({-class => 'indexContainer', + -id => 'indexContainer'}), a({-href=>"../index.html"},"UP"),"\n", start_center,"\n", h1($title),"\n", @@ -591,7 +599,9 @@ sub endindex { my $self = shift; my $IND = $self->{-IND}; - print $IND end_center,end_html,"\n"; + print $IND end_center,end_div, + # "\n",'',"\n", + end_html,"\n"; close($IND) if ($IND); undef $self->{-IND}; @@ -641,7 +651,7 @@ sub startimglist { my $slideref = sprintf(".html/%s-slide.html",$first); print $IND h2("Images ", - a({-href=>$slideref,-class=>'showStart',-id=>$first}, + a({-href=>$slideref,-class=>'showStart',-rel=>'i'.$first}, '> slideshow')),"\n"; } @@ -660,28 +670,32 @@ sub img_entry { print $IND a({-name=>$name}),"\n", start_table({-class=>'slide'}),start_Tr,start_td,"\n", - div({-class=>'slidetitle',-id=>$name}, + div({-class=>'slidetitle'}, "\n ",a({-href=>".html/$name-info.html", -title=>'Image Info: '.$name, -class=>'infoBox'}, $title),"\n"),"\n", - div({-class=>'slideimage',-id=>$name}, + div({-class=>'slideimage'}, "\n ",a({-href=>".html/$name-static.html", -title=>$title, -class=>'showImage', - -id=>$name}, - img({-src=>$thumb})),"\n"),"\n", - start_div({-class=>'varimages',-id=>$name,-title=>$title}),"\n"; + -rel=>'i'.$name}, + img({-src=>$thumb, + -class=>'thumbnail', + -alt=>$title})),"\n"),"\n", + start_div({-class=>'varimages',-id=>'i'.$name,-title=>$title}),"\n"; foreach my $sz(@sizes) { my $src=$self->{$sz}->{'url'}; my $w=$self->{$sz}->{'dim'}->[0]; my $h=$self->{$sz}->{'dim'}->[1]; print $IND " ",a({-href=>$src, -class=>"conceal", + -rel=>$w."x".$h, -title=>"Reduced to ".$w."x".$h}, $w."x".$h)," \n"; } print $IND " ",a({-href=>$name, + -rel=>$w."x".$h, -title=>'Original'},$w."x".$h), "\n",end_div,"\n", end_td,end_Tr,end_table,"\n";