richter 2004/02/07 05:41:23
Modified: . Changes.pod MANIFEST epcomp.c test.pl
test/html select.htm
Added: test/cmp select.htm
Log:
fix select without name dynamic loop
Revision Changes Path
1.226 +4 -2 embperl/Changes.pod
Index: Changes.pod
===================================================================
RCS file: /home/cvs/embperl/Changes.pod,v
retrieving revision 1.225
retrieving revision 1.226
diff -u -r1.225 -r1.226
--- Changes.pod 2 Feb 2004 19:29:57 -0000 1.225
+++ Changes.pod 7 Feb 2004 13:41:22 -0000 1.226
@@ -2,10 +2,12 @@
=head1 2.0b11
- - Fix problem with JavaScript code in Form::Validate, when fields names
+ - Fixed problem with JavaScript code in Form::Validate, when fields names
are non JavaScript Identifier.
- - Fix endless loop with call sub inside table under some circumstances,
+ - Fixed endless loop with call sub inside table under some circumstances,
reported by Neil Gunton.
+ - Fixed problem with select and dynamic options when no name attribute is
+ given in select tag. Reported by Michael Stepanov.
=head1 2.0b10 23. Jan 2004
1.89 +2 -0 embperl/MANIFEST
Index: MANIFEST
===================================================================
RCS file: /home/cvs/embperl/MANIFEST,v
retrieving revision 1.88
retrieving revision 1.89
diff -u -r1.88 -r1.89
--- MANIFEST 2 Feb 2004 19:29:57 -0000 1.88
+++ MANIFEST 7 Feb 2004 13:41:22 -0000 1.89
@@ -332,6 +332,7 @@
test/cmp/rtfloop.asc
test/cmp/rtfmeta.asc
test/cmp/safe.htm
+test/cmp/select.htm
test/cmp/setbadsess.htm
test/cmp/setsdaturlsess.htm
test/cmp/setsess.htm
@@ -519,6 +520,7 @@
test/html/rtf/rtfloop.asc
test/html/rtf/rtfmeta.asc
test/html/safe/safe.htm
+test/html/select.htm
test/html/setbadsess.htm
test/html/setsess.htm
test/html/setunknownsess.htm
1.13 +2 -2 embperl/epcomp.c
Index: epcomp.c
===================================================================
RCS file: /home/cvs/embperl/epcomp.c,v
retrieving revision 1.12
retrieving revision 1.13
diff -u -r1.12 -r1.13
--- epcomp.c 23 Jan 2004 06:50:54 -0000 1.12
+++ epcomp.c 7 Feb 2004 13:41:22 -0000 1.13
@@ -228,7 +228,7 @@
pCmd -> pNext = NULL ;
pInfo -> pEmbperlCmds[nNodeName].bRemoveNode |= pCmd -> bRemoveNode ;
- pInfo -> pEmbperlCmds[nNodeName].bPerlCodeRemove |= pCmd -> bPerlCodeRemove ;
+ /* pInfo -> pEmbperlCmds[nNodeName].bPerlCodeRemove |= pCmd -> bPerlCodeRemove
; */
if (pCmd -> nSwitchCodeType)
pInfo -> pEmbperlCmds[nNodeName].nSwitchCodeType = pCmd -> nSwitchCodeType ;
if (pCmd -> sMayJump && !pInfo -> pEmbperlCmds[nNodeName].sMayJump)
1.135 +2 -1 embperl/test.pl
Index: test.pl
===================================================================
RCS file: /home/cvs/embperl/test.pl,v
retrieving revision 1.134
retrieving revision 1.135
diff -u -r1.134 -r1.135
--- test.pl 2 Feb 2004 19:29:57 -0000 1.134
+++ test.pl 7 Feb 2004 13:41:23 -0000 1.135
@@ -211,6 +211,7 @@
'lists.htm' => {
'query_info' => 'sel=2&SEL1=B&SEL3=D&SEL4=cc',
},
+ 'select.htm' => {},
'mix.htm' => { },
'binary.htm' => {
'version' => 1, # needs print OUT
1.1 embperl/test/cmp/select.htm
Index: select.htm
===================================================================
<select id="udf_list" class="udf_list" onchange="SelectUDF()">
<option value="1"
label="a"
title="aa">2 </option>
<option value="3"
label="b"
title="bb">4 </option>
<option value="5"
label="c"
title="cc">6 </option>
</select>
<select id="udf_list" class="udf_list" onchange="SelectUDF()">
<option value="1"
label="a"
title="aa">2 </option>
<option value="3"
label="b"
title="bb">4 </option>
<option value="5"
label="c"
title="cc">6 </option>
</select>
1.2 +1 -1 embperl/test/html/select.htm
Index: select.htm
===================================================================
RCS file: /home/cvs/embperl/test/html/select.htm,v
retrieving revision 1.1
retrieving revision 1.2
diff -u -r1.1 -r1.2
--- select.htm 7 Feb 2004 13:07:00 -0000 1.1
+++ select.htm 7 Feb 2004 13:41:23 -0000 1.2
@@ -1,4 +1,4 @@
-[- $values = [ [1, 2], [3, 4], [5, 6] ]; -]
+[- $values = [ [1, 2, 'a', 'aa'], [3, 4, 'b', 'bb'], [5, 6, 'c', 'cc'] ]; -]
<select id="udf_list" class="udf_list" onchange="SelectUDF()">
[$ foreach my $item (@$values) $]
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
