my @GROUP = @_;

return "<p><b>No photos to display</b>\n" unless (@GROUP);
my $str;
$str .= "<ol>";

foreach my $ptolist (@GROUP) {
   $str .= "<li>".$$ptolist{title}."</li>";
}

$str .= "</ol>";
$str;