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

WebGUI::Form::* renaming breaks field type selection [1268605]

Browse source
This commit is contained in:
Michele Dell'Aquila 2005-08-24 16:56:03 +00:00
parent 046e59422b
commit 2653035da6
3 changed files with 3 additions and 2 deletions
Download patch file Download diff file Expand all files Collapse all files

1
docs/changelog/6.x.x.txt
View file

@ -1,4 +1,5 @@
6.7.2 6.7.2
- fix [ 1268605 ] field type selection broken (midellaq)
- fix [ 1267548 ] can't add metadata field (midellaq) - fix [ 1267548 ] can't add metadata field (midellaq)
- fix [ 1265788 ] SyndicatedContent *not working* in 6.7.x - fix [ 1265788 ] SyndicatedContent *not working* in 6.7.x
- fix [ 1245765 ] Missing 'page not found' crashes settings - fix [ 1245765 ] Missing 'page not found' crashes settings

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

@ -17,7 +17,7 @@ package WebGUI::Form::Date;
use strict; use strict;
use base 'WebGUI::Form::Text'; use base 'WebGUI::Form::Text';
use WebGUI::DateTime; use WebGUI::DateTime;
use WebGUI::Form::text; use WebGUI::Form::Text;
use WebGUI::International; use WebGUI::International;
use WebGUI::Session; use WebGUI::Session;
use WebGUI::Style; use WebGUI::Style;

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

@ -139,7 +139,7 @@ sub toHtml {
my $self = shift; my $self = shift;
my %options; my %options;
foreach my $type (@{$self->{types}}) { foreach my $type (@{$self->{types}}) {
my $class = "WebGUI::Form::".$type; my $class = "WebGUI::Form::".ucfirst($type);
my $cmd = "use ".$class; my $cmd = "use ".$class;
eval ($cmd); eval ($cmd);
if ($@) { if ($@) {