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

Allow noFormPost to be dynamically generated with a sub. Not all property settings allow this!

Browse source
This commit is contained in:
Colin Kuskie 2011-11-04 11:54:31 -07:00
parent a2a821822d
commit 3ba6d43ec9
1 changed files with 6 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Asset.pm
View file

@ -1276,9 +1276,13 @@ sub getFieldData {
my $attr = $self->meta->find_attribute_by_name( $property ); my $attr = $self->meta->find_attribute_by_name( $property );
my $fieldType = $attr->fieldType; my $fieldType = $attr->fieldType;
my $fieldOverrides = $overrides->{ $property } || {}; my $fieldOverrides = $overrides->{ $property } || {};
my $noFormPost = $attr->noFormPost;
if (ref $noFormPost eq 'CODE') {
$noFormPost = $self->$noFormPost;
}
my $fieldHash = { my $fieldHash = {
fieldType => $fieldType, fieldType => $fieldType,
noFormPost => $attr->noFormPost, noFormPost => $noFormPost,
tab => "properties", tab => "properties",
%{ $self->getFormProperties( $property ) }, %{ $self->getFormProperties( $property ) },
%{ $overrides }, %{ $overrides },
@ -1878,6 +1882,7 @@ exception.
sub loadModule { sub loadModule {
my ($class, $className) = @_; my ($class, $className) = @_;
if ($className !~ /^WebGUI::Asset(?:::\w+)*$/ ) { if ($className !~ /^WebGUI::Asset(?:::\w+)*$/ ) {
warn $className;
WebGUI::Error::InvalidParam->throw(param => $className, error => "Not a WebGUI::Asset class",); WebGUI::Error::InvalidParam->throw(param => $className, error => "Not a WebGUI::Asset class",);
} }
(my $module = $className . '.pm') =~ s{::}{/}g; (my $module = $className . '.pm') =~ s{::}{/}g;