2010-04-29 09:37 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)

* contrib/xhb/tests/xml1.prg
    ! Formatting.
    % Replaced HHasKey() with '$' operator.

harbour/ChangeLog

@@ -17,6 +17,11 @@
    past entries belonging to author(s): Viktor Szakats.
 */
 
+2010-04-29 09:37 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
+  * contrib/xhb/tests/xml1.prg
+    ! Formatting.
+    % Replaced HHasKey() with '$' operator.
+
 2010-04-29 09:18 UTC+0200 Viktor Szakats (harbour.01 syenar.hu)
   * src/common/hbver.c
     + Now able to distinguish between XP x64 and Server 2003.

harbour/contrib/xhb/tests/xml1.prg

@@ -19,7 +19,7 @@ PROCEDURE Main()
 
    oDoc := TXmlDocument():New( cString, HBXML_STYLE_NOESCAPE )
    IF oDoc:nError != HBXML_ERROR_NONE
-      WAIT "xml file parsing error " + str(oDoc:nError)
+      WAIT "xml file parsing error " + Str( oDoc:nError )
       RETURN
    ENDIF
 
@@ -31,21 +31,21 @@ PROCEDURE Main()
 
    DO WHILE .T.
 
-      IF HHasKey( oBook:aAttributes, "id" )
+      IF "id" $ oBook:aAttributes
          ? "book ID : " + oBook:aAttributes[ "id" ]
       ELSE
          ? "no attribute book ID"
       ENDIF
 
-      cNote:=""
-      cDiscount:=""
-      oIterator:=TXmlIterator():New( oBook )
+      cNote := ""
+      cDiscount := ""
+      oIterator := TXmlIterator():New( oBook )
 
       DO WHILE .T.
          oCurrent := oIterator:Next()
          IF oCurrent == NIL
             ? "end branch"
-            WAIT "values : "+cNote+" "+cDiscount
+            WAIT "values : " + cNote + " " + cDiscount
             EXIT
          ELSE
             ? "current tag : " + oCurrent:cName