X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fcontact.pm;h=4012109a77f295916f4934c1f6b5c7b3a63f50ac;hb=1079e4e27cbb9e13e9ae4eada00ffdbc81066cd0;hp=d906dc9a2e688da9ef656990ce0ba3c517528a9d;hpb=5bc19ba554e29029e7963e40012e43432892306b;p=freeside.git

diff --git a/FS/FS/contact.pm b/FS/FS/contact.pm
index d906dc9a2..4012109a7 100644
--- a/FS/FS/contact.pm
+++ b/FS/FS/contact.pm
@@ -233,7 +233,8 @@ sub delete {
     }
   }
 
-  my $error = $self->SUPER::delete;
+  my $error = $self->delete_password_history
+           || $self->SUPER::delete;
   if ( $error ) {
     $dbh->rollback if $oldAutoCommit;
     return $error;