oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

getting value for display shouldn't process form parameters

Browse source
This commit is contained in:
Graham Knop 2008-06-10 18:35:23 +00:00
parent 5d35c3a56a
commit bedac54d96
12 changed files with 13 additions and 13 deletions
Download patch file Download diff file Expand all files Collapse all files

2
lib/WebGUI/Form/Asset.pm
View file

@ -117,7 +117,7 @@ Formats as a link.
sub getValueAsHtml {
my $self = shift;
my $asset = WebGUI::Asset->newByDynamicClass($self->session,$self->getValue);
my $asset = WebGUI::Asset->newByDynamicClass($self->session,$self->getDefaultValue);
if (defined $asset) {
return '<a href="'.$asset->getUrl.'">'.$asset->getTitle.'</a>';
}

2
lib/WebGUI/Form/Control.pm
View file

@ -436,7 +436,7 @@ Returns the value rendered suitably in HTML. This is useful for forms that are r
sub getValueAsHtml {
my $self = shift;
return $self->getValue(@_);
return $self->getDefaultValue(@_);
}
#-------------------------------------------------------------------

2
lib/WebGUI/Form/Date.pm
View file

@ -169,7 +169,7 @@ sub getValueAsHtml {
}
else {
# MySQL format
my $value = $self->getValue;
my $value = $self->getDefaultValue;
return $value;
}
}

2
lib/WebGUI/Form/Email.pm
View file

@ -81,7 +81,7 @@ Formats as an email link.
sub getValueAsHtml {
my $self = shift;
my $email = $self->getValue;
my $email = $self->getDefaultValue;
return '<a href="mailto:'.$email.'">'.$email.'</a>';
}

4
lib/WebGUI/Form/File.pm
View file

@ -197,7 +197,7 @@ sub getValue {
return $id;
}
}
return undef;
return $value;
}
#-------------------------------------------------------------------
@ -210,7 +210,7 @@ Displays the file as a link.
sub getValueAsHtml {
my ($self) = @_;
my $value = $self->getValue;
my $value = $self->getDefaultValue;
return '' unless $value;
my $location = WebGUI::Storage->get($self->session,$value);
my $file = shift @{ $location->getFiles };

2
lib/WebGUI/Form/Group.pm
View file

@ -133,7 +133,7 @@ Formats as a name.
sub getValueAsHtml {
my $self = shift;
my $group = WebGUI::Group->new($self->session, $self->getValue);
my $group = WebGUI::Group->new($self->session, $self->getDefaultValue);
if (defined $group) {
return $group->name;
}

2
lib/WebGUI/Form/Image.pm
View file

@ -181,7 +181,7 @@ Displays the image using an img tag.
sub getValueAsHtml {
my ($self) = @_;
my $value = $self->getValue;
my $value = $self->getDefaultValue;
return '' unless $value;
my $location = WebGUI::Storage::Image->get($self->session, $value);
my $file = shift @{ $location->getFiles };

2
lib/WebGUI/Form/List.pm
View file

@ -261,7 +261,7 @@ Return all the options
sub getValueAsHtml {
my ($self) = @_;
my $options = $self->getOptions;
return join ", ", map { $options->{$_} } $self->getValue();
return join ", ", map { $options->{$_} } $self->getDefaultValue;
}
#-------------------------------------------------------------------

2
lib/WebGUI/Form/Url.pm
View file

@ -112,7 +112,7 @@ Formats as a link.
sub getValueAsHtml {
my $self = shift;
my $url = $self->getValue;
my $url = $self->getDefaultValue;
return '<a href="'.$url.'">'.$url.'</a>';
}

2
lib/WebGUI/Form/User.pm
View file

@ -117,7 +117,7 @@ Formats as a name.
sub getValueAsHtml {
my $self = shift;
my $user = WebGUI::User->new($self->session, $self->getValue);
my $user = WebGUI::User->new($self->session, $self->getDefaultValue);
if (defined $user) {
return $user->username;
}

2
lib/WebGUI/Form/Vendor.pm
View file

@ -119,7 +119,7 @@ Formats as a name.
sub getValueAsHtml {
my $self = shift;
my $vendor = eval{WebGUI::Shop::Vendor->new($self->session, $self->getValue)};
my $vendor = eval{WebGUI::Shop::Vendor->new($self->session, $self->getDefaultValue)};
if (!$@ && defined $vendor) {
return $vendor->get('name');
}

2
lib/WebGUI/Form/YesNo.pm
View file

@ -119,7 +119,7 @@ Shows either Yes or No.
sub getValueAsHtml {
my $self = shift;
my $i18n = WebGUI::International->new($self->session);
if ($self->getValue) {
if ($self->getDefaultValue) {
return $i18n->get(138);
}
return $i18n->get(139);