Update of /cvsroot/eas-dev/eas/clip-ui
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv8115
Modified Files:
form.prg
Log Message:
Fix <FORM> tag missing
Index: form.prg
===================================================================
RCS file: /cvsroot/eas-dev/eas/clip-ui/form.prg,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -u -d -r1.1.1.1 -r1.2
--- form.prg 2 Mar 2004 13:14:26 -0000 1.1.1.1
+++ form.prg 3 Mar 2004 15:36:05 -0000 1.2
@@ -3,7 +3,7 @@
/* */
/* Copyright (C) 2003 by E/AS Software Foundation */
/* Author: Andrey Cherepanov <sib...@ma...> */
-/* Last change: 23 Feb 2004 */
+/* Last change: 03 Mar 2004 */
/* */
/* This program is free software; you can redistribute it and/or modify */
/* it under the terms of the GNU General Public License as */
@@ -121,7 +121,11 @@
aadd(ct:attrNames, attrName)
ct:attr[attrName] := attrData
next
- aadd(pt:childs, ct)
+ if valtype(pt) == "O" .and. "CHILDS" $ pt
+ aadd(pt:childs, ct)
+ else
+ ?? "ERROR parse XML: parent object is empty. Possible tag <FORM> doesn't found or it isn't root element.&\n"
+ endif
aadd(self:tags, ct)
if .not. oTag:closed
|
