$self->html_bot;
}
+sub show_pre_thumbs($) {
+ my ($self) = @_;
+}
+
+sub show_post_thumbs($) {
+ my ($self) = @_;
+}
+
sub show_list($) {
my ($self) = @_;
$self->html_top;
print "<h1>", $self->get('Title'), "</h1>\n";
my $subtitle = $self->get('SubTitle');
print "<h2>$subtitle</h2>\n" if $subtitle ne "";
+ $self->show_pre_thumbs;
my $meta = $self->{meta};
for my $idx (1..$self->{num_photos}) {
$self->show_thumb($meta, $id, $click_url);
}
+ $self->show_post_thumbs;
$self->html_bot();
}