Author: M0...@gm...
Date: Wed Dec 3 16:20:59 2008
New Revision: 356
Modified:
branches/iVL/.project
branches/iVL/FrmImportAccts.class
branches/iVL/FrmUserAdd.class
Log:
Fixed problem that surfaced when writing user import module
Modified: branches/iVL/.project
==============================================================================
--- branches/iVL/.project (original)
+++ branches/iVL/.project Wed Dec 3 16:20:59 2008
@@ -12,6 +12,7 @@
Library=gb.gtk.ext
Description=GUI installer for Vector linux
Authors=M0E-lnx\nuelsk8s
+Arguments="-C"
TabSize=2
Translate=1
Language=en_US
Modified: branches/iVL/FrmImportAccts.class
==============================================================================
--- branches/iVL/FrmImportAccts.class (original)
+++ branches/iVL/FrmImportAccts.class Wed Dec 3 16:20:59 2008
@@ -56,9 +56,20 @@
PUBLIC SUB btcancel_Click()
- FrmUserAdd.Reparent(FMain.pnlwinhost)
- FrmUserAdd.Show()
- ME.Hide()
+ SELECT CASE Message.Question(("Would you like to continue adding new
user accounts now?"), ("Yes"), ("No"))
+ CASE 1
+ FrmUserAdd.Reparent(FMain.pnlwinhost)
+ MdlUsrAdd.LIST_NEW_USER_ACCOUNT()
+ FrmUserAdd.Show()
+ ME.Close()
+ CASE ELSE
+ FMain.frmNext = FrmNetConf
+ FrmNetConf.Reparent(FMain.pnlwinhost)
+ FrmNetConf.Show()
+ 'ME.Hide()
+ ME.Close()
+ END SELECT
+
'ME.Close()
END
@@ -93,6 +104,7 @@
MdlUsrAdd.LIST_NEW_USER_ACCOUNT()
Message.Info(("User account for") & Space(1) &
Trim(ME.cbAccntList.Text) & Space(1) & ("successfully imported"))
ME.cbAccntList.Remove(ME.cbAccntList.Find(Trim(ME.cbAccntList.Text)))
+ INC MdlUsrAdd.iUsrAccts
END IF
'ME.Close
Modified: branches/iVL/FrmUserAdd.class
==============================================================================
--- branches/iVL/FrmUserAdd.class (original)
+++ branches/iVL/FrmUserAdd.class Wed Dec 3 16:20:59 2008
@@ -375,7 +375,7 @@
FOR EACH cb IN MdlUsrAdd.objGrps
cb.Delete
NEXT
- MdlUsrAdd.DISPLAY_USER_GROUP_OPTIONS
+ MdlUsrAdd.DISPLAY_USER_GROUP_OPTIONS(ME.fGroupSel)
END
|
