]> wagnertech.de Git - mfinanz.git/blobdiff - SL/Dispatcher/AuthHandler/Admin.pm
Formularfelder und Session-Keys für Logins umbenannt
[mfinanz.git] / SL / Dispatcher / AuthHandler / Admin.pm
index 5a92015f545129d4c81c14ad6f1984800ea98300..7b194ff04f9aa50453f2c6e0158d76fea5883e22 100644 (file)
@@ -7,9 +7,9 @@ use parent qw(Rose::Object);
 sub handle {
   %::myconfig = ();
 
-  return if $::auth->authenticate_root($::auth->get_session_value('rpw')) == $::auth->OK();
+  return if $::auth->authenticate_root($::auth->get_session_value('admin_password')) == $::auth->OK();
 
-  $::auth->delete_session_value('rpw');
+  $::auth->delete_session_value('admin_password');
   SL::Dispatcher::show_error('login/password_error', 'password', is_admin => 1);
 }