local $FS::UID::AutoCommit = 0;
my $dbh = dbh;
- my $error = $self->SUPER::delete(@_);
+ my $error = $self->delete_password_history
+ || $self->SUPER::delete(@_);
if ( $error ) {
$dbh->rollback or die $dbh->errstr if $oldAutoCommit;
sub locale {
my $self = shift;
return $self->{_locale} if exists($self->{_locale});
-warn "access_user->locale called\n";
$self->{_locale} = $self->option('locale');
}