Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision c617a444

Von Moritz Bunkus vor mehr als 11 Jahren hinzugefügt

  • ID c617a444526ae87cca99936a613ceb6ded70ba6e
  • Vorgänger 466be2ee
  • Nachfolger 6c82d505

CRM-Menü automatisch einlesen, falls es existiert

Siehe #2328.

Unterschiede anzeigen:

SL/Layout/Base.pm
29 29 
}
30 30 

  		




  31
  31
  
    
sub init_menu {


  		




  32
  
  
    
  Menu->new('menu.ini');


  		




  
  32
  
    
  Menu->new('crm/update/menu.ini', 'menu.ini');


  		




  33
  33
  
    
}


  		




  34
  34
  
    

  		




  35
  35
  
    
sub init_auto_reload_resources_param {


  		












  

    
      SL/Menu.pm
    
  





  42
  42
  
    
sub new {


  		




  43
  43
  
    
  $main::lxdebug->enter_sub();


  		




  44
  44
  
    

  		




  45
  
  
    
  my ($type, $menufile) = @_;


  		




  
  45
  
    
  my ($type, @menufiles) = @_;


  		




  
  46
  
    
  my $self               = bless {}, $type;


  		




  46
  47
  
    

  		




  47
  
  
    
  my $self    = {};


  		




  48
  
  
    
  my $inifile = Inifile->new($menufile);


  		




  
  48
  
    
  my @order;


  		




  49
  49
  
    

  		




  50
  
  
    
  map { $self->{$_} = $inifile->{$_} } keys %{ $inifile };


  		




  
  50
  
    
  foreach my $menufile (grep { -f } @menufiles) {


  		




  
  51
  
    
    my $inifile = Inifile->new($menufile);


  		




  51
  52
  
    

  		




  52
  
  
    
  bless $self, $type;


  		




  
  53
  
    
    push @order, @{ delete($inifile->{ORDER}) || [] };


  		




  
  54
  
    
    $self->{$_} = $inifile->{$_} for keys %{ $inifile };


  		




  
  55
  
    
  }


  		




  
  56
  
    

  		




  
  57
  
    
  $self->{ORDER} = \@order;


  		




  53
  58
  
    

  		




  54
  59
  
    
  $self->set_access();


  		




  55
  60
  
    

  		












Auch abrufbar als:  Unified diff