From 3229471e071f7f33020b7ea32cb286c260b6c2d6 Mon Sep 17 00:00:00 2001 From: Thierry Vignaud Date: Thu, 2 Mar 2006 11:42:39 +0000 Subject: (install_pkgs) update all package from media for bundles --- mdkupdate | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/mdkupdate b/mdkupdate index 3398ab5d..25b734cd 100755 --- a/mdkupdate +++ b/mdkupdate @@ -148,7 +148,7 @@ if (!$bundle) { add_media($media, $_, 'hdlist.cz', '') foreach keys %$mirrors; $bundle =~ s/\.rpm$//; push(@bundles, $bundle); - install_pkgs($in, \@bundles, $media); + install_pkgs($in, \@bundles, $media, { is_bundle => 1 }); } } @@ -177,10 +177,12 @@ sub ask_pkgs { } sub install_pkgs { - my ($in, $choosed, $media_name) = @_; + my ($in, $choosed, $media_name, $o_options) = @_; + $o_options ||= {}; my $w = $in->wait_message(N("Please wait"), N("Installing packages ...\n")); eval { system "/usr/sbin/urpmi", "--auto", "--media", $media_name, @$choosed; + system "/usr/sbin/urpmi", "--auto-select", "--media", $media_name if $o_options->{is_bundle}; $? == 0 or die N("Unable to update packages from update_source medium.\n"); }; undef $w; -- cgit v1.2.1