Added access to the message tag on two user targets.

diff --git a/site/cgi-bin/modules/BSE/UserReg.pm b/site/cgi-bin/modules/BSE/UserReg.pm
index 526a9e43e1c0225fceae45935a276a98440fcb0b..854c6d16027b5a9b9780851e53e7b7b7414120b9 100644 (file)
--- a/site/cgi-bin/modules/BSE/UserReg.pm
+++ b/site/cgi-bin/modules/BSE/UserReg.pm
@@ -1225,9 +1225,11 @@ sub lost_password {
                                        $msgs->(lostmailerror=>
                                                "Email error:".$mail->errstr,
                                                $mail->errstr));
+  $message = $message ? escape_html($message) : $req->message;
   my %acts;
   %acts = 
     (
+     message => $message,
      $req->dyn_user_tags(),
      user => sub { CGI::escapeHTML($user->{$_[0]}) },
     );