#!/usr/bin/perl

require "/home/dave/public_html/site/pagelib.pl";

header();
head();

print "<br><table>\n";
foreach $s (@{$g_pages[0]->{data}}) {
  if($s->{caption} =~ /creations/i) {
    foreach $c (@{$s->{data}}) {
      print "<tr><td>";
      imglink($c->{preview},$c->{script},67,50);
      print "</td><td>$c->{title}</td></tr>\n";
    }
  }
}
print "</table>\n";

foot();