Update of /cvsroot/codebook/codebook/Common/PROGS
In directory ddv4jf1.ch3.sourceforge.com:/tmp/cvs-serv31240
Modified Files:
setup.prg
Log Message:
Bugfixed the lcProcs and lcClassLibs value creation by ignoring DELETE()ed records in the project
Index: setup.prg
===================================================================
RCS file: /cvsroot/codebook/codebook/Common/PROGS/setup.prg,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** setup.prg 20 Sep 2008 06:47:18 -0000 1.2
--- setup.prg 28 Feb 2009 12:29:05 -0000 1.3
***************
*** 204,208 ****
lcDirectory = ""
! IF GetDirectory (tcDirectoryDescription, tcLocalRemote, @lcDirectory)
RETURN ""
ELSE
--- 204,210 ----
lcDirectory = ""
! *** BYN: as suggested by Arnel
! *IF GetDirectory (tcDirectoryDescription, tcLocalRemote, @lcDirectory)
! IF NOT GetDirectory (tcDirectoryDescription, tcLocalRemote, @lcDirectory)
RETURN ""
ELSE
***************
*** 571,575 ****
*-- Build the string that identifies the list of
*-- visual class libraries ("V") and procedure files ("P")
! SCAN
lcName = LEFT(name, LEN(name) - 1)
DO CASE
--- 573,578 ----
*-- Build the string that identifies the list of
*-- visual class libraries ("V") and procedure files ("P")
! *** BYN: 28/02/2009 the deleted record are not to be considered
! SCAN FOR (NOT DELETED())
lcName = LEFT(name, LEN(name) - 1)
DO CASE
***************
*** 654,658 ****
*-- Set the path accordingly
! *** 20/09/2008 BYN quotes problem as highlighted by Jacek Kalucki on CB Forum
*** http://leafe.com/forum/viewtopic.php?sid=c1cdd32248da8d415149652c574f7074&p=7096#7096
*!* lcOldPath = SET("PATH")
--- 657,661 ----
*-- Set the path accordingly
! *** BYN: 20/09/2008 quotes problem as highlighted by Jacek Kalucki on CB Forum
*** http://leafe.com/forum/viewtopic.php?sid=c1cdd32248da8d415149652c574f7074&p=7096#7096
*!* lcOldPath = SET("PATH")
|
