From c5b13377fad1b2bdac6f0ac39c41d3e46af30426 Mon Sep 17 00:00:00 2001
From: Thierry Vignaud <tv@mandriva.org>
Date: Tue, 23 Oct 2007 01:10:24 +0000
Subject: (add_distrib_update_media) factorize computing unique media names

---
 Rpmdrake/edit_urpm_sources.pm | 10 +---------
 Rpmdrake/pkg.pm               |  2 +-
 rpmdrake.pm                   |  7 +++++--
 3 files changed, 7 insertions(+), 12 deletions(-)

diff --git a/Rpmdrake/edit_urpm_sources.pm b/Rpmdrake/edit_urpm_sources.pm
index 79cf19e2..b44abdd8 100644
--- a/Rpmdrake/edit_urpm_sources.pm
+++ b/Rpmdrake/edit_urpm_sources.pm
@@ -137,15 +137,7 @@ Is it ok to continue?", $distro),
     ) or return 0;
     ref $mirror or return;
     my $wait = wait_msg(N("Please wait, adding media..."));
-    my $medium_name;
-	if ($rpmdrake::mandrake_release =~ /(\d+\.\d+) \((\w+)\)/) {
-	    $medium_name = $2 . $1 . '-';
-	} else {
-	    $medium_name = 'distrib';
-	}
-	#- ensure a unique medium name
-	my $initial_number = 1 + max map { $_->{name} =~ /\(\Q$medium_name\E(\d+)\b/ ? $1 : 0 } @{$urpm->{media}};
-    add_distrib_update_media($urpm, $medium_name, $mirror, initial_number => $initial_number);
+    add_distrib_update_media($urpm, $mirror);
     remove_wait_msg($wait);
     return 1;
 }
diff --git a/Rpmdrake/pkg.pm b/Rpmdrake/pkg.pm
index bbd8d001..033b301e 100644
--- a/Rpmdrake/pkg.pm
+++ b/Rpmdrake/pkg.pm
@@ -212,7 +212,7 @@ launch the Software Media Manager, and then add a `Security
 updates' medium.
 
 Then, restart %s.", $rpmdrake::myname_update)), myexit(-1);
-		add_distrib_update_media($urpm, $update_name, $mirror);
+		add_distrib_update_media($urpm, $mirror);
 		@update_medias = { name => $update_name };  #- hack to simulate a medium for parsing of descriptions
 	    }
 }
diff --git a/rpmdrake.pm b/rpmdrake.pm
index 13274a2d..212b15a7 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -878,12 +878,15 @@ It will be disabled.",
 }
 
 sub add_distrib_update_media {
-    my ($urpm, $medium_name, $mirror, %options) = @_;
+    my ($urpm, $mirror, %options) = @_;
     my $is_update = $mirror->{type} eq 'updates';
+    #- ensure a unique medium name
+    my $medium_name = $rpmdrake::mandrake_release =~ /(\d+\.\d+) \((\w+)\)/ ? $2 . $1 . '-' : 'distrib';
+    my $initial_number = 1 + max map { $_->{name} =~ /\(\Q$medium_name\E(\d+)\b/ ? $1 : 0 } @{$urpm->{media}};
     add_medium_and_check(
         $urpm,
         { nolock => 1, distrib => 1 },
-        $medium_name, $mirror->{url}, probe_with => 'synthesis', %options,
+        $medium_name, $mirror->{url}, probe_with => 'synthesis', initial_number => $initial_number, %options, 
         usedistrib => 1,
         if_($is_update, only_updates => 1),
     );
-- 
cgit v1.2.1