diff options
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; |