Petition Management

query($q); if ($res) { print "\n"; print "\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\n"; while (my $row=$res->fetch_row_hash) { print "\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\t\n"; print "\t\n"; } print "

Account	Character	Text	Date/Time
{accountname}\">$row->{accountname}	$row->{charname}	$row->{petitiontext}	$row->{senttime}

\n"; } else { print "No petitions" } ?>