From 588bf2dabd7af5948062b115895cbbd53896e892 Mon Sep 17 00:00:00 2001
From: Rafael Garcia-Suarez <rgarciasuarez@mandriva.org>
Date: Fri, 30 Apr 2004 16:23:13 +0000
Subject: In the Software Media Manager, in the sub-window to choose the media
 to be updated, don't list the disabled media.

---
 rpmdrake.pm | 54 ++++++++++++++++++++++++++++++++++++++----------------
 1 file changed, 38 insertions(+), 16 deletions(-)

(limited to 'rpmdrake.pm')

diff --git a/rpmdrake.pm b/rpmdrake.pm
index baf5b820..9027f1d0 100644
--- a/rpmdrake.pm
+++ b/rpmdrake.pm
@@ -360,7 +360,7 @@ by Mandrake Linux Official Updates.")), return '';
 						     $model and $w->{retval} = { sel => $model->get($iter, 0) };
 						 }
 						 Gtk2->main_quit })
-			       } ([ N("Cancel"), 0 ], [ N("Ok"), 1 ]  )),
+			       } [ N("Cancel"), 0 ], [ N("Ok"), 1 ]),
 		   ));
     my %roots;
     $tree_model->append_set($roots{$_->{land}} ||= $tree_model->append_set(undef, [ 0 => $_->{land} ]),
@@ -456,7 +456,7 @@ later.",
 sub update_sources_check {
     my ($urpm, $options, $error_msg, @media) = @_;
     my @error_msgs;
-    local $urpm->{fatal} = sub { push @error_msgs, to_utf8($_[1]); goto fatal_error; };
+    local $urpm->{fatal} = sub { push @error_msgs, to_utf8($_[1]); goto fatal_error };
     local $urpm->{error} = sub { push @error_msgs, to_utf8($_[0]) };
     update_sources($urpm, %$options, noclean => 1);
   fatal_error:
@@ -473,26 +473,48 @@ sub update_sources_interactive {
     $w->{rwindow}->set_position($options{transient} ? 'center_on_parent' : 'center_always');
     my @buttons;
     my @media;
-    gtkadd($w->{window},
-	   gtkpack__(Gtk2::VBox->new(0,5),
-		     Gtk2::Label->new(N("Select the media you wish to update:")),
-		     (@buttons = map { Gtk2::CheckButton->new($_->{name}) } @{$urpm->{media}}),
-		     Gtk2::HSeparator->new,
-		     gtkpack(create_hbox(),
-			     gtksignal_connect(Gtk2::Button->new(N("Cancel")), clicked => sub { $w->{retval} = 0; Gtk2->main_quit }),
-			     gtksignal_connect(Gtk2::Button->new(N("Update")), clicked => sub {
-						   $w->{retval} = any { $_->get_active } @buttons;
-						   @media = map_index { if_($_->get_active, $urpm->{media}[$::i]{name}) } @buttons;
-						   Gtk2->main_quit;
-					       }),
-                      )));
+    gtkadd(
+	$w->{window},
+	gtkpack__(
+	    Gtk2::VBox->new(0,5),
+	    Gtk2::Label->new(N("Select the media you wish to update:")),
+	    (
+		@buttons = map {
+		    Gtk2::CheckButton->new($_->{name})
+		} grep {
+		    ! $_->{ignore}
+		} @{$urpm->{media}}
+	    ),
+	    Gtk2::HSeparator->new,
+	    gtkpack(
+		create_hbox(),
+		gtksignal_connect(
+		    Gtk2::Button->new(N("Cancel")),
+		    clicked => sub { $w->{retval} = 0; Gtk2->main_quit },
+		),
+		gtksignal_connect(
+		    Gtk2::Button->new(N("Update")),
+		    clicked => sub {
+			$w->{retval} = any { $_->get_active } @buttons;
+			@media = map_index { if_($_->get_active, $urpm->{media}[$::i]{name}) } @buttons;
+			Gtk2->main_quit;
+		    },
+		),
+	    )
+	)
+    );
     if ($w->main) {
 	foreach (@{$urpm->{media}}) {  #- force ignored media to be returned alive (forked from urpmi.updatemedia...)
 	    $_->{modified} and delete $_->{ignore};
 	}
         standalone::explanations("Updating media @media");
         $urpm->select_media(@media);
-        update_sources_check($urpm, {}, N_("Unable to update medium; it will be automatically disabled.\n\nErrors:\n%s"), @media);
+        update_sources_check(
+	    $urpm,
+	    {},
+	    N_("Unable to update medium; it will be automatically disabled.\n\nErrors:\n%s"),
+	    @media,
+	);
 	return 1;
     }
     return 0;
-- 
cgit v1.2.1