From ca3f12f9a6c52fc9fa9c18d802da9ad242a1a7f9 Mon Sep 17 00:00:00 2001
From: Guillaume Cottenceau <gc@mandriva.com>
Date: Mon, 5 Aug 2002 12:53:03 +0000
Subject: don't exit at the end of the action, restart

---
 rpmdrake | 25 +++++++++++++++----------
 1 file changed, 15 insertions(+), 10 deletions(-)

diff --git a/rpmdrake b/rpmdrake
index 720bb6a9..da87e40a 100755
--- a/rpmdrake
+++ b/rpmdrake
@@ -606,9 +606,11 @@ sub perform_installation {  #- (partially) duplicated from /usr/sbin/urpmi :-(
 }
 
 sub rpmdrake_install {
-    my ($urpm, $installable) = get_installable_pkgs();
-
-    run_treeview_dialog($urpm, $installable) and perform_installation($urpm);
+    while (1) {
+	my ($urpm, $installable) = get_installable_pkgs();
+	run_treeview_dialog($urpm, $installable) or return;
+	perform_installation($urpm);
+    }
 }
 
 
@@ -639,19 +641,22 @@ sub perform_removal {
 }
 
 sub rpmdrake_remove {
-    my $installed = get_installed_pkgs();
-
-    run_treeview_dialog(new urpm, $installed) and perform_removal(new urpm, $installed);
+    while (1) {
+	my $installed = get_installed_pkgs();
+	run_treeview_dialog(new urpm, $installed) or return;
+	perform_removal(new urpm, $installed);
+    }
 }
 
 
 # -=-=-=---=-=-=---=-=-=-- mandrakeupdate -=-=-=---=-=-=---=-=-=-
 
 sub rpmdrake_mandrakeupdate {
-    my ($urpm, $installable_updates, $descriptions) = get_installable_pkgs(1);
-
-    run_treeview_dialog($urpm, $installable_updates, $descriptions)
-      and perform_installation($urpm);
+    while (1) {
+	my ($urpm, $installable_updates, $descriptions) = get_installable_pkgs(1);
+	run_treeview_dialog($urpm, $installable_updates, $descriptions) or return;
+	perform_installation($urpm);
+    }
 }
 
 
-- 
cgit v1.2.1