(remove_callback) enable to delete several medium at once (#21532)

1 files changed, 12 insertions, 6 deletions

diff --git a/Rpmdrake/edit_urpm_sources.pm b/Rpmdrake/edit_urpm_sources.pm
index 4af06bdc..f6418651 100755
--- a/Rpmdrake/edit_urpm_sources.pm
+++ b/Rpmdrake/edit_urpm_sources.pm
@@ -353,19 +353,25 @@ sub options_callback() {
 }
 
 sub remove_callback() {
-    my $row = selrow();
-    $row == -1 and return;
+    my @rows = selected_rows();
+    my $wait;
+    $#rows == -1 and return;
     interactive_msg(
 	N("Source Removal"),
-	N("Are you sure you want to remove source \"%s\"?", to_utf8($urpm->{media}[$row]{name})),
+	$#rows == 0 ?
+	  N("Are you sure you want to remove source \"%s\"?", to_utf8($urpm->{media}[$rows[0]]{name})) :
+	    N("Are you sure you want to remove the following sources ?") . "\n\n\n" .
+	      join("\n\n", sort map { to_utf8($urpm->{media}[$_]{name}) } @rows),
 	yesno => 1,
 	 transient => $::main_window,
     ) or return;
 
     my $wait = wait_msg(N("Please wait, removing medium..."));
-    urpm::media::remove_media($urpm, [ $urpm->{media}[$row] ]);
-    urpm::media::write_urpmi_cfg($urpm);
-    remove_wait_msg($wait);
+    foreach my $row (@rows) {
+	urpm::media::remove_media($urpm, [ $urpm->{media}[$row] ]);
+	urpm::media::write_urpmi_cfg($urpm);
+	remove_wait_msg($wait);
+    }
     return 1;
 }