From 8957c99c34027237f2a0eb4ba564dc093148f50a Mon Sep 17 00:00:00 2001
From: Pascal Rigaux <pixel@mandriva.com>
Date: Thu, 28 Aug 2008 15:50:11 +0000
Subject: add optional paramater to urpmi_add_all_media() to allow to add only
 update media

---
 perl-install/any.pm | 6 ++++--
 1 file changed, 4 insertions(+), 2 deletions(-)

(limited to 'perl-install')

diff --git a/perl-install/any.pm b/perl-install/any.pm
index 1645ed201..0fde2512c 100644
--- a/perl-install/any.pm
+++ b/perl-install/any.pm
@@ -838,13 +838,15 @@ sub sessions_with_order() {
 }
 
 sub urpmi_add_all_media {
-    my ($in) = @_;
+    my ($in, $b_update) = @_;
 
     #- configure urpmi media if network is up
     require network::tools;
     return if !network::tools::has_network_connection();
     my $_wait = $in->wait_message(N("Please wait"), N("Please wait, adding media..."));
-    run_program::rooted($::prefix, 'urpmi.addmedia', '--distrib', '--mirrorlist', '$MIRRORLIST');
+    run_program::rooted($::prefix, 'urpmi.addmedia', 
+			if_($b_update, '--update'),
+			'--distrib', '--mirrorlist', '$MIRRORLIST');
 }
 
 sub autologin {
-- 
cgit v1.2.1