summaryrefslogtreecommitdiff
path: root/FS/FS/part_export/sqlradius.pm
diff options
context:
space:
mode:
authorivan <ivan>2002-04-17 20:43:45 +0000
committerivan <ivan>2002-04-17 20:43:45 +0000
commit6866bdda26d1feb152af991388113e2e9309fafb (patch)
treea8815bccfd7d870b1cce9405fbd70d7b1430a7cb /FS/FS/part_export/sqlradius.pm
parentf03d05cfbcc04564f8ce40e798c3d1a49dba71d8 (diff)
fix usergroup_delete DELETE syntax
Diffstat (limited to 'FS/FS/part_export/sqlradius.pm')
-rw-r--r--FS/FS/part_export/sqlradius.pm4
1 files changed, 2 insertions, 2 deletions
diff --git a/FS/FS/part_export/sqlradius.pm b/FS/FS/part_export/sqlradius.pm
index fa2153f..7337b5a 100644
--- a/FS/FS/part_export/sqlradius.pm
+++ b/FS/FS/part_export/sqlradius.pm
@@ -143,10 +143,10 @@ sub sqlradius_usergroup_delete { #subroutine, not method
my( $username, @groups ) = @_;
my $sth = $dbh->prepare(
- "DELETE FROM usergroup ( id, UserName, GroupName ) VALUES ( ?, ?, ? )"
+ "DELETE FROM usergroup WHERE UserName = ? AND GroupName = ?"
) or die $dbh->errstr;
foreach my $group ( @groups ) {
- $sth->execute( '', $username, $group )
+ $sth->execute( $username, $group )
or die "can't delete from groupname table: ". $sth->errstr;
}
$dbh->disconnect;