From 8414339f861f1289bdc8cd191a765e8dec195582 Mon Sep 17 00:00:00 2001
From: Francois Pons <fpons@mandriva.com>
Date: Thu, 11 Jul 2002 13:14:42 +0000
Subject: 0.09-2mdk

---
 URPM/Resolve.pm | 32 +++++++++++++++++++++++++++++++-
 1 file changed, 31 insertions(+), 1 deletion(-)

(limited to 'URPM')

diff --git a/URPM/Resolve.pm b/URPM/Resolve.pm
index a88b8c6..960ea66 100644
--- a/URPM/Resolve.pm
+++ b/URPM/Resolve.pm
@@ -312,7 +312,7 @@ sub resolve_requested {
 	    if (my ($name) =~ /^([^\s\[]*)/) {
 		foreach (keys %{$urpm->{provides}{$name} || {}}) {
 		    my $p = $urpm->{depslist}[$_];
-		    $pkg->flag_selected and $state->{ask_unselect}{$p->id}{$pkg->id} = undef;
+		    $p->flag_selected and $state->{ask_unselect}{$p->id}{$pkg->id} = undef;
 		}
 	    }
 	}
@@ -320,6 +320,36 @@ sub resolve_requested {
 
     #- obsoleted packages are no longer marked as being asked to be removed.
     delete @{$state->{ask_remove}}{map { /(.*)\.[^\.]*$/ && $1 } keys %{$state->{obsoleted}}};
+
+    #- clear state according to selection done, this is usefull for
+    #- canceling a selection (works after second call with empty requested).
+    if ($options{clear_state}) {
+	foreach (keys %{$state->{selected} || {}}) {
+	    my $pkg = $urpm->{depslist}[$_];
+
+	    foreach ($pkg->provides) {
+		if (my ($n, $s) = /^([^\s\[]*)(?:\[\*\])?\[?([^\s\]]*\s*[^\s\]]*)/) {
+		    delete $state->{provided}{$n}{$s}{$pkg->id};
+		    %{$state->{provided}{$n}{$s}} or delete $state->{provided}{$n}{$s};
+		}
+	    }
+
+	    foreach ($pkg->obsoletes) {
+		delete $state->{obsoleted}{$pkg->fullname}{$pkg->id};
+		%{$state->{obsoleted}{$pkg->fullname}} or delete $state->{obsoleted}{$pkg->fullname};
+	    }
+
+	    foreach (keys %{$state->{ask_remove} || {}}) {
+		$state->{ask_remove}{$_} = [ grep { $_->{pkg} ne $pkg } @{$state->{ask_remove}{$_} || []} ];
+		@{$state->{ask_remove}{$_}} or delete $state->{ask_remove}{$_};
+	    }
+
+	    foreach (keys %{$state->{ask_unselect} || {}}) {
+		delete $state->{ask_unselect}{$_}{$pkg->id};
+		%{$state->{ask_unselect}{$_}} or delete $state->{ask_unselect}{$_};
+	    }
+	}
+    }
 }
 
 #- compute installed flags for all package in depslist.
-- 
cgit v1.2.1