Move Event help and labels into its own file

This commit is contained in:
Colin Kuskie 2005-04-20 03:26:41 +00:00
parent 1370205b78
commit a12e5c9cb3
5 changed files with 512 additions and 1022 deletions

View file

@ -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"} = '&laquo;'.WebGUI::International::get(92,"Asset_EventsCalendar");
# $var{"previous.label"} = '&laquo;'.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").'&raquo;';
# $var{"next.label"} = WebGUI::International::get(93,"Asset_Event").'&raquo;';
# $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'));
}

View file

@ -0,0 +1,30 @@
package WebGUI::Help::Asset_Event;
our $HELP = {
'event add/edit' => {
title => '72',
body => '73',
related => [
{
tag => 'asset fields',
namespace => 'Asset'
},
{
tag => 'event template',
namespace => 'Asset_Event'
},
]
},
'event template' => {
title => '96',
body => '97',
related => [
{
tag => 'template language',
namespace => 'Asset_Template'
},
]
},
};
1;

View file

@ -5,9 +5,13 @@ our $HELP = {
title => '61',
body => '71',
related => [
{
tag => 'asset fields',
namespace => 'Asset'
},
{
tag => 'event add/edit',
namespace => 'Asset_EventsCalendar'
namespace => 'Asset_Event'
},
{
tag => 'events calendar template',
@ -19,20 +23,6 @@ our $HELP = {
}
]
},
'event add/edit' => {
title => '72',
body => '73',
related => [
{
tag => 'event template',
namespace => 'Asset_EventsCalendar'
},
{
tag => 'events calendar add/edit',
namespace => 'Asset_EventsCalendar'
}
]
},
'events calendar template' => {
title => '94',
body => '95',
@ -48,21 +38,11 @@ our $HELP = {
{
tag => 'wobject template',
namespace => 'Wobject'
}
]
},
'event template' => {
title => '96',
body => '97',
related => [
{
tag => 'event add/edit',
namespace => 'Asset_EventsCalendar'
},
{
tag => 'wobject template',
namespace => 'Wobject'
}
tag => 'template language',
namespace => 'Asset_Template'
},
]
},
};

View file

