Move Event help and labels into its own file
This commit is contained in:
Colin Kuskie
parent
1370205b78
commit
a12e5c9cb3
5 changed files with 512 additions and 1022 deletions
|
|
@ -164,97 +164,97 @@ sub getEditForm {
|
|||
my $tabform = $self->SUPER::getEditForm();
|
||||
#return $tabform;
|
||||
$tabform->getTab("properties")->HTMLArea(
|
||||
-name=>"description", -label=>WebGUI::International::get(512,"Asset_EventsCalendar"),
|
||||
-name=>"description", -label=>WebGUI::International::get(512,"Asset_Event"),
|
||||
-value=>$self->getValue("description")
|
||||
);
|
||||
$tabform->getTab("properties")->dateTime(
|
||||
-name=>"eventStartDate", -label=>WebGUI::International::get(513,"Asset_EventsCalendar"),
|
||||
-name=>"eventStartDate", -label=>WebGUI::International::get(513,"Asset_Event"),
|
||||
-extras=>'onBlur="this.form.eventEndDate.value=this.form.eventStartDate.value;this.form.until.value=this.form.eventStartDate.value;"',
|
||||
-value=>$self->getValue("eventStartDate")
|
||||
);
|
||||
$tabform->getTab("properties")->dateTime(
|
||||
-name=>"eventEndDate", -label=>WebGUI::International::get(514,"Asset_EventsCalendar"),
|
||||
-name=>"eventEndDate", -label=>WebGUI::International::get(514,"Asset_Event"),
|
||||
-extras=>'onBlur="this.form.until.value=this.form.eventEndDate.value;"',
|
||||
-value=>$self->getValue("eventEndDate")
|
||||
);
|
||||
$tabform->getTab("properties")->text(
|
||||
-name=>"eventLocation", -label=>WebGUI::International::get(515,"Asset_EventsCalendar"),
|
||||
-name=>"eventLocation", -label=>WebGUI::International::get(515,"Asset_Event"),
|
||||
-value=>$self->getValue("eventLocation")
|
||||
);
|
||||
# $tabform->getTab("properties")->yesNo(
|
||||
# -name=>"allowRegistration", -label=>WebGUI::International::get(516,"Asset_EventsCalendar"),
|
||||
# -name=>"allowRegistration", -label=>WebGUI::International::get(516,"Asset_Event"),
|
||||
# -value=>$self->getValue("allowRegistration")
|
||||
# );
|
||||
# $tabform->getTab("properties")->yesNo(
|
||||
# -name=>"allowUnregistration", -label=>WebGUI::International::get(517,"Asset_EventsCalendar"),
|
||||
# -name=>"allowUnregistration", -label=>WebGUI::International::get(517,"Asset_Event"),
|
||||
# -value=>$self->getValue("allowUnregistration")
|
||||
# );
|
||||
# $tabform->getTab("properties")->yesNo(
|
||||
# -name=>"regConfirm", -label=>WebGUI::International::get(518,"Asset_EventsCalendar"),
|
||||
# -name=>"regConfirm", -label=>WebGUI::International::get(518,"Asset_Event"),
|
||||
# -value=>$self->getValue("regConfirm")
|
||||
# );
|
||||
# $tabform->getTab("properties")->yesNo(
|
||||
# -name=>"regNotify", -label=>WebGUI::International::get(519,"Asset_EventsCalendar"),
|
||||
# -name=>"regNotify", -label=>WebGUI::International::get(519,"Asset_Event"),
|
||||
# -value=>$self->getValue("regNotify")
|
||||
# );
|
||||
# $tabform->getTab("properties")->dateTime(
|
||||
# -name=>"regStartDate", -label=>WebGUI::International::get(520,"Asset_EventsCalendar"),
|
||||
# -name=>"regStartDate", -label=>WebGUI::International::get(520,"Asset_Event"),
|
||||
# -extras=>'onBlur="this.form.regEndDate.value=this.form.regStartDate.value;this.form.until.value=this.form.regStartDate.value;"',
|
||||
# -value=>$self->getValue("regStartDate")
|
||||
# );
|
||||
# $tabform->getTab("properties")->dateTime(
|
||||
# -name=>"regEndDate", -label=>WebGUI::International::get(521,"Asset_EventsCalendar"),
|
||||
# -name=>"regEndDate", -label=>WebGUI::International::get(521,"Asset_Event"),
|
||||
# -extras=>'onBlur="this.form.until.value=this.form.regEndDate.value;"',
|
||||
# -value=>$self->getValue("regEndDate")
|
||||
# );
|
||||
# $tabform->getTab("properties")->yesNo(
|
||||
# -name=>"allowReminders", -label=>WebGUI::International::get(522,"Asset_EventsCalendar"),
|
||||
# -name=>"allowReminders", -label=>WebGUI::International::get(522,"Asset_Event"),
|
||||
# -value=>$self->getValue("allowReminders")
|
||||
# );
|
||||
# $tabform->getTab("properties")->dateTime(
|
||||
# -name=>"reminderStartDate", -label=>WebGUI::International::get(523,"Asset_EventsCalendar"),
|
||||
# -name=>"reminderStartDate", -label=>WebGUI::International::get(523,"Asset_Event"),
|
||||
# -extras=>'onBlur="this.form.reminderEndDate.value=this.form.reminderStartDate.value;this.form.until.value=this.form.reminderStartDate.value;"',
|
||||
# -value=>$self->getValue("reminderStartDate")
|
||||
# );
|
||||
# $tabform->getTab("properties")->dateTime(
|
||||
# -name=>"reminderEndDate", -label=>WebGUI::International::get(524,"Asset_EventsCalendar"),
|
||||
# -name=>"reminderEndDate", -label=>WebGUI::International::get(524,"Asset_Event"),
|
||||
# -extras=>'onBlur="this.form.until.value=this.form.reminderEndDate.value;"',
|
||||
# -value=>$self->getValue("regEndDate")
|
||||
# );
|
||||
# $tabform->getTab("properties")->interval(
|
||||
# -name=>"reminderRecurs",
|
||||
# -label=>WebGUI::International::get(524.5,"Asset_EventsCalendar"),
|
||||
# -label=>WebGUI::International::get(524.5,"Asset_Event"),
|
||||
# -value=>$self->getValue("reminderRecurs")
|
||||
# );
|
||||
# Not quite implemented yet...
|
||||
# $tabform->getTab("properties")->yesNo(
|
||||
# -name=>"chargeForEvent", -label=>WebGUI::International::get(525,"Asset_EventsCalendar"),
|
||||
# -name=>"chargeForEvent", -label=>WebGUI::International::get(525,"Asset_Event"),
|
||||
# -value=>$self->getValue("chargeForEvent")
|
||||
# );
|
||||
# $tabform->getTab("properties")->float(
|
||||
# -name=>"firstAttendeeFee", -label=>WebGUI::International::get(526,"Asset_EventsCalendar"),
|
||||
# -name=>"firstAttendeeFee", -label=>WebGUI::International::get(526,"Asset_Event"),
|
||||
# -value=>$self->getValue("firstAttendeeFee")
|
||||
# );
|
||||
# $tabform->getTab("properties")->float(
|
||||
# -name=>"secondAttendeeFee", -label=>WebGUI::International::get(527,"Asset_EventsCalendar"),
|
||||
# -name=>"secondAttendeeFee", -label=>WebGUI::International::get(527,"Asset_Event"),
|
||||
# -value=>$self->getValue("secondAttendeeFee")
|
||||
# );
|
||||
# $tabform->getTab("properties")->integer(
|
||||
# -name=>"availableSeats", -label=>WebGUI::International::get(528,"Asset_EventsCalendar"),
|
||||
# -name=>"availableSeats", -label=>WebGUI::International::get(528,"Asset_Event"),
|
||||
# -value=>$self->getValue("availableSeats")
|
||||
# );
|
||||
if (($session{form}{func} eq "addStyledEvent") || ($session{form}{func} eq "addEvent")) {
|
||||
my %recursEvery;
|
||||
tie %recursEvery, 'Tie::IxHash';
|
||||
%recursEvery = (
|
||||
'never'=>WebGUI::International::get(4,"Asset_EventsCalendar"),
|
||||
'day'=>WebGUI::International::get(700,"Asset_EventsCalendar"),
|
||||
'week'=>WebGUI::International::get(701,"Asset_EventsCalendar"),
|
||||
'month'=>WebGUI::International::get(702,"Asset_EventsCalendar"),
|
||||
'year'=>WebGUI::International::get(703,"Asset_EventsCalendar"),
|
||||
'never'=>WebGUI::International::get(4,"Asset_Event"),
|
||||
'day'=>WebGUI::International::get(700,"Asset_Event"),
|
||||
'week'=>WebGUI::International::get(701,"Asset_Event"),
|
||||
'month'=>WebGUI::International::get(702,"Asset_Event"),
|
||||
'year'=>WebGUI::International::get(703,"Asset_Event"),
|
||||
);
|
||||
$tabform->getTab("properties")->readOnly(
|
||||
-label=>WebGUI::International::get(8,"Asset_EventsCalendar"),
|
||||
-label=>WebGUI::International::get(8,"Asset_Event"),
|
||||
-value=>WebGUI::Form::integer({
|
||||
name=>"interval",
|
||||
defaultValue=>1
|
||||
|
|
@ -263,7 +263,7 @@ sub getEditForm {
|
|||
name=>"recursEvery",
|
||||
options=>\%recursEvery
|
||||
})
|
||||
.' '.WebGUI::International::get(9,"Asset_EventsCalendar").' '
|
||||
.' '.WebGUI::International::get(9,"Asset_Event").' '
|
||||
.WebGUI::Form::date({
|
||||
name=>"until"
|
||||
})
|
||||
|
|
@ -273,40 +273,40 @@ sub getEditForm {
|
|||
# -name=>"confirmationTemplateId",
|
||||
# -value=>$self->getValue("confirmationTemplateId"),
|
||||
# -namespace=>"EventsCalendar/Event",
|
||||
# -label=>WebGUI::International::get(529,"Asset_EventsCalendar"),
|
||||
# -label=>WebGUI::International::get(529,"Asset_Event"),
|
||||
# -afterEdit=>'func=edit'
|
||||
# );
|
||||
$tabform->getTab("display")->template(
|
||||
-name=>"templateId",
|
||||
-value=>$self->getValue("templateId"),
|
||||
-namespace=>"EventsCalendar/Event",
|
||||
-label=>WebGUI::International::get(530,"Asset_EventsCalendar"),
|
||||
-label=>WebGUI::International::get(530,"Asset_Event"),
|
||||
-afterEdit=>'func=edit&wid='.$self->get("wobjectId")
|
||||
);
|
||||
# $tabform->getTab("display")->template(
|
||||
# -name=>"regNotifyTemplateId",
|
||||
# -value=>$self->getValue("regNotifyTemplateId"),
|
||||
# -namespace=>"EventsCalendar/Event",
|
||||
# -label=>WebGUI::International::get(531,"Asset_EventsCalendar"),
|
||||
# -label=>WebGUI::International::get(531,"Asset_Event"),
|
||||
# -afterEdit=>'func=edit&wid='.$self->get("wobjectId")
|
||||
# );
|
||||
# $tabform->getTab("display")->template(
|
||||
# -name=>"reminderTemplateId",
|
||||
# -value=>$self->getValue("reminderTemplateId"),
|
||||
# -namespace=>"EventsCalendar/Event",
|
||||
# -label=>WebGUI::International::get(532,"Asset_EventsCalendar"),
|
||||
# -label=>WebGUI::International::get(532,"Asset_Event"),
|
||||
# -afterEdit=>'func=edit&wid='.$self->get("wobjectId")
|
||||
# );
|
||||
# $tabform->getTab("security")->group(
|
||||
# -name=>"groupCanRegister", -label=>WebGUI::International::get(533,"Asset_EventsCalendar"),
|
||||
# -name=>"groupCanRegister", -label=>WebGUI::International::get(533,"Asset_Event"),
|
||||
# -value=>[$self->getValue("groupCanRegister")]
|
||||
# );
|
||||
# $tabform->getTab("security")->group(
|
||||
# -name=>"groupCanReminder", -label=>WebGUI::International::get(534,"Asset_EventsCalendar"),
|
||||
# -name=>"groupCanReminder", -label=>WebGUI::International::get(534,"Asset_Event"),
|
||||
# -value=>[$self->getValue("groupCanReminder")]
|
||||
# );
|
||||
# $tabform->getTab("security")->group(
|
||||
# -name=>"groupNotify", -label=>WebGUI::International::get(535,"Asset_EventsCalendar"),
|
||||
# -name=>"groupNotify", -label=>WebGUI::International::get(535,"Asset_Event"),
|
||||
# -value=>[$self->getValue("regNotifyGroupId")]
|
||||
# );
|
||||
return $tabform;
|
||||
|
|
@ -325,7 +325,7 @@ sub getIcon {
|
|||
|
||||
#-------------------------------------------------------------------
|
||||
sub getName {
|
||||
return WebGUI::International::get(511,"Asset_EventsCalendar");
|
||||
return WebGUI::International::get(511,"Asset_Event");
|
||||
}
|
||||
|
||||
|
||||
|
|
@ -378,28 +378,28 @@ sub view {
|
|||
my ($output, $event, %var, $id);
|
||||
$event = $self;
|
||||
$var{title} = $event->getValue("title");
|
||||
$var{"start.label"} = WebGUI::International::get(14,"Asset_EventsCalendar");
|
||||
$var{"start.label"} = WebGUI::International::get(14,"Asset_Event");
|
||||
$var{"start.date"} = epochToHuman($self->getValue("eventStartDate"),"%z");
|
||||
$var{"start.time"} = epochToHuman($self->getValue("eventStartDate"),"%Z");
|
||||
$var{"end.label"} = WebGUI::International::get(15,"Asset_EventsCalendar");
|
||||
$var{"end.label"} = WebGUI::International::get(15,"Asset_Event");
|
||||
$var{"end.date"} = epochToHuman($self->getValue("eventEndDate"),"%z");
|
||||
$var{"end.time"} = epochToHuman($self->getValue("eventEndDate"),"%Z");
|
||||
$var{canEdit} = $self->canEdit;
|
||||
$var{"edit.url"} = WebGUI::URL::page('func=edit');
|
||||
$var{"edit.label"} = WebGUI::International::get(575,"Asset_EventsCalendar");
|
||||
$var{"edit.label"} = WebGUI::International::get(575,"Asset_Event");
|
||||
$var{"delete.url"} = WebGUI::URL::page('func=deleteEvent&rid='.$self->getValue("EventsCalendar_recurringId"));
|
||||
$var{"delete.label"} = WebGUI::International::get(576,"Asset_EventsCalendar");
|
||||
$var{"delete.label"} = WebGUI::International::get(576,"Asset_Event");
|
||||
# my $query = "select EventsCalendar_eventId from EventsCalendar_event where EventsCalendar_eventId<>".quote($event->getValue("EventsCalendar_eventId});
|
||||
# $query .= " and wobjectId=".quote($self->get("wobjectId")) unless ($self->get("isMaster"));
|
||||
# $query .= " and startDate<=$event->getValue("startDate} order by startDate desc, endDate desc";
|
||||
# ($id) = WebGUI::SQL->quickArray($query,WebGUI::SQL->getSlave);
|
||||
# $var{"previous.label"} = '«'.WebGUI::International::get(92,"Asset_EventsCalendar");
|
||||
# $var{"previous.label"} = '«'.WebGUI::International::get(92,"Asset_Event");
|
||||
# $var{"previous.url"} = WebGUI::URL::page("func=viewEvent&wid=".$self->get("wobjectId")."&eid=".$id) if ($id);
|
||||
# $query = "select EventsCalendar_eventId from EventsCalendar_event where EventsCalendar_eventId<>".quote($event->getValue("EventsCalendar_eventId});
|
||||
# $query .= " and wobjectId=".quote($self->get("wobjectId")) unless ($self->get("isMaster"));
|
||||
# $query .= " and startDate>=$event->getValue("eventStartDate") order by startDate, endDate";
|
||||
# ($id) = WebGUI::SQL->quickArray($query,WebGUI::SQL->getSlave);
|
||||
# $var{"next.label"} = WebGUI::International::get(93,"Asset_EventsCalendar").'»';
|
||||
# $var{"next.label"} = WebGUI::International::get(93,"Asset_Event").'»';
|
||||
# $var{"next.url"} = WebGUI::URL::page("func=viewEvent&wid=".$self->get("wobjectId")."&eid=".$id) if ($id);
|
||||
$var{description} = $event->getValue("description");
|
||||
# my $where = "eventscalendar.type=2";
|
||||
|
|
@ -424,12 +424,12 @@ sub www_deleteEvent {
|
|||
my $self = shift;
|
||||
return WebGUI::Privilege::insufficient() unless ($self->canEdit);
|
||||
my ($output);
|
||||
$output = '<h1>'.WebGUI::International::get(42,"Asset_EventsCalendar").'</h1>';
|
||||
$output .= WebGUI::International::get(75,"Asset_EventsCalendar").'<p><blockquote>';
|
||||
$output .= '<a href="'.WebGUI::URL::page('func=deleteEventConfirm').'">'.WebGUI::International::get(76,"Asset_EventsCalendar").'</a><p>';
|
||||
$output = '<h1>'.WebGUI::International::get(42,"Asset_Event").'</h1>';
|
||||
$output .= WebGUI::International::get(75,"Asset_Event").'<p><blockquote>';
|
||||
$output .= '<a href="'.WebGUI::URL::page('func=deleteEventConfirm').'">'.WebGUI::International::get(76,"Asset_Event").'</a><p>';
|
||||
$output .= '<a href="'.WebGUI::URL::page('func=deleteEventConfirm&rid='.$session{form}{rid}).'">'
|
||||
.WebGUI::International::get(77,"Asset_EventsCalendar").'</a><p>' if (($session{form}{rid} ne "") and ($session{form}{rid} ne "0"));
|
||||
$output .= '<a href="'.$self->getUrl.'">'.WebGUI::International::get(78,"Asset_EventsCalendar").'</a>';
|
||||
.WebGUI::International::get(77,"Asset_Event").'</a><p>' if (($session{form}{rid} ne "") and ($session{form}{rid} ne "0"));
|
||||
$output .= '<a href="'.$self->getUrl.'">'.WebGUI::International::get(78,"Asset_Event").'</a>';
|
||||
$output .= '</blockquote>';
|
||||
return return WebGUI::Style::process($output,$self->getParent->getValue("styleTemplateId"));
|
||||
}
|
||||
|
|
@ -458,7 +458,7 @@ sub www_edit {
|
|||
my $self = shift;
|
||||
return WebGUI::Privilege::insufficient() unless $self->canEdit;
|
||||
$self->getAdminConsole->setHelp("event add/edit","EventsCalendar");
|
||||
return $self->getAdminConsole->render($self->getEditForm->print,WebGUI::International::get('13', 'Asset_EventsCalendar'));
|
||||
return $self->getAdminConsole->render($self->getEditForm->print,WebGUI::International::get('13', 'Asset_Event'));
|
||||
}
|
||||
|
||||
|
||||
|
|
|
|||
Loading…
Add table
Add a link
Reference in a new issue