[Codebook-checkins] CVS: codebook/Common/PROGS setup.prg,1.2,1.3

[Bhavbhuti N. <ven...@us...>]

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")