cvs commit: p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML HierView.pm

[spadkins]

cvsuser     02/06/07 15:43:20

  Modified:    P5EEx/Blue/P5EEx/Blue/Widget/HTML HierView.pm
  Log:
  fixed open_exclusive() when lower than first level
  
  Revision  Changes    Path
  1.2       +9 -5      p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/HierView.pm
  
  Index: HierView.pm
  ===================================================================
  RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/HierView.pm,v
  retrieving revision 1.1
  retrieving revision 1.2
  diff -u -w -r1.1 -r1.2
  --- HierView.pm       5 Feb 2002 22:16:05 -0000       1.1
  +++ HierView.pm       7 Jun 2002 22:43:20 -0000       1.2
  @@ -1,10 +1,10 @@
   
   ######################################################################
  -## $Id: HierView.pm,v 1.1 2002/02/05 22:16:05 spadkins Exp $
  +## $Id: HierView.pm,v 1.2 2002/06/07 22:43:20 spadkins Exp $
   ######################################################################
   
   package P5EEx::Blue::Widget::HTML::HierView;
  -$VERSION = do { my @r=(q$Revision: 1.1 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
  +$VERSION = do { my @r=(q$Revision: 1.2 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
   
   use P5EEx::Blue::P5EE;
   use P5EEx::Blue::Widget::HTML;
  @@ -149,19 +149,23 @@
       my ($self, $opennodenumber) = @_;
       my ($nodebase, $nodeidx, $nodenumber);
       my $node = $self->get("node");
  +    #print "HierView->open_exclusively($opennodenumber) node=$node\n";
       $self->set("node", $node);
  +    #print "HierView->open_exclusively($opennodenumber) (2) node=$node (", 
join(",",(keys %$node)), ")\n";
   
       $nodebase = $opennodenumber;
       if ($nodebase =~ /(.*)\.[^\.]+$/) {
  -        $nodebase = $1;
  +        $nodebase = $1 . ".";
       }
       else {
           $nodebase = "";
       }
       $nodeidx = 1;
  +    #print "HierView->open_exclusively() nodebase=$nodebase nodeidx=$nodeidx\n";
   
       while (1) {
           $nodenumber = "$nodebase$nodeidx";
  +        #print "HierView->open_exclusively(): exists?=$nodenumber 
[$node->{$nodenumber}]\n";
           last if (!defined $node->{$nodenumber});
           $node->{$nodenumber}{open} = 0;
   #print "HierView->open_exclusively(): closing=$nodenumber\n";