<{perl use HTML::WebMake::PerlLib::ThumbnailTag; $self->define_empty_tag ("thumbnail", \&HTML::WebMake::PerlLib::ThumbnailTag::handle_thumbnail_tag, qw(name)); sub make_thumbnail_table { my ($rowsize, @imagelist) = @_; my @rows = (); my @columns = (); my $count = 0; $rowsize ||= 1; foreach my $img (@imagelist) { set_content ("thumbnail.table.item", ''); push (@columns, get_content ("thumbnail.table.td")); if ((++$count) % $rowsize == 0) { set_content ("thumbnail.table.tds", join ('', @columns)); push (@rows, get_content ("thumbnail.table.tr")); @columns = (); } } set_content ("thumbnail.table.tds", join ('', @columns)); push (@rows, get_content ("thumbnail.table.tr")); return join ('', @rows); } '' }>