cvsuser 02/10/05 18:56:59
Modified: P5EEx/Blue/P5EEx/Blue/Widget/HTML DateField.pm
ValidatedTextField.pm
Log:
brought up to date with using context->wget() rather than context->wget_value(),
which no longer exists
Revision Changes Path
1.4 +6 -6 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DateField.pm
Index: DateField.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/DateField.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- DateField.pm 19 Apr 2002 14:45:23 -0000 1.3
+++ DateField.pm 6 Oct 2002 01:56:59 -0000 1.4
@@ -1,10 +1,10 @@
######################################################################
-## $Id: DateField.pm,v 1.3 2002/04/19 14:45:23 spadkins Exp $
+## $Id: DateField.pm,v 1.4 2002/10/06 01:56:59 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::DateField;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML::TextField;
@@ -100,19 +100,19 @@
sub get_value {
my ($self, $default, $setdefault) = @_;
- $self->{context}->wget_value($self->{name}, $default, $setdefault);
+ $self->{context}->wget($self->{name}, "", $default, $setdefault);
}
sub fget_value {
my ($self, $format) = @_;
$format = $self->get("format") if (!defined $format);
if (! defined $format) {
- return $self->{context}->wget_value($self->{name}, "");
+ return $self->{context}->wget($self->{name}, "", "");
}
else {
my ($value, $type);
$type = $self->get("validate");
- $value = $self->{context}->wget_value($self->{name}, "");
+ $value = $self->{context}->wget($self->{name}, "", "");
if ($type) {
$value = P5EEx::Blue::Widget->format($value, $type, $format);
}
@@ -122,7 +122,7 @@
sub get_values {
my ($self, $default, $setdefault) = @_;
- my $values = $self->{context}->wget_value($self->{name}, $default, $setdefault);
+ my $values = $self->{context}->wget($self->{name}, "", $default, $setdefault);
return (ref($values) eq "ARRAY") ? @$values : ($values);
}
1.4 +4 -4 p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/ValidatedTextField.pm
Index: ValidatedTextField.pm
===================================================================
RCS file: /cvs/public/p5ee/P5EEx/Blue/P5EEx/Blue/Widget/HTML/ValidatedTextField.pm,v
retrieving revision 1.3
retrieving revision 1.4
diff -u -w -r1.3 -r1.4
--- ValidatedTextField.pm 19 Apr 2002 14:45:23 -0000 1.3
+++ ValidatedTextField.pm 6 Oct 2002 01:56:59 -0000 1.4
@@ -1,10 +1,10 @@
######################################################################
-## $Id: ValidatedTextField.pm,v 1.3 2002/04/19 14:45:23 spadkins Exp $
+## $Id: ValidatedTextField.pm,v 1.4 2002/10/06 01:56:59 spadkins Exp $
######################################################################
package P5EEx::Blue::Widget::HTML::ValidatedTextField;
-$VERSION = do { my @r=(q$Revision: 1.3 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
+$VERSION = do { my @r=(q$Revision: 1.4 $=~/\d+/g); sprintf "%d."."%02d"x$#r,@r};
use P5EEx::Blue::P5EE;
use P5EEx::Blue::Widget::HTML::TextField;
@@ -83,7 +83,7 @@
my ($validate, $value, $newvalue);
$validate = $self->get("validate");
- $value = $self->{context}->wget_value($self->{name});
+ $value = $self->{context}->wget($self->{name}, "");
$value = "" if (!defined $value);
if ($validate) {
$newvalue = $self->format($validate,$value);
@@ -107,7 +107,7 @@
# $self->{context}->wset_value($self->{name}, $value);
# }
# else {
-# $value = $self->{context}->wget_value($self->{name});
+# $value = $self->{context}->wget($self->{name}, "");
# if ($validate) {
# $newvalue = $self->format($validate,$value);
# if (!defined $value || $newvalue ne $value) {
