Revision 9b327aff
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
SL/Auth.pm | ||
---|---|---|
567 | 567 |
|
568 | 568 |
my $self = shift; |
569 | 569 |
|
570 |
$main::lxdebug->leave_sub and return if !$self->session_tables_present; |
|
571 |
|
|
570 | 572 |
my $dbh = $self->dbconnect(); |
571 | 573 |
|
572 | 574 |
$dbh->begin_work; |
... | ... | |
779 | 781 |
$main::lxdebug->enter_sub(); |
780 | 782 |
|
781 | 783 |
my $self = shift; |
784 |
|
|
785 |
# Only re-check for the presence of auth tables if either the check |
|
786 |
# hasn't been done before of if they weren't present. |
|
787 |
if ($self->{session_tables_present}) { |
|
788 |
$main::lxdebug->leave_sub(); |
|
789 |
return $self->{session_tables_present}; |
|
790 |
} |
|
791 |
|
|
782 | 792 |
my $dbh = $self->dbconnect(1); |
783 | 793 |
|
784 | 794 |
if (!$dbh) { |
... | ... | |
794 | 804 |
|
795 | 805 |
my ($count) = selectrow_query($main::form, $dbh, $query); |
796 | 806 |
|
807 |
$self->{session_tables_present} = 2 == $count; |
|
808 |
|
|
797 | 809 |
$main::lxdebug->leave_sub(); |
798 | 810 |
|
799 |
return 2 == $count;
|
|
811 |
return $self->{session_tables_present};
|
|
800 | 812 |
} |
801 | 813 |
|
802 | 814 |
# -------------------------------------- |
Auch abrufbar als: Unified diff
Nur Session speichern, wenn Auth-Tabellen vorhanden sind