From fca0779eb92825dde8ae10b6d150e1da74d2bbd9 Mon Sep 17 00:00:00 2001 From: Anand Date: Mon, 19 Jan 2015 13:15:38 -0800 Subject: [PATCH] Changed web installer and updateToolbox to remove old toolbox version --- Toolbox/Util.m | 4 +++- WebInstall.m | 3 ++- 2 files changed, 5 insertions(+), 2 deletions(-) diff --git a/Toolbox/Util.m b/Toolbox/Util.m index 3e0f711..4318c89 100644 --- a/Toolbox/Util.m +++ b/Toolbox/Util.m @@ -198,6 +198,9 @@ Print["Download Complete!"]; (* Extract Archive *) + newDirectory=FileNameJoin[{directory,"MASS-Toolbox-"<>version}]; + Quiet@DeleteFile[FileNameJoin[{directory,"pax_global_header"}]]; + Quiet@DeleteDirectory[newDirectory,DeleteContents->True]; Print["Please wait. Extracting Files..."]; task2=ExtractArchive[fileName,directory]; WaitAsynchronousTask[task2]; @@ -206,7 +209,6 @@ If[OptionValue[Install]==True, Module[{installNotebook,nb,cell}, Print["Installing Toolbox..."]; - newDirectory=FileNameJoin[{directory,"MASS-Toolbox-"<>version}]; installNotebook=FileNameJoin[{newDirectory,"Installer.nb"}]; nb=NotebookOpen[installNotebook,Visible->False]; SelectionMove[nb,Next,Cell,3]; diff --git a/WebInstall.m b/WebInstall.m index cef2bcc..55cc821 100644 --- a/WebInstall.m +++ b/WebInstall.m @@ -45,14 +45,15 @@ Print["Download Complete!"]; (* Extract files *) + newDirectory=FileNameJoin[{directory,"MASS-Toolbox-"<>version}]; Quiet@DeleteFile[FileNameJoin[{directory,"pax_global_header"}]]; + Quiet@DeleteDirectory[newDirectory,DeleteContents->True]; Print["Please wait. Extracting Files..."]; task2=ExtractArchive[fileName,directory]; WaitAsynchronousTask[task2]; (* Install new Toolbox *) Print["Installing Toolbox..."]; - newDirectory=FileNameJoin[{directory,"MASS-Toolbox-"<>version}]; installNotebook=FileNameJoin[{newDirectory,"Installer.nb"}]; nb=NotebookOpen[installNotebook,Visible->False]; SelectionMove[nb,Next,Cell,3];