From aec3a06cb3d0fe1a9aab2f6184654a16cdd612b5 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 26 Mar 2009 13:25:25 +0000 Subject: (urpmi_add_all_media) make gurpmi.addmedia auto close instead of waiting for user pressing "close" button on "media added with success" dialogs --- perl-install/any.pm | 4 +++- 1 file changed, 3 insertions(+), 1 deletion(-) (limited to 'perl-install/any.pm') diff --git a/perl-install/any.pm b/perl-install/any.pm index 9b2730c0f..8a547e0d4 100644 --- a/perl-install/any.pm +++ b/perl-install/any.pm @@ -858,9 +858,11 @@ sub urpmi_add_all_media { require network::tools; return if !network::tools::has_network_connection(); my $wait; + my @options = ('--distrib', '--mirrorlist', '$MIRRORLIST'); if ($binary eq 'urpmi.addmedia') { $wait = $in->wait_message(N("Please wait"), N("Please wait, adding media...")); } elsif ($in->isa('interactive::gtk')) { + push @options, '--silent-success'; mygtk2::flush(); } @@ -870,7 +872,7 @@ sub urpmi_add_all_media { log::l("URPMI_ADDMEDIA_REASON $reason"); local $ENV{URPMI_ADDMEDIA_REASON} = $reason; - run_program::rooted($::prefix, $binary, '--distrib', '--mirrorlist', '$MIRRORLIST'); + run_program::rooted($::prefix, $binary, @options); } sub autologin { -- cgit v1.2.1