[Ngetsuite-cvs] ngetsuite/ngetsuite core.rb,1.38,1.39

[Johnjohn <jj...@us...>]

Update of /cvsroot/ngetsuite/ngetsuite/ngetsuite
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv434

Modified Files:
	core.rb 
Log Message:
fix creation of new group directory if the path is relative (make it relative to basedir)


Index: core.rb
===================================================================
RCS file: /cvsroot/ngetsuite/ngetsuite/ngetsuite/core.rb,v
retrieving revision 1.38
retrieving revision 1.39
diff -C2 -d -r1.38 -r1.39
*** core.rb	17 Mar 2004 10:14:19 -0000	1.38
--- core.rb	21 May 2004 08:49:56 -0000	1.39
***************
*** 74,78 ****
  		g = Group.new(nil, false, groupname, shortname, dir, true, desc)
  		g.insert_to_db
! 		Dir.mkdir(g._directory) unless FileTest.exists? g._directory
  	end
  
--- 74,80 ----
  		g = Group.new(nil, false, groupname, shortname, dir, true, desc)
  		g.insert_to_db
! 		dir = g._directory
! 		dir = $config['basedir'] + File::Separator + dir if (dir[0].chr != File::Separator)
! 		Dir.mkdir(dir) unless FileTest.exists? dir
  	end