Projekt

Allgemein

Profil

« Zurück | Weiter » 

Revision 705b8473

Von Sven Schöling vor mehr als 15 Jahren hinzugefügt

  • ID 705b8473dadb67940c396af5519689506d1c0845
  • Vorgänger 691ad25a
  • Nachfolger ec2e4394

Whitespace Purge + 2 Funktionen auf Debuglevel 2 gesetzt.

Unterschiede anzeigen:

SL/Auth.pm
122 122 
}
123 123 

  		




  124
  124
  
    
sub dbconnect {


  		




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


  		




  
  125
  
    
  $main::lxdebug->enter_sub(2);


  		




  126
  126
  
    

  		




  127
  127
  
    
  my $self     = shift;


  		




  128
  128
  
    
  my $may_fail = shift;


  		




  129
  129
  
    

  		




  130
  130
  
    
  if ($self->{dbh}) {


  		




  131
  
  
    
    $main::lxdebug->leave_sub();


  		




  
  131
  
    
    $main::lxdebug->leave_sub(2);


  		




  132
  132
  
    
    return $self->{dbh};


  		




  133
  133
  
    
  }


  		




  134
  134
  
    

  		




  ......




  629
  629
  
    
  my $locale = $main::locale;


  		




  630
  630
  
    

  		




  631
  631
  
    
  my @all_rights = (


  		




  632
  
  
    
    ["--crm",			       $locale->text("CRM optional software")], 


  		




  633
  
  
    
    ["crm_search",		       $locale->text("CRM search")], 


  		




  634
  
  
    
    ["crm_new",			       $locale->text("CRM create customers, vendors and contacts")], 


  		




  635
  
  
    
    ["crm_service",		       $locale->text("CRM services")], 


  		




  636
  
  
    
    ["crm_admin",		       $locale->text("CRM admin")], 


  		




  637
  
  
    
    ["crm_adminuser",		       $locale->text("CRM user")], 


  		




  638
  
  
    
    ["crm_adminstatus",		       $locale->text("CRM status")], 


  		




  639
  
  
    
    ["crm_email",		       $locale->text("CRM send email")], 


  		




  640
  
  
    
    ["crm_termin",		       $locale->text("CRM termin")], 


  		




  641
  
  
    
    ["crm_opportunity",		       $locale->text("CRM opportunity")], 


  		




  642
  
  
    
    ["crm_knowhow",		       $locale->text("CRM know how")], 


  		




  643
  
  
    
    ["crm_follow",		       $locale->text("CRM follow up")], 


  		




  644
  
  
    
    ["crm_notices",		       $locale->text("CRM notices")], 


  		




  645
  
  
    
    ["crm_other",		       $locale->text("CRM other")], 


  		




  
  632
  
    
    ["--crm",			       $locale->text("CRM optional software")],


  		




  
  633
  
    
    ["crm_search",		       $locale->text("CRM search")],


  		




  
  634
  
    
    ["crm_new",			       $locale->text("CRM create customers, vendors and contacts")],


  		




  
  635
  
    
    ["crm_service",		       $locale->text("CRM services")],


  		




  
  636
  
    
    ["crm_admin",		       $locale->text("CRM admin")],


  		




  
  637
  
    
    ["crm_adminuser",		       $locale->text("CRM user")],


  		




  
  638
  
    
    ["crm_adminstatus",		       $locale->text("CRM status")],


  		




  
  639
  
    
    ["crm_email",		       $locale->text("CRM send email")],


  		




  
  640
  
    
    ["crm_termin",		       $locale->text("CRM termin")],


  		




  
  641
  
    
    ["crm_opportunity",		       $locale->text("CRM opportunity")],


  		




  
  642
  
    
    ["crm_knowhow",		       $locale->text("CRM know how")],


  		




  
  643
  
    
    ["crm_follow",		       $locale->text("CRM follow up")],


  		




  
  644
  
    
    ["crm_notices",		       $locale->text("CRM notices")],


  		




  
  645
  
    
    ["crm_other",		       $locale->text("CRM other")],


  		




  646
  646
  
    
    ["--master_data",                  $locale->text("Master Data")],


  		




  647
  647
  
    
    ["customer_vendor_edit",           $locale->text("Create and edit customers and vendors")],


  		




  648
  648
  
    
    ["part_service_assembly_edit",     $locale->text("Create and edit parts, services, assemblies")],


  		












  

    
      SL/Inifile.pm
    
  





  38
  38
  
    
use IO::File;


  		




  39
  39
  
    

  		




  40
  40
  
    
sub new {


  		




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


  		




  
  41
  
    
  $main::lxdebug->enter_sub(2);


  		




  42
  42
  
    

  		




  43
  43
  
    
  my ($type, $file, %options) = @_;


  		




  44
  44
  
    

  		




  ......




  88
  88
  
    
  }


  		




  89
  89
  
    
  close FH;


  		




  90
  90
  
    

  		




  91
  
  
    
  $main::lxdebug->leave_sub();


  		




  
  91
  
    
  $main::lxdebug->leave_sub(2);


  		




  92
  92
  
    

  		




  93
  93
  
    
  return bless $self, $type;


  		




  94
  94
  
    
}


  		












Auch abrufbar als:  Unified diff