@ -0,0 +1,300 @@
package WebGUI::i18n::English::Asset_Event;
our $I18N = {
'72' => {
message => q|Event, Add/Edit|,
lastUpdated => 1038887363
},
'73' => {
message => q|<b>Title</b><br>
The title for this event.
<p>
<b>Description</b><br>
The activities of this event or information about where the event is to be held.
<p>
<b>Start Date</b><br>
The date and time when the event begins.
<p>
<b>End Date</b><br>
The date and time when the event ends.
<p>
<b>Recurs every</b><br>
How many times and how often the event recurs.
<p>
<b>What next?</b><br>
Select "add new event" if you'd like to add another event, otherwise select "go back to page".
This option is only available when adding an Events Calendar, not editing one.
<p>
|,
lastUpdated => 1099549204
},
'96' => {
message => q|Event Template|,
lastUpdated => 1078568518
},
'97' => {
message => q|The following is the list of template variables available in when displaying an event from the calendar.
<p/>
<b>title</b><br/>
The title of this event.
<p/>
<b>start.label</b><br/>
The translated label for the start date.
<p/>
<b>start.date</b><br/>
The date this event starts.
<p/>
<b>start.time</b><br/>
The time this event starts.
<p/>
<b>end.date</b><br/>
The date this event ends.
<p/>
<b>end.time</b><br/>
The time this event ends.
<p/>
<b>end.label</b><br/>
The translated label for the end date.
<p/>
<b>canEdit</b><br/>
A condition indicating whether the current user can edit an event.
<p/>
<b>edit.url</b><br/>
The URL to edit this event.
<p/>
<b>edit.label</b><br/>
The translated label for the edit URL.
<p/>
<b>delete.url</b><br/>
The URL to delete this event.
<p/>
<b>delete.label</b><br/>
The translated label for the delete URL.
<p/>
<b>previous.url</b><br/>
The URL to view the event before this one.
<p/>
<b>previous.label</b><br/>
The translated label for the previous URL.
<p/>
<b>next.label</b><br/>
The translated label for the next URL.
<p/>
<b>next.url</b><br/>
The URL to view the event after this one.
<p/>
<b>description</b><br/>
The description of this event.
<p/>
|,
lastUpdated => 1099536774
},
'519' => {
'lastUpdated' => 1108397891,
'message' => 'Notify a group when a registration occurs?'
},
'524' => {
'lastUpdated' => 1108397891,
'message' => 'Reminders END'
},
'523' => {
'lastUpdated' => 1108397891,
'message' => 'Reminders Start'
},
'520' => {
'lastUpdated' => 1108397891,
'message' => 'Registration Starts'
},
'521' => {
'lastUpdated' => 1108397891,
'message' => 'Registration Ends'
},
'575' => {
'lastUpdated' => 1031514049,
'message' => 'Edit'
},
'526' => {
'lastUpdated' => 1108397891,
'message' => 'Fee for first attendee'
},
'532' => {
'lastUpdated' => 1108397891,
'message' => 'Recurring Email Reminder Template'
},
'522' => {
'lastUpdated' => 1108397891,
'message' => 'May users subscribe to Event Reminders?'
},
'576' => {
'lastUpdated' => 1031514049,
'message' => 'Delete'
},
'525' => {
'lastUpdated' => 1108397891,
'message' => 'Add event item to Shopping Cart upon Registration?'
},
'533' => {
'lastUpdated' => 1108397891,
'message' => 'Group that may register for this Event'
},
'512' => {
'lastUpdated' => 1108397891,
'message' => 'Description'
},
'524.5' => {
'lastUpdated' => 1108397891,
'message' => 'Reminders Recur Every'
},
'75' => {
'lastUpdated' => 1031514049,
'message' => 'Which do you wish to do?'
},
'517' => {
'lastUpdated' => 1108397891,
'message' => 'May users unregister for this event?'
},
'534' => {
'lastUpdated' => 1108397891,
'message' => 'Group that may subscribe to Event reminders'
},
'531' => {
'lastUpdated' => 1108397891,
'message' => 'Registration Notification Template'
},
'14' => {
'lastUpdated' => 1031514049,
'message' => 'Start Date'
},
'92' => {
'lastUpdated' => 1038202281,
'message' => 'Previous Event'
},
'529' => {
'lastUpdated' => 1108397891,
'message' => 'Registration Confirmation (Accept/Cancel) Template'
},
'516' => {
'lastUpdated' => 1108397891,
'message' => 'May users register for this event?'
},
'703' => {
'lastUpdated' => 1031514049,
'message' => 'Year(s)'
},
'700' => {
'lastUpdated' => 1031514049,
'message' => 'Day(s)'
},
'78' => {
'lastUpdated' => 1031514049,
'message' => 'Don\'t delete anything, I made a mistake.'
},
'511' => {
'lastUpdated' => 1108397891,
'message' => 'Event'
},
'702' => {
'lastUpdated' => 1031514049,
'message' => 'Month(s)'
},
'535' => {
'lastUpdated' => 1108397891,
'message' => 'Group to notify upon Registration'
},
'42' => {
'lastUpdated' => 1031514049,
'message' => 'Please Confirm'
},
'701' => {
'lastUpdated' => 1031514049,
'message' => 'Week(s)'
},
'77' => {
'lastUpdated' => 1031514049,
'message' => 'Delete this event <b>and</b> all of its recurrences.'
},
'93' => {
'lastUpdated' => 1038202290,
'message' => 'Next Event'
},
'514' => {
'lastUpdated' => 1108397891,
'message' => 'Event Ends'
},
'13' => {
'lastUpdated' => 1031514049,
'message' => 'Edit Event'
},
'513' => {
'lastUpdated' => 1108397891,
'message' => 'Event Starts'
},
'515' => {
'lastUpdated' => 1108397891,
'message' => 'Event Location'
},
'518' => {
'lastUpdated' => 1108397891,
'message' => 'Present EULA-type accept/cancel form<br />for user to confirm registration?'
},
'9' => {
'lastUpdated' => 1031514049,
'message' => 'until'
},
'15' => {
'lastUpdated' => 1031514049,
'message' => 'End Date'
},
'8' => {
'lastUpdated' => 1031514049,
'message' => 'This event recurs every'
},
'4' => {
'lastUpdated' => 1031514049,
'message' => 'Happens only once.'
},
'527' => {
'lastUpdated' => 1108397891,
'message' => 'Fee for second attendee'
},
'528' => {
'lastUpdated' => 1108397891,
'message' => 'Number of Seats Available (-1 for unlimited)'
},
'530' => {
'lastUpdated' => 1108397891,
'message' => 'View Event Template'
},
'76' => {
'lastUpdated' => 1031514049,
'message' => 'Delete only this event.'
}
};
1;

File diff suppressed because it is too large Load diff