diff options
| author | merlin | 2007-12-31 14:42:32 +0000 |
|---|---|---|
| committer | merlin | 2007-12-31 14:42:32 +0000 |
| commit | 18372150b8d1adc362f011650af699b640cd9a9c (patch) | |
| tree | 2723cb58e8fd20803436594380bab371cdae3551 /src/MTools | |
| parent | 0eb9b0551b9ed35069f4465595cef5f80f5c52a6 (diff) | |
| download | mtc-18372150b8d1adc362f011650af699b640cd9a9c.zip mtc-18372150b8d1adc362f011650af699b640cd9a9c.tar.gz mtc-18372150b8d1adc362f011650af699b640cd9a9c.tar.bz2 mtc-18372150b8d1adc362f011650af699b640cd9a9c.tar.xz | |
Correction d'un bug de getSelection lorsque la selection est vide
Diffstat (limited to 'src/MTools')
| -rw-r--r-- | src/MTools/Comp/MMultiSelection.pm | 2 |
1 files changed, 1 insertions, 1 deletions
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++) |