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);
}
#############################################################################
