From 888e666f9c586261e44b447cd1f923ad61bdfa03 Mon Sep 17 00:00:00 2001
From: Viktor Szakats <harbour@syenar.net>
Date: Thu, 27 Jan 2011 09:22:02 +0000
Subject: [PATCH] 2011-01-27 10:21 UTC+0100 Viktor Szakats (harbour.01
 syenar.hu)   * src/rtl/tget.prg     * Formatting.

  * contrib/hbnetio/utils/netiosrv/netiocui.prg
    + Added some SETs.
---
 harbour/ChangeLog                                   | 7 +++++++
 harbour/contrib/hbnetio/utils/netiosrv/netiocui.prg | 2 ++
 harbour/src/rtl/tget.prg                            | 8 ++++----
 3 files changed, 13 insertions(+), 4 deletions(-)

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 465936c985..cdbc1f7115 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -16,6 +16,13 @@
    The license applies to all entries newer than 2009-04-28.
 */
 
+2011-01-27 10:21 UTC+0100 Viktor Szakats (harbour.01 syenar.hu)
+  * src/rtl/tget.prg
+    * Formatting.
+
+  * contrib/hbnetio/utils/netiosrv/netiocui.prg
+    + Added some SETs.
+
 2011-01-27 07:29 UTC+0100 Przemyslaw Czerpak (druzus/at/priv.onet.pl)
   * harbour/src/rdd/wacore.c
     % minor optimization
diff --git a/harbour/contrib/hbnetio/utils/netiosrv/netiocui.prg b/harbour/contrib/hbnetio/utils/netiosrv/netiocui.prg
index 502842a75f..7da90f9d5c 100644
--- a/harbour/contrib/hbnetio/utils/netiosrv/netiocui.prg
+++ b/harbour/contrib/hbnetio/utils/netiosrv/netiocui.prg
@@ -32,6 +32,8 @@ PROCEDURE Main( ... )
 
    SET DATE ANSI
    SET CENTURY ON
+   SET CONFIRM ON
+   SET SCOREBOARD OFF
 
    HB_Logo()
 
diff --git a/harbour/src/rtl/tget.prg b/harbour/src/rtl/tget.prg
index 56df3e8ff6..5913af38f2 100644
--- a/harbour/src/rtl/tget.prg
+++ b/harbour/src/rtl/tget.prg
@@ -1063,14 +1063,14 @@ METHOD picture( cPicture ) CLASS GET
 
                   ::cPicMask := Set( _SET_DATEFORMAT )
                   FOR EACH cChar IN "yYmMdD"
-                     ::cPicMask := StrTran( ::cPicmask, cChar, "9" )
+                     ::cPicMask := StrTran( ::cPicMask, cChar, "9" )
                   NEXT
 
                ELSEIF "T" $ ::cPicFunc
 
                   ::cPicMask := Set( _SET_TIMEFORMAT )
                   FOR EACH cChar IN "yYmMdDhHsSfF"
-                     ::cPicMask := StrTran( ::cPicmask, cChar, "9" )
+                     ::cPicMask := StrTran( ::cPicMask, cChar, "9" )
                   NEXT
 
                ENDIF
@@ -1118,7 +1118,7 @@ METHOD picture( cPicture ) CLASS GET
 
             ::cPicMask := Set( _SET_DATEFORMAT )
             FOR EACH cChar IN "yYmMdD"
-               ::cPicMask := StrTran( ::cPicmask, cChar, "9" )
+               ::cPicMask := StrTran( ::cPicMask, cChar, "9" )
             NEXT
             EXIT
 
@@ -1126,7 +1126,7 @@ METHOD picture( cPicture ) CLASS GET
 
             ::cPicMask := Set( _SET_TIMEFORMAT )
             FOR EACH cChar IN "yYmMdDhHsSfF"
-               ::cPicMask := StrTran( ::cPicmask, cChar, "9" )
+               ::cPicMask := StrTran( ::cPicMask, cChar, "9" )
             NEXT
             EXIT