From 18372150b8d1adc362f011650af699b640cd9a9c Mon Sep 17 00:00:00 2001
From: merlin
Date: Mon, 31 Dec 2007 14:42:32 +0000
Subject: Correction d'un bug de getSelection lorsque la selection est vide

---
 src/MTools/Comp/MMultiSelection.pm | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'src')

diff --git a/src/MTools/Comp/MMultiSelection.pm b/src/MTools/Comp/MMultiSelection.pm
index d79f64b..e7b7ea4 100644
--- a/src/MTools/Comp/MMultiSelection.pm
+++ b/src/MTools/Comp/MMultiSelection.pm
@@ -768,7 +768,7 @@ sub getSelection {
 	my ($self, $plan) = @_;
 	if (!defined $plan) {$plan = $self -> getSelectedPlan ();}
 	my @selection;
-	if (defined $self -> {__objects} [$plan])
+	if (defined $plan && defined $self -> {__objects} [$plan])
 	{
 		my @items = @{$self -> {__objects} [$plan]};
 		for (my $i = 0; $i < @items; $i++)
-- 
cgit v1.1