Revision 705b8473
Von Sven Schöling vor mehr als 15 Jahren hinzugefügt
| 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")],
|
Auch abrufbar als: Unified diff
Whitespace Purge + 2 Funktionen auf Debuglevel 2 gesetzt.