Account Management
get("name", "");
$accid = $request->getInt("accountid", 0);
$newstatus = $request->getInt("newstatus", 0);
$type = $request->get("type", "");
?>
0) {
my $q2 = "UPDATE account SET status=$newstatus WHERE id=$accid";
$EQDB->query($q2);
print "Status update for Account ID: $accid Completed";
}
if ($query) {
$query = $EQDB->escape_string($query);
my $q;
if($type eq "account") {
$q="select id,name,status from account where name rlike '$query'";
} else {
$q="select b.name as cname,a.id,a.name,a.status from account a, character_ b where b.account_id= a.id and b.name rlike '$query'";
}
my $res=$EQDB->query($q);
if ($res) {
print "\n";
print "\t\n";
if ($type eq "char") {
printf "\t\t| Char Name | \n";
}
printf "\t\tID | \n";
printf "\t\tAcct Name | \n";
printf "\t\tStatus | \n";
printf "\t\tNew Status | \n";
printf "\t
\n";
while(my $row=$res->fetch_row_hash) {
print "\t\n";
if ($type eq "char") {
printf "\t\t| %s | \n",$row->{cname};
}
printf "\t\t%d | \n",$row->{id};
printf "\t\t%s | \n",$row->{name},$row->{name};
printf "\t\t%d | \n",$row->{status};
print "
\n";
print "";
}
print "
";
}
}
?>