Revision 94beb18a
Von Moritz Bunkus vor mehr als 15 Jahren hinzugefügt
| SL/Auth.pm | ||
|---|---|---|
| 358 | 358 |
my $login = shift; |
| 359 | 359 |
|
| 360 | 360 |
my $dbh = $self->dbconnect(); |
| 361 |
my $query = qq|SELECT cfg.cfg_key, cfg.cfg_value |
|
| 361 |
my $query = qq|SELECT u.id, cfg.cfg_key, cfg.cfg_value
|
|
| 362 | 362 |
FROM auth.user_config cfg |
| 363 | 363 |
LEFT JOIN auth."user" u ON (cfg.user_id = u.id) |
| 364 | 364 |
WHERE (u.login = ?)|; |
| ... | ... | |
| 368 | 368 |
|
| 369 | 369 |
while (my $ref = $sth->fetchrow_hashref()) {
|
| 370 | 370 |
$user_data{$ref->{cfg_key}} = $ref->{cfg_value};
|
| 371 |
$user_data{login} = $login;
|
|
| 371 |
@user_data{qw(id login)} = @{$ref}{qw(id login)};
|
|
| 372 | 372 |
} |
| 373 | 373 |
|
| 374 | 374 |
$sth->finish(); |
Auch abrufbar als: Unified diff
In der Funktion Auth::read_user() auch die User-ID zurückgeben.