* Ability to switch mirror/repository

git-svn-id: trunk@34143 -

packages/fppkg/src/pkgrepos.pp

@@ -28,6 +28,7 @@ procedure ListPackages(const ShowGlobalAndLocal: boolean);
 procedure ListRemoteRepository;
 procedure RebuildRemoteRepository;
 procedure SaveRemoteRepository;
+procedure ClearRemoteRepository;
 
 procedure SetDefaultRepositoryClass(ARepositoryClass: TFPRepositoryClass);
 
@@ -703,6 +704,11 @@ begin
     end;
 end;
 
+procedure ClearRemoteRepository;
+begin
+  CurrentRemoteRepositoryURL := '';
+end;
+
 initialization
   AvailableRepository := nil;
   InstalledRepository := nil;