From: <cod...@go...> - 2008-07-31 21:59:09
|
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 |