- print $IND start_div({-class=>'ibox',-id=>$name,
- -OnClick=>"HideIbox('$name');"}),
- span({-style=>'float: left;'},b("Info for $name")),
- span({-style=>'float: right;'},
- a({-href=>"#",-OnClick=>"HideIbox('$name');"},"Close")),
- br({-clear=>'all'}),
- $self->infotable,
- end_div,"\n";
-
- print $IND table({-class=>'slide'},Tr(td(
- a({-href=>".html/$name-info.html",
- -onClick=>"return showIbox('$name');"},$title),
- br,
- a({-href=>$medium,-rel=>"lightbox",-title=>$title},
- img({-src=>$thumb})),
- br,
- a({-href=>$name},"($w x $h)"),
- br))),"\n";
+ my $i=0+$self->{-parent}->{-numofimgs};
+ $self->{-parent}->{-numofimgs}++;
+
+ print $IND a({-name=>$name}),"\n",
+ start_table({-class=>'slide'}),start_Tr,start_td,"\n",
+ div({-class=>'slidetitle',-id=>$name},
+ "\n ",a({-href=>".html/$name-info.html",
+ -title=>'Image Info: '.$name,
+ -class=>'infoBox'},
+ $title),"\n"),"\n",
+ div({-class=>'slideimage',-id=>$name},
+ "\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";
+ 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",
+ -title=>"Reduced to ".$w."x".$h},
+ $w."x".$h)," \n";
+ }
+ print $IND " ",a({-href=>$name,
+ -title=>'Original'},$w."x".$h),
+ "\n",end_div,"\n",
+ end_td,end_Tr,end_table,"\n";