diff options
author | ivan <ivan> | 2002-04-17 20:43:45 +0000 |
---|---|---|
committer | ivan <ivan> | 2002-04-17 20:43:45 +0000 |
commit | 6866bdda26d1feb152af991388113e2e9309fafb (patch) | |
tree | a8815bccfd7d870b1cce9405fbd70d7b1430a7cb /FS/FS/part_export/sqlradius.pm | |
parent | f03d05cfbcc04564f8ce40e798c3d1a49dba71d8 (diff) |
fix usergroup_delete DELETE syntax
Diffstat (limited to 'FS/FS/part_export/sqlradius.pm')
-rw-r--r-- | FS/FS/part_export/sqlradius.pm | 4 |
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; |