## Petition Management

query($q); if ($res) { print "

\n"; print "\t
\n"; print "\t\tAccount\n"; print "\t\t | Character\n"; print "\t\t | Text\n"; print "\t\t | Date/Time\n"; print "\t
--- | --- | --- | ---
\n"; while (my $row=$res->fetch_row_hash) { print "\t
\n"; print "\t\t{accountname}\">$row->{accountname}\n"; print "\t\t | $row->{charname}\n"; print "\t\t | $row->{petitiontext}\n"; print "\t\t | $row->{senttime}\n"; print "\t
\n"; } print "

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