From 62d74cfeb2ca73e159678c398616364a31749c96 Mon Sep 17 00:00:00 2001
From: joost <joost@cnoc.nl>
Date: Sat, 16 Jul 2016 17:14:27 +0000
Subject: [PATCH]  * Ability to switch mirror/repository

git-svn-id: trunk@34143 -
---
 packages/fppkg/src/pkgrepos.pp | 6 ++++++
 1 file changed, 6 insertions(+)

diff --git a/packages/fppkg/src/pkgrepos.pp b/packages/fppkg/src/pkgrepos.pp
index 28cd80f38b..0f482e942d 100644
--- a/packages/fppkg/src/pkgrepos.pp
+++ b/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;