dani
/
lemonldap-ng
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Good length for utf8 characters (may close #733)

This commit is contained in:
Xavier Guimard 2016-02-19 09:41:12 +00:00
parent 122dfad051
commit dfce1419ad
3 changed files with 7 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
_example/test/index.pl
View File

@ -42,9 +42,9 @@ foreach ( sort keys %ENV ) {
print $cgi->header( -charset => 'utf-8' );
print "<!DOCTYPE html>\n";
print
"<html xmlns=\"http://www.w3.org/1999/xhtml\" xml:lang=\"en\" lang=\"en\">\n";
print qq{<html xmlns="http://www.w3.org/1999/xhtml" xml:lang="en" lang="en">\n};
print "<head>\n";
print qq{<meta charset="utf-8">\n};
print "<title>$name</title>\n";
print
"<meta http-equiv=\"Content-Type\" content=\"text/html; charset=utf-8\" />\n";
@ -153,7 +153,8 @@ print "<thead><tr><th>Parameter</th><th>Value</th></tr></thead><tbody>\n";
foreach ( sort $cgi->param() ) {
my $tmp = $cgi->param($_);
print qq{<tr><td>$_</td><td><big>☞</big> <span id="field_$_">$tmp</span></td></tr>\n};
print
qq{<tr><td>$_</td><td><big>☞</big> <span id="field_$_">$tmp</span></td></tr>\n};
}
print "</tbody></table>\n";
print "</div>\n";

1
e2e-tests/form.html
View File

@ -1,5 +1,6 @@
<html>
<head>
<meta charset="utf-8">
<title></title>
</head>
<body>

3
lemonldap-ng-handler/lib/Lemonldap/NG/Handler/Main.pm
View File

@ -663,7 +663,8 @@ sub postJavascript {
my $filler;
foreach my $name ( keys %$data ) {
my $value = "x" x length( $data->{$name} );
use bytes;
my $value = "x" x bytes::length( $data->{$name} );
$filler .=
"form.find('input[name=$name], select[name=$name], textarea[name=$name]').val('$value')\n";
}