new client side Ajax admin user interface

[bse.git] / site / cgi-bin / modules / BSE / ChangePW.pm

diff --git a/site/cgi-bin/modules/BSE/ChangePW.pm b/site/cgi-bin/modules/BSE/ChangePW.pm
index c747e5ffa8e19e6c8ac29341b29111a8e60e6096..5aa3e711cd810a206dc0cf479f9810d458fa46bd 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.000";
+our $VERSION = "1.001";
 
 my %actions =
   (
@@ -78,12 +78,18 @@ sub req_change {
       && $newpw ne $confirm) {
     $errors{confirm} = "Confirmation password does not match new password";
   }
-  keys %errors
-    and return $class->req_form($req, undef, \%errors);
+  if (keys %errors) {
+    $req->is_ajax
+      and return $class->_field_error($req, \%errors);
+    return $class->req_form($req, undef, \%errors);
+  }
 
   $user->changepw($newpw);
   $user->save;
 
+  $req->is_ajax
+    and return $req->json_content(success => 1);
+
   my $r = $cgi->param('r');
   unless ($r) {
     $r = $req->url('menu', { m => "New password saved" });