Revision b513b1ef
Von Moritz Bunkus vor mehr als 14 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
|
$sth = prepare_execute_query($form, $dbh, $query, $session_id);
|
||
|
|
||
|
while (my $ref = $sth->fetchrow_hashref()) {
|
||
|
my $value = $self->_load_value($ref->{sess_value});
|
||
|
$self->{SESSION}->{$ref->{sess_key}} = $value;
|
||
|
$form->{$ref->{sess_key}} = $value if (!defined $form->{$ref->{sess_key}});
|
||
|
$self->{SESSION}->{$ref->{sess_key}} = $ref->{sess_value};
|
||
|
$form->{$ref->{sess_key}} = $self->_load_value($ref->{sess_value}) if (!defined $form->{$ref->{sess_key}});
|
||
|
}
|
||
|
|
||
|
$sth->finish();
|
||
Auch abrufbar als: Unified diff
Laden von ge-YAML-dumpten Session-Inhalten gefixt