cvsuser 02/10/04 14:13:25 Modified: P5EEx/Blue/P5EEx/Blue Widget.pm Log: fixed get_value() so it works with the new Context->wget() Revision Changes Path 1.19 +2 -8 p5ee/P5EEx/Blue/P5EEx/Blue/Widget.pm Index: Widget.pm =================================================================== RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget.pm,v retrieving revision 1.18 retrieving revision 1.19 diff -u -w -r1.18 -r1.19 --- Widget.pm 24 Sep 2002 20:49:52 -0000 1.18 +++ Widget.pm 4 Oct 2002 21:13:25 -0000 1.19 @@ -1,6 +1,6 @@ ############################################################################# -## $Id: Widget.pm,v 1.18 2002/09/24 20:49:52 spadkins Exp $ +## $Id: Widget.pm,v 1.19 2002/10/04 21:13:25 spadkins Exp $ ############################################################################# package P5EEx::Blue::Widget; @@ -287,13 +287,7 @@ sub get_value { my ($self, $default, $setdefault) = @_; - my $name = $self->{name}; - if ($name =~ /^(.+)\.([a-zA-Z][a-zA-Z0-9_]*)$/) { - return $self->{context}->wget($1, $2, $default, $setdefault); - } - else { - return $self->{context}->wget("session", $name, $default, $setdefault); - } + return $self->{context}->wget($self->{name}, "", $default, $setdefault); } #############################################################################