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

enforce some restrictions for assets

Browse source
This commit is contained in:
Graham Knop 2009-10-22 10:21:10 -05:00
parent 9b31593dae
commit d26c3c2ed3
2 changed files with 83 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

21
lib/WebGUI/Definition/Asset.pm
View file

@ -18,7 +18,9 @@ use strict;
use warnings;
use 5.010;
use base qw(WebGUI::Definition);
use WebGUI::International;
use WebGUI::Exception;
our $VERSION = '0.0.1';
@ -28,10 +30,23 @@ sub import {
return;
}
my $definition = (@_ == 1 && ref $_[0]) ? $_[0] : { @_ };
my $table = $definition->{tableName}
|| WebGUI::Error::InvalidParam->throw(param => 'tableName');
if ( my $properties = $definition->{properties} ) {
my $table = $definition->{tableName};
for ( my $i = 1; $i < @{ $properties }; $i += 2) {
$properties->[$i]{tableName} ||= $table;
for ( my $i = 0; $i < $#{ $properties }; $i += 2) {
my ($name, $value) = @{ $properties }[$i, $i + 1];
$value->{tableName} ||= $table;
if ( ! $value->{tableName}|| ref $value->{tableName}) {
WebGUI::Error::InvalidParam->throw(param => 'tableName');
}
elsif ( ! $value->{fieldType} || ref $value->{fieldType}) {
WebGUI::Error::InvalidParam->throw(param => 'fieldType');
}
elsif ( ( ! $value->{noFormPost} || ref $value->{noFormPost} ) && ! $value->{label}) {
WebGUI::Error::InvalidParam->throw(param => 'label');
}
}
}