add access to admin tags

TonyC: bump version number

diff --git a/site/cgi-bin/modules/BSE/ChangePW.pm b/site/cgi-bin/modules/BSE/ChangePW.pm
index c0d370d8d8624521dcd9ffe0a7e612312d74e53c..ce2bfc2923cda763572e43e172fd88cb27a94478 100644 (file)
--- a/site/cgi-bin/modules/BSE/ChangePW.pm
+++ b/site/cgi-bin/modules/BSE/ChangePW.pm
@@ -4,7 +4,7 @@ use BSE::Util::Tags qw(tag_error_img);
 use BSE::Util::HTML;
 use base 'BSE::UI::AdminDispatch';
 
-our $VERSION = "1.002";
+our $VERSION = "1.003";
 
 my %actions =
   (
@@ -40,10 +40,9 @@ sub req_form {
   my %acts;
   %acts =
     (
-     BSE::Util::Tags->basic(undef, $req->cgi, $req->cfg),
-     BSE::Util::Tags->admin(undef, $req->cfg),
-     BSE::Util::Tags->secure($req),
+     $req->admin_tags(),
      message => $msg,
+     ifError => 1, # all messages we display are errors
      error_img => [ \&tag_error_img, $req->cfg, $errors ],
     );