remove sensitive information from data_only for siteuser objects

diff --git a/site/cgi-bin/modules/BSE/TB/SiteUser.pm b/site/cgi-bin/modules/BSE/TB/SiteUser.pm
index 100820257d0184d22a9d9ba670773ddae0e8e721..d57f3f866328c3023da3e49901b255be239cb6be 100644 (file)
--- a/site/cgi-bin/modules/BSE/TB/SiteUser.pm
+++ b/site/cgi-bin/modules/BSE/TB/SiteUser.pm
@@ -18,7 +18,7 @@ SiteUser - represent a site user (or member)
 
 =cut
 
-our $VERSION = "1.017";
+our $VERSION = "1.018";
 
 use constant MAX_UNACKED_CONF_MSGS => 3;
 use constant MIN_UNACKED_CONF_GAP => 2 * 24 * 60 * 60;
@@ -1035,6 +1035,15 @@ sub logon {
   return $self->userId;
 }
 
+sub data_only {
+  my ($self) = @_;
+
+  my $data = $self->SUPER::data_only();
+  delete @$data{qw/confirmSecret password password_type/};
+
+  return $data;
+}
+
 =back
 
 =cut