Author: M0...@gm...
Date: Thu Jul 31 14:56:42 2008
New Revision: 95
Modified:
branches/iVL/MdlInstallCustom.module
Log:
Modified CONF install function to install CONF packages as bulks
Modified: branches/iVL/MdlInstallCustom.module
==============================================================================
--- branches/iVL/MdlInstallCustom.module (original)
+++ branches/iVL/MdlInstallCustom.module Thu Jul 31 14:56:42 2008
@@ -161,12 +161,13 @@
FOR i = 0 TO sList.Count - 1
sLine = sList[i]
sPkg = Right(sLine, Len(sLine) - InStr(sLine, "\'"))
- sPkg = Left(sPkg, Len(sPkg) - RInStr(sPkg, "\'"))
+ sPkg = Left(sPkg, RInStr(sPkg, "\'") - 1)
sLinearr = Split(sPkg, ":")
sPkgPath = ClsGlobal.sSourceMnt &/ "veclinux" &/ sLinearr[0]
' install it now
PRINT " + Install " & sPkgPath
- iret = ME.INSTALL_THIS_PACKAGE(sPkgPath)
+ 'iret = ME.INSTALL_THIS_PACKAGE(sPkgPath)
+ iret = ME.INSTALL_THIS_BULK(sPkgPath)
IF iret <> 0 THEN
RETURN iret
END IF
@@ -178,7 +179,8 @@
sPkg = Left(sPkg, RInStr(sPkg, "\'") - 1)
sLinearr = Split(sPkg, ":")
sPkgPath = ClsGlobal.sSourceMnt &/ "veclinux" &/ sLinearr[0]
- iret = ME.INSTALL_THIS_PACKAGE(sPkgPath)
+ 'iret = ME.INSTALL_THIS_PACKAGE(sPkgPath)
+ iret = ME.INSTALL_THIS_BULK(sPkgPath)
IF iret <> 0 THEN
RETURN iret
END IF
|
