Revision f8727c54
Von Moritz Bunkus vor mehr als 13 Jahren hinzugefügt
| bin/mozilla/admin.pl | ||
|---|---|---|
| 34 | 34 |
|
| 35 | 35 |
use DBI; |
| 36 | 36 |
use CGI; |
| 37 |
use Encode; |
|
| 37 | 38 |
use English qw(-no_match_vars); |
| 38 | 39 |
use Fcntl; |
| 39 | 40 |
use File::Copy; |
| ... | ... | |
| 342 | 343 |
|
| 343 | 344 |
delete $members{"root login"};
|
| 344 | 345 |
|
| 345 |
map { $_->{templates} =~ s|.*/||; } values %members;
|
|
| 346 |
for (values %members) {
|
|
| 347 |
$_->{templates} =~ s|.*/||;
|
|
| 348 |
$_->{login_url} = $::locale->is_utf8 ? Encode::encode('utf-8-strict', $_->{login}) : $_->{login_url};
|
|
| 349 |
} |
|
| 346 | 350 |
|
| 347 | 351 |
$form->{title} = "Lx-Office ERP " . $locale->text('Administration');
|
| 348 | 352 |
$form->{LOCKED} = -e _nologin_file_name();
|
| templates/webpages/admin/list_users.html | ||
|---|---|---|
| 21 | 21 |
|
| 22 | 22 |
[% FOREACH row = MEMBERS %] |
| 23 | 23 |
<tr class="listrow[% loop.count % 2 %]"> |
| 24 |
<td> <a href="admin.pl?action=edit&login=[% HTML.url(row.login) %]">[% HTML.escape(row.login) %]</a></td> |
|
| 24 |
<td> <a href="admin.pl?action=edit&login=[% HTML.url(row.login_url) %]">[% HTML.escape(row.login) %]</a></td>
|
|
| 25 | 25 |
<td> [% HTML.escape(row.name) %]</td> |
| 26 | 26 |
<td> [% HTML.escape(row.company) %]</td> |
| 27 | 27 |
<td> [% HTML.escape(row.templates) %]</td> |
Auch abrufbar als: Unified diff
Bearbeiten von Nutzern mit Umlauten im Namen gefixt
HTML.url() nimmt Perls interne Stringrepräsentation und ersetzt darin
die Umlaute. In UTF-8-Installationen muss das Ersetzen aber auf einer
UTF-8-Repräsentation erfolgen (so wie es Form::escape() auch macht).
Zweiter Teil des Fixes für Bug 1606.