From 46e4a32ead925c6195f9482a59552e76c0fc238b Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Wed, 6 Aug 2008 16:02:05 +0000
Subject: (mirrors_raw) add product type to URL when fetching mirror list
 (Romain d'Alverny's request)

---
 perl-install/NEWS         | 2 ++
 perl-install/install/NEWS | 2 ++
 perl-install/mirror.pm    | 2 +-
 3 files changed, 5 insertions(+), 1 deletion(-)

diff --git a/perl-install/NEWS b/perl-install/NEWS
index 653602c28..fd4fad1d9 100644
--- a/perl-install/NEWS
+++ b/perl-install/NEWS
@@ -1,3 +1,5 @@
+- add product type to URL when fetching mirror list
+
 Version 11.5 - 6 August 2008
 
 - fix more strange focus bugs
diff --git a/perl-install/install/NEWS b/perl-install/install/NEWS
index 1223dfb60..a1759f064 100644
--- a/perl-install/install/NEWS
+++ b/perl-install/install/NEWS
@@ -1,3 +1,5 @@
+- add product type to URL when fetching mirror list
+
 Version 11.3 - 4 August 2008
 
 - fix spacing around buttons
diff --git a/perl-install/mirror.pm b/perl-install/mirror.pm
index d725429f2..a37955669 100644
--- a/perl-install/mirror.pm
+++ b/perl-install/mirror.pm
@@ -59,7 +59,7 @@ sub mirrors_raw {
     #- contact the following URL to retrieve the list of mirrors.
     #- http://wiki.mandriva.com/en/Product_id
     my $type = lc($product_id->{type}); $type =~ s/\s//g;
-    my $list = "http://api.mandriva.com/mirrors/$type.$product_id->{version}.$product_id->{arch}.list";
+    my $list = "http://api.mandriva.com/mirrors/$type.$product_id->{version}.$product_id->{arch}.list?product=$product_id->{product}";
     log::explanations("trying mirror list from $list");
     my @lines;
     if ($::isInstall) {
-- 
cgit v1.2.1