X-Git-Url: http://www.average.org/gitweb/?p=mkgallery.git;a=blobdiff_plain;f=mkgallery.pl;h=4166ae6ce2b1c0aa55cf01663f63b989037a8b79;hp=6b3febe6c8a3adfd40aa75859d6b4a4cd8875f7d;hb=741d62b401cb7cf4b36f733c19af7b45ba51b1a8;hpb=b55242bcbdfa5ab5bea3b3391cee28b79ce59762 diff --git a/mkgallery.pl b/mkgallery.pl index 6b3febe..4166ae6 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", @@ -595,7 +599,9 @@ sub endindex { my $self = shift; my $IND = $self->{-IND}; - print $IND end_center,end_div,end_html,"\n"; + print $IND end_center,end_div, + # "\n",'',"\n", + end_html,"\n"; close($IND) if ($IND); undef $self->{-IND}; @@ -645,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"; } @@ -664,18 +670,20 @@ 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];