fixed export, purge, and some other stuff for ems.

This commit is contained in:
JT Smith 2008-07-29 02:10:55 +00:00
parent 84e417069e
commit eea6d818e9
3 changed files with 588 additions and 1000 deletions

View file

@ -99,6 +99,8 @@ sub definition {
noFormPost => 1,
fieldType => "hidden",
defaultValue => $date->toDatabase,
label => $i18n->get("add/edit event start date"),
hoverHelp => $i18n->get("add/edit event start date help"),
autoGenerate => 0,
},
duration => {
@ -250,7 +252,7 @@ Extended to support event metadata.
sub getEditForm {
my $self = shift;
my $form = $self->SUPER::getEditForm(@_);
my $metadata = JSON->new->utf8->decode($self->get("eventMetaData") || '{}');
my $metadata = $self->getEventMetaData;
my $i18n = WebGUI::International->new($self->session, "Asset_EventManagementSystem");
my $date = WebGUI::DateTime->new($self->session, time());
@ -275,6 +277,29 @@ sub getEditForm {
return $form;
}
#-------------------------------------------------------------------
=head2 getEventMetaData
Decodes and returns metadata properties as a hashref.
=head3 key
If specified, returns a single value for the key specified.
=cut
sub getEventMetaData {
my $self = shift;
my $key = shift;
my $metadata = JSON->new->utf8->decode($self->get("eventMetaData") || '{}');
if (defined $key) {
return $metadata->{$key};
}
return $metadata;
}
#-------------------------------------------------------------------
=head2 getMaxAllowedInCart