Changed web installer and updateToolbox to remove old toolbox version

Author: Anand

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];

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];