## 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
Account | Character | Text | Date/Time
--- | --- | --- | ---
\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
{accountname}\">$row->{accountname} | $row->{charname} | $row->{petitiontext} | $row->{senttime}
\n"; } print "

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