From 20167f265c377ff6f4bcaead4ce91bde144ea95b Mon Sep 17 00:00:00 2001 From: Viktor Szakats Date: Fri, 19 Oct 2012 11:59:36 +0000 Subject: [PATCH] 2012-10-19 13:59 UTC+0200 Viktor Szakats (harbour syenar.net) * contrib/hbct/getsecrt.prg * SET() -> Set() --- harbour/ChangeLog | 4 ++++ harbour/contrib/hbct/getsecrt.prg | 4 ++-- 2 files changed, 6 insertions(+), 2 deletions(-) diff --git a/harbour/ChangeLog b/harbour/ChangeLog index 8890367809..025ee2ec66 100644 --- a/harbour/ChangeLog +++ b/harbour/ChangeLog @@ -16,6 +16,10 @@ The license applies to all entries newer than 2009-04-28. */ +2012-10-19 13:59 UTC+0200 Viktor Szakats (harbour syenar.net) + * contrib/hbct/getsecrt.prg + * SET() -> Set() + 2012-10-19 13:51 UTC+0200 Viktor Szakats (harbour syenar.net) * contrib/hbct/getsecrt.prg ! GETSECRET() fixed to not access protected TGETLIST diff --git a/harbour/contrib/hbct/getsecrt.prg b/harbour/contrib/hbct/getsecrt.prg index 9cdbf452b4..2a92ddadd1 100644 --- a/harbour/contrib/hbct/getsecrt.prg +++ b/harbour/contrib/hbct/getsecrt.prg @@ -142,7 +142,7 @@ STATIC PROCEDURE _SECRET( _cGetSecret, lHide, oGet, oGetList ) lHide := .T. LOOP ELSEIF ! ( cKey := hb_keyChar( nKey ) ) == "" - IF SET( _SET_INSERT ) + IF Set( _SET_INSERT ) _cGetSecret := Stuff( Left( _cGetSecret, nLen - 1 ), ; oGet:pos, 0, cKey ) ELSE @@ -153,7 +153,7 @@ STATIC PROCEDURE _SECRET( _cGetSecret, lHide, oGet, oGetList ) GetApplyKey( oGet, nKey ) ENDDO - IF !GetPostValidate( oGet ) + IF ! GetPostValidate( oGet ) oGet:exitState := GE_NOEXIT ENDIF ENDDO