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