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

fixed an upgrade bug

Browse source
This commit is contained in:
JT Smith 2005-07-22 19:07:54 +00:00
parent aee65b8391
commit bbdd05904a
6 changed files with 19 additions and 812 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Form.pm
View file

@ -83,6 +83,19 @@ All of the functions in this package accept the input of a hash reference contai
=cut
sub AUTOLOAD {
our $AUTOLOAD;
my $name = (split /::/, $AUTOLOAD)[-1];
my @params = @_;
my $cmd = "use WebGUI::Form::".$name;
eval ($cmd);
if ($@) {
WebGUI::ErrorHandler::error("Couldn't compile form field: ".$name.". Root cause: ".$@);
return undef;
}
my $class = "WebGUI::Form::".$name;
return $class->new(@params)->toHtml;
}
#-------------------------------------------------------------------
sub _fixMacros {
@ -1724,7 +1737,7 @@ This will be used if no value is specified.
=cut
sub text {
sub texta {
my $params = shift;
my $value = _fixSpecialCharacters($params->{value}||$params->{defaultValue});
$value = _fixQuotes($value);