richter 2004/11/03 22:19:14
Modified: . Changes.pod test.pl
Embperl/Syntax EmbperlHTML.pm
test/cmp input.htm
test/html input.htm
Log:
- Fix html input tag value set, when %fdat value is 0. Reported
by Torsten Luettgert.
- Adapt test for new output flush
Revision Changes Path
1.254 +3 -1 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.253
retrieving revision 1.254
diff -u -r1.253 -r1.254
--- Changes.pod 31 Oct 2004 14:17:25 -0000 1.253
+++ Changes.pod 4 Nov 2004 06:19:14 -0000 1.254
@@ -1,9 +1,11 @@
=pod
-=head1 2.0
+=head1 2.0rc2 04. November 2004
- Flush output to client and send final chuck, before cleanup runs.
- Fix compiler error when compiling with Perl 5.005.
+ - Fix html input tag value set, when %fdat value is 0. Reported
+ by Torsten Luettgert.
=head1 2.0rc1 24. August 2004
1.146 +10 -2 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.145
retrieving revision 1.146
diff -u -r1.145 -r1.146
--- test.pl 24 Aug 2004 05:08:49 -0000 1.145
+++ test.pl 4 Nov 2004 06:19:14 -0000 1.146
@@ -20,6 +20,7 @@
# version =>
# errors =>
+# sleep4err =>
# query_string =>
# repeat =>
# cmpext =>
@@ -266,34 +267,40 @@
'cgi' => 0,
'errors' => 1,
'condition' => '!$EPWIN32',
+ 'sleep4err' => 1,
},
'keepreq.htm' => {
'cgi' => 0,
'errors' => 1,
'cmpext' => '.2',
'condition' => '!$EPWIN32',
+ 'sleep4err' => 1,
},
'keepreq.htm' => {
'modperl' => 0,
'errors' => 1,
'condition' => '$EPWIN32',
+ 'sleep4err' => 1,
},
'keepreq.htm' => {
'modperl' => 0,
'errors' => 1,
'cmpext' => '.2',
'condition' => '$EPWIN32',
+ 'sleep4err' => 1,
},
'keepreq.htm' => {
'modperl' => 1,
'errors' => 0,
'condition' => '$EPWIN32',
+ 'sleep4err' => 1,
},
'keepreq.htm' => {
'modperl' => 1,
'errors' => 0,
'cmpext' => '.2',
'condition' => '$EPWIN32',
+ 'sleep4err' => 1,
},
'hostconfig.htm' => {
'modperl' => 1,
@@ -2798,7 +2805,8 @@
}
#$errcnt++ if ($loc eq $cgiloc && $file eq 'notallow.xhtm') ;
- $err = CheckError ($errcnt) if (($err == 0 || $file eq 'notfound.htm' ||
$file eq 'notallow.xhtm')) ;
+ sleep ($test->{sleep4err}) if ($test->{sleep4err}) ;
+ $err = CheckError ($errcnt) if (($err == 0 || $file eq 'notfound.htm'
|| $file eq 'notallow.xhtm')) ;
if ($err == 0 && $file ne 'notfound.htm' && $file ne 'notallow.xhtm' &&
!defined ($opt_ab))
{
$page =~ /.*\/(.*)$/ ;
1.9 +2 -2 embperl/Embperl/Syntax/EmbperlHTML.pm
Index: EmbperlHTML.pm
===================================================================
RCS file: /home/cvs/embperl/Embperl/Syntax/EmbperlHTML.pm,v
retrieving revision 1.8
retrieving revision 1.9
diff -u -r1.8 -r1.9
--- EmbperlHTML.pm 20 Jul 2004 04:59:11 -0000 1.8
+++ EmbperlHTML.pm 4 Nov 2004 06:19:14 -0000 1.9
@@ -71,7 +71,7 @@
perlcode =>
[
'Embperl::Cmd::InputCheck (%$n%, %&*\'name%, %&*\'value%,
%&\'checked%) ; %&=-type:radio|checkbox% ',
- '$idat{%&*\'name%}=$fdat{%&*\'name%} ; _ep_sa(%$n%, \'value\',
$fdat{%&*\'name%} || \'\') ; %&!-value%',
+ '$idat{%&*\'name%}=$fdat{%&*\'name%} ; _ep_sa(%$n%, \'value\',
exists ($fdat{%&*\'name%})?$fdat{%&*\'name%}:\'\') ; %&!-value%',
'$idat{%&*\'name%}=%&*\'value% ; ',
]
}) ;
1.21 +20 -3 embperl/test/cmp/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/cmp/input.htm,v
retrieving revision 1.20
retrieving revision 1.21
diff -u -r1.20 -r1.21
--- input.htm 31 Oct 2004 14:17:27 -0000 1.20
+++ input.htm 4 Nov 2004 06:19:14 -0000 1.21
@@ -60,7 +60,8 @@
<input type="checkbox" name="dec" checked value="a & b">
<input type="checkbox" name="dec" checked value="a & b">
-
+ <input name="null1" value="0">
+ <input name="null2" value="0">
<textarea name="feld1"></textarea>
<textarea name="feld5">Wert5</textarea>
@@ -224,7 +225,7 @@
- ks = Kategorie Region cb1 cb10 cb11 cb2 cb3 cb4 cb5 cb6 cb7 cb8 cb9 dec
escmult feld1 feld2 feld3 feld4 feld5 feld5a feld5b feld6 feld7 feld8 foo mult neu1
neu2 neu3 undef<p>
+ ks = Kategorie Region cb1 cb10 cb11 cb2 cb3 cb4 cb5 cb6 cb7 cb8 cb9 dec
escmult feld1 feld2 feld3 feld4 feld5 feld5a feld5b feld6 feld7 feld8 foo mult neu1
neu2 neu3 null1 null2 undef<p>
<table border=9>
<tr>
@@ -348,6 +349,14 @@
</tr>
<tr>
+ <td>null1</td><td>0</td>
+ </tr>
+
+ <tr>
+ <td>null2</td><td>0</td>
+ </tr>
+
+ <tr>
<td>undef</td><td>no</td>
</tr>
</table>
@@ -567,7 +576,7 @@
<input type="text" name="feld1" value="">
<input type="text" name="feld1" value="">
</p>
- ks = Kategorie Region cb1 cb10 cb11 cb2 cb3 cb4 cb5 cb6 cb7 cb8 cb9 dec
escmult feld1 feld2 feld3 feld4 feld5 feld5a feld5b feld6 feld7 feld8 foo mult neu1
neu2 neu3 ta undef<p>
+ ks = Kategorie Region cb1 cb10 cb11 cb2 cb3 cb4 cb5 cb6 cb7 cb8 cb9 dec
escmult feld1 feld2 feld3 feld4 feld5 feld5a feld5b feld6 feld7 feld8 foo mult neu1
neu2 neu3 null1 null2 ta undef<p>
<table border=10>
<tr>
@@ -688,6 +697,14 @@
<tr>
<td>neu3</td><td>>></td>
+ </tr>
+
+ <tr>
+ <td>null1</td><td>0</td>
+ </tr>
+
+ <tr>
+ <td>null2</td><td>0</td>
</tr>
<tr>
1.18 +5 -0 embperl/test/html/input.htm
Index: input.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/input.htm,v
retrieving revision 1.17
retrieving revision 1.18
diff -u -r1.17 -r1.18
--- input.htm 31 Oct 2004 14:17:27 -0000 1.17
+++ input.htm 4 Nov 2004 06:19:14 -0000 1.18
@@ -73,6 +73,11 @@
<input type="checkbox" name="dec" checked value="a & b">
<input type="checkbox" name="dec" checked value="a & b">
+ [- $fdat{null1} = 0 -]
+ <input name="null1">
+ [- $fdat{null2} = '0' -]
+ <input name="null2">
+ [- delete $fdat{null1} ; delete $fdat{null2} -]
<textarea Name=feld1></textarea>
<textarea Name=feld5></textarea>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
