richter 01/03/27 04:43:14
Modified: . Tag: Embperl2c epdom.c
Log:
Embperl 2 - fix problem with DocFraq
Revision Changes Path
No revision
No revision
1.4.2.25 +6 -0 embperl/Attic/epdom.c
Index: epdom.c
===================================================================
RCS file: /home/cvs/embperl/Attic/epdom.c,v
retrieving revision 1.4.2.24
retrieving revision 1.4.2.25
diff -u -r1.4.2.24 -r1.4.2.25
--- epdom.c 2001/03/23 09:28:11 1.4.2.24
+++ epdom.c 2001/03/27 12:43:14 1.4.2.25
@@ -1686,6 +1686,9 @@
}
}
+ if (pOldChild -> nType == ntypDocument)
+ pOldChild -> nType = ntypDocumentFraq ;
+
if (pOldChild -> nType == ntypDocumentFraq)
{
tAttrData * pAttr = Element_selfSetAttribut (pOldChildDomTree, pOldChild,
NULL, xDomTreeAttr, NULL, pDomTree -> xNdx, 0) ;
@@ -1758,6 +1761,9 @@
xOrgNode = pNxtNode -> xNdx ;
DomTree_selfCheckpoint (pRefNodeDomTree, xOrgNode, pNewNode -> xNdx) ;
+
+ if (pNewNode -> nType == ntypDocument)
+ pNewNode -> nType = ntypDocumentFraq ;
if (pNewNode -> nType == ntypDocumentFraq)
{
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
