X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Faccess_user.pm;fp=FS%2FFS%2Faccess_user.pm;h=3b36e46f00ce175831bb7b9e1e0081069b7745f2;hb=fa97f29ea43276a6f2636e1f251c775c7fa9e67c;hp=72f232096790efe8a05829bb7df2bfd674470922;hpb=50f247ce6da7497428ce772d3c37c6cba3b9c736;p=freeside.git

diff --git a/FS/FS/access_user.pm b/FS/FS/access_user.pm
index 72f232096..3b36e46f0 100644
--- a/FS/FS/access_user.pm
+++ b/FS/FS/access_user.pm
@@ -161,7 +161,8 @@ sub delete {
   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;