From: <cod...@go...> - 2008-08-12 15:44:05
|
Author: M0...@gm... Date: Tue Aug 12 08:43:02 2008 New Revision: 115 Modified: branches/iVL/MdlConfLilo.module branches/iVL/MdlLiloOsList.module Log: - LILO config now creates a text boot option for the recently installed vector entry. Modified: branches/iVL/MdlConfLilo.module ============================================================================== --- branches/iVL/MdlConfLilo.module (original) +++ branches/iVL/MdlConfLilo.module Tue Aug 12 08:43:02 2008 @@ -95,26 +95,27 @@ "read-only" 'Message(sSection) - - FOR EACH cb IN MdlLiloOsList.bVlCliOption - IF cb.Tag = sMatchTag THEN - IF cb.Value = TRUE THEN - sCliSection = Replace(sSection, "append = \"" & sEntryApnd & "\"", "append = \"2 splash=silent\"") - sCliSection = Replace(sCliSection, "label = " & sEntryLbl, label = sEntryLbl & "-tui") + + IF sMatchTag = ClsPartSel.sRoot THEN + IF MdlLiloOsList.bVlCliOption = TRUE THEN + sCliSection = Replace(sSection, "append = \"" & sEntryApnd & "\"", "append = \"2 splash=silent\"") + sCliSection = Replace(sCliSection, "label = " & sEntryLbl, "label = " & sEntryLbl & "-tui") + END IF + ELSE + sCliSection = "" END IF - END IF - NEXT - -sFile = sFile & gb.NewLine & sSection & gb.NewLine - + END IF + sFile = sFile & gb.NewLine & sSection & gb.NewLine & gb.NewLine & sCliSection & gb.NewLine END IF - + NEXT 'Message(FrmLilo.TabStrip1.text) END WITH + NEXT -Message.Delete(sFile) +'sFile = sFile & gb.NewLine & sSection & gb.NewLine & gb.NewLine & sCliSection & gb.NewLine +Message(sfile) Modified: branches/iVL/MdlLiloOsList.module ============================================================================== --- branches/iVL/MdlLiloOsList.module (original) +++ branches/iVL/MdlLiloOsList.module Tue Aug 12 08:43:02 2008 @@ -239,7 +239,7 @@ ' Add an option to boot the recently installed OS to CLI mode - ClsPartSel.sRoot = "/dev/hda1" + ClsPartSel.sRoot = "/dev/hda1" ' for testing only IF sLiloDesc LIKE "Vector" THEN IF arrLinux[i] = ClsPartSel.sRoot THEN cbInclude = NEW CheckBox(FrmLilo.TabStrip1) AS "VlCliOption" |