Tried unsuccessfully to delete a user from within Community.
Links, forums, and community are all new installs currently in testing phase.
The user was created with Community.
Unable to delete user: Error:
$!:
$@: GT::SQL::Table (92584): Wrong argument passed to this subroutine. Usage: Could not create a condition object out of arguments. at /home/username/domains/domain.com/public_html/cgi-bin/admin/Links/Table/Users.pm line 88.
$GT::SQL::error: GT::SQL::Table (92584): Wrong argument passed to this subroutine. Usage: Could not create a condition object out of arguments. at /home/username/domains/domain.com/public_html/cgi-bin/admin/Links/Table/Users.pm line 88.
Any ideas?
Users.pm
sub _plg_delete {
# -------------------------------------------------------------------
init();
my ($self, $cond) = @_;
if (! ref $cond) {
$cond = { Username => $cond };
}
my $count = 0;
my $link_db = $Links::DB->table('Links');
my $sth = $self->select('Username', $cond);
while (my ($user) = $sth->fetchrow_array) {
my @links = $link_db->select('ID', { LinkOwner => $user })->fetchall_list;
for my $link_id (@links) {
$link_db->delete($link_id);
}
if (Links::Authenticate::auth('del_user', { Username => $user })) {
88 my $ret = $self->SUPER::delete($user);
$count++ if $ret;
}
}
return $count;
}
Sincerely,
Rob Wesley
Aboriginal Connections (Indigenous Peoples Worldwide)
robwesley@aboriginalconnections.com
Web Directory | Forums
Links, forums, and community are all new installs currently in testing phase.
The user was created with Community.
Unable to delete user: Error:
$!:
$@: GT::SQL::Table (92584): Wrong argument passed to this subroutine. Usage: Could not create a condition object out of arguments. at /home/username/domains/domain.com/public_html/cgi-bin/admin/Links/Table/Users.pm line 88.
$GT::SQL::error: GT::SQL::Table (92584): Wrong argument passed to this subroutine. Usage: Could not create a condition object out of arguments. at /home/username/domains/domain.com/public_html/cgi-bin/admin/Links/Table/Users.pm line 88.
Any ideas?
Users.pm
sub _plg_delete {
# -------------------------------------------------------------------
init();
my ($self, $cond) = @_;
if (! ref $cond) {
$cond = { Username => $cond };
}
my $count = 0;
my $link_db = $Links::DB->table('Links');
my $sth = $self->select('Username', $cond);
while (my ($user) = $sth->fetchrow_array) {
my @links = $link_db->select('ID', { LinkOwner => $user })->fetchall_list;
for my $link_id (@links) {
$link_db->delete($link_id);
}
if (Links::Authenticate::auth('del_user', { Username => $user })) {
88 my $ret = $self->SUPER::delete($user);
$count++ if $ret;
}
}
return $count;
}
Sincerely,
Rob Wesley
Aboriginal Connections (Indigenous Peoples Worldwide)
robwesley@aboriginalconnections.com
Web Directory | Forums