my $dbh = $provided_dbh || $self->dbconnect(1);
- $::lxdebug->leave_sub && return unless $dbh;
+ $::lxdebug->leave_sub && return unless $dbh && $session_id;
$dbh->begin_work unless $provided_dbh;
$::lxdebug->enter_sub(2);
my ($self, $right, $dont_abort) = @_;
- if ($self->check_right($::form->{login}, $right)) {
+ if ($self->check_right($::myconfig{login}, $right)) {
$::lxdebug->leave_sub(2);
return 1;
}
my $dbh = $self->dbconnect;
my ($query, $sth, $row, $rights);
- $rights = { map { $rights->{$_} = 0 } all_rights() };
+ $rights = { map { $_ => 0 } all_rights() };
$query =
qq|SELECT gr."right", gr.granted