From 24435f528e88ec75dc6075dfd898978a8f04e62e Mon Sep 17 00:00:00 2001
From: Vincent Danjean <Vincent.Danjean@ens-lyon.org>
Date: Thu, 16 Mar 2006 16:28:30 +0000
Subject: [PATCH] bug tableaux
git-svn-id: svn+ssh://imag/users/huron/danjean/svnroot/claire/altree/trunk@141 cf695345-040a-0410-a956-b889e835fe2e
---
altree | 12 +++++++++---
1 file changed, 9 insertions(+), 3 deletions(-)
diff --git a/altree b/altree
index f52bd1b..1617b1d 100755
--- a/altree
+++ b/altree
@@ -429,15 +429,21 @@ sub FillQuanti
if ($present_node->NbChildren()==0) {
my($id);
$id=$present_node->{"id"};
+ print STDERR "correspondance->{$id}=\n",
+ Dumper($correspondance->{$id}), "\n";
if (not defined $present_node->{"quanti"}) {# car sinon, pb pour H000
- push (@{$present_node->{"quanti"}}, $correspondance->{$id});
+ $present_node->{"quanti"}=[];
+ push @{$present_node->{"quanti"}}, @{$correspondance->{$id}};
+ print STDERR "quanti=\n",
+ Dumper($present_node->{"quanti"}), "\n";
}
print STDERR $id, " " ;
for (my $i=0; $i< scalar (@{$present_node->{"quanti"}}); $i++) {
- print STDERR $present_node->{"quanti"}->[$i]->[0]->[0], " ";
+ print STDERR $present_node->{"quanti"}->[$i]->[0], " ";
}
print STDERR "\n";
- print Dumper($present_node->{"quanti"});;
+ print STDERR Dumper($present_node->{"quanti"});;
+ exit 1;
} else {
my($child);
# # print $present_node->{"id"}, " "; #123456
--
GitLab