richter 2004/02/07 05:07:00
Modified: . Old.xs TODO
Added: test/html select.htm
Log:
Test for select auto loop
Revision Changes Path
1.6 +4 -2 embperl/Old.xs
Index: Old.xs
===================================================================
RCS file: /home/cvs/embperl/Old.xs,v
retrieving revision 1.5
retrieving revision 1.6
diff -u -r1.5 -r1.6
--- Old.xs 22 Jan 2004 05:59:11 -0000 1.5
+++ Old.xs 7 Feb 2004 13:07:00 -0000 1.6
@@ -93,10 +93,12 @@
CODE:
{
char * p = SvPV (sText, l) ;
- if (0) //Node_self(DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode) -> nType == ntypDocumentFraq)
+ /*
+ if (0) //Node_self(DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode) -> nType == ntypDocumentFraq)
Node_appendChild (r->pApp, DomTree_self (r -> Component.xCurrDomTree),
r -> Component.xCurrNode, r -> Component.nCurrRepeatLevel, ntypCDATA, 0, p, l, 0, 0,
NULL) ;
else
- r -> Component.xCurrNode = Node_insertAfter_CDATA (r->pApp, p, l, (r ->
Component.nCurrEscMode & 3)== 3?1 + (r -> Component.nCurrEscMode & 4):r ->
Component.nCurrEscMode, DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode, r -> Component.nCurrRepeatLevel) ;
+ */
+ r -> Component.xCurrNode = Node_insertAfter_CDATA (r->pApp, p, l, (r ->
Component.nCurrEscMode & 3)== 3?1 + (r -> Component.nCurrEscMode & 4):r ->
Component.nCurrEscMode, DomTree_self (r -> Component.xCurrDomTree), r ->
Component.xCurrNode, r -> Component.nCurrRepeatLevel) ;
r -> Component.bEscModeSet = 0 ;
}
1.117 +1 -0 embperl/TODO
Index: TODO
===================================================================
RCS file: /home/cvs/embperl/TODO,v
retrieving revision 1.116
retrieving revision 1.117
diff -u -r1.116 -r1.117
--- TODO 22 Jan 2004 22:08:16 -0000 1.116
+++ TODO 7 Feb 2004 13:07:00 -0000 1.117
@@ -5,6 +5,7 @@
- include at top of every file [Kee Hinckley 3.8.2003]
+- select loop bug [Michael Stepanov 3.4.04]
TODO for Embperl 2.1 and later
1.1 embperl/test/html/select.htm
Index: select.htm
===================================================================
[- $values = [ [1, 2], [3, 4], [5, 6] ]; -]
<select id="udf_list" class="udf_list" onchange="SelectUDF()">
[$ foreach my $item (@$values) $]
<option value="[+ $item->[0] +]"
label="[+ $item->[2] +]"
title="[+ $item->[3] +]">[+ $item->[1] +]
</option>
[$ endforeach $]
</select>
<select id="udf_list" class="udf_list" onchange="SelectUDF()">
<option value="[+ $values->[$row][0] +]"
label="[+ $values->[$row][2] +]"
title="[+ $values->[$row][3] +]">[+ $values->[$row][1] +]
</option>
</select>
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
