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

fix getEventFieldsForImport to use new Definition

Browse source
This commit is contained in:
Doug Bell 2011-01-31 20:36:47 -06:00
parent 03f64cbf1a
commit be3052ce6d
2 changed files with 28 additions and 15 deletions
Download patch file Download diff file Expand all files Collapse all files

28
lib/WebGUI/Asset/Wobject/EventManagementSystem.pm
View file

@ -394,20 +394,20 @@ sub getEventFieldsForImport {
required => 1,
});
my $count = 0;
foreach my $definition (@{WebGUI::Asset::Sku::EMSTicket->definition($self->session)}) {
$count++;
foreach my $field (keys %{$definition->{properties}}) {
next if ($count > 1 && ! $field ~~ [qw(title description)]);
next unless ($definition->{properties}{$field}{label} ne "");
push(@fields, {
name => $field,
label => $definition->{properties}{$field}{label},
required => ($field eq "eventNumber") ? 1 : 0,
type => $definition->{properties}{$field}{fieldType},
options => $definition->{properties}{$field}{options},
defaultValue => $definition->{properties}{$field}{defaultValue},
});
}
my $class = "WebGUI::Asset::Sku::EMSTicket";
foreach my $fieldName ( $class->getProperties ) {
next if $fieldName ~~ [qw( groupIdEdit groupIdView ownerUserId newWindow menuTitle
encryptPage isHidden url synopsis extraHeadTags
usePackedHeadTags isPackage isPrototype isExportable
inheritUrlFromParent displayTitle shipsSeparately sku )];
my $attr = $class->meta->find_attribute_by_name( $fieldName );
my $props = {
type => $attr->fieldType,
name => $fieldName,
%{ $class->getFormProperties( $self->session, $fieldName ) },
};
next unless $props->{label};
push @fields, $props;
}
foreach my $field (@{$self->getEventMetaFields}) {
push(@fields, {

15
t/Asset/Wobject/EventManagementSystem.t
View file

@ -50,7 +50,7 @@ my %tag = ( tagId => $versionTag->getId, status => "pending" );
#----------------------------------------------------------------------------
# Tests
plan tests => 60; # Increment this number for each test you create
plan tests => 65; # Increment this number for each test you create
#----------------------------------------------------------------------------
@ -730,4 +730,17 @@ cmp_deeply(
'meta field contains correct data',
);
#----------------------------------------------------------------------------
# getEventFieldsForImport
use Data::Dumper;
my $fields = $ems->getEventFieldsForImport;
cmp_deeply(
$fields,
array_each( superhashof( {
type => ignore(),
name => ignore(),
label => ignore(),
} ) ),
'getEventFieldsForImport contains correct items',
);