} else {
my $i_sth = $dbh->prepare(
- "INSERT INTO rad$table ( id, UserName, Attribute, Value ) ".
- "VALUES ( ?, ?, ?, ? )"
+ "INSERT INTO rad$table ( UserName, Attribute, Value ) ".
+ "VALUES ( ?, ?, ? )"
) or die $dbh->errstr;
- $i_sth->execute( '', $username, $attribute, $attributes{$attribute} )
+ $i_sth->execute( $username, $attribute, $attributes{$attribute} )
or die $i_sth->errstr;
}
my( $username, @groups ) = @_;
my $sth = $dbh->prepare(
- "INSERT INTO usergroup ( id, UserName, GroupName ) VALUES ( ?, ?, ? )"
+ "INSERT INTO usergroup ( UserName, GroupName ) VALUES ( ?, ? )"
) or die $dbh->errstr;
foreach my $group ( @groups ) {
$sth->execute( '', $username, $group )