#!/usr/bin/perl
use lib '.';
require "pagelib.pl";

header();
head();
body();
foot();

sub body {
    print "<br>\n";
    print "<table width=100\%>\n";
    print "<tr><td colspan=2 align=center><img src=\"/\~dave/images/tidbits.gif\"></td></tr>\n";
    foreach('set_list','set_list_parse') {
	print "<tr><td width=150 valign=top><a href=\"$pages{$_}{url}\"><img src=\"$pages{$_}{img}\" width=150 height=25 border=0></a></td>\n";
	print "<td width=490>$pages{$_}{desc}</td></tr>\n";
	print "<tr><td width=150><br></td><td width=490><img src=\"/~dave/images/spacer.gif\" border=0 width=490 height=1></td></tr>\n";
    }
    print "</table>\n";


}