Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision d8ac0828

Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt

  • ID d8ac08282dad52789b8bea785e8cddae44085483
  • Vorgänger 738fb45b
  • Nachfolger 672e9658

Admin: Teile von admin.pl in neuen Controller Admin verschoben; Mandanten anzeigen

Unterschiede anzeigen:

SL/Dispatcher/AuthHandler.pm
1 
  package SL::Dispatcher::AuthHandler;
1 
package SL::Dispatcher::AuthHandler;
2 2 

  		




  3
  3
  
    
use strict;


  		




  4
  4
  
    

  		




  ......




  18
  18
  
    
  my $handler_name                     = "SL::Dispatcher::AuthHandler::" . ucfirst($auth_level);


  		




  19
  19
  
    
  $self->{handlers}                  ||= {};


  		




  20
  20
  
    
  $self->{handlers}->{$handler_name} ||= $handler_name->new;


  		




  21
  
  
    
  my $ok = $self->{handlers}->{$handler_name}->handle;


  		




  
  21
  
    
  my $ok = $self->{handlers}->{$handler_name}->handle(%param);


  		




  22
  22
  
    

  		




  23
  23
  
    
  return (


  		




  24
  24
  
    
    auth_level     => $auth_level,


  		




  ......




  40
  40
  
    
sub get_keep_auth_vars {


  		




  41
  41
  
    
  my ($self, %param) = @_;


  		




  42
  42
  
    

  		




  43
  
  
    
  return $param{routing_type} eq 'controller' ? "SL::Controller::$param{controller}"->keep_auth_vars_in_form : 0;


  		




  
  43
  
    
  return $param{routing_type} eq 'controller' ? "SL::Controller::$param{controller}"->keep_auth_vars_in_form(action => $param{action}) : 0;


  		




  44
  44
  
    
}


  		




  45
  45
  
    

  		




  46
  46
  
    
1;


  		












Auch abrufbar als:  Unified diff