ERROR PROCESSING TEMPLATE
There was an error in your template file. Below is the template file and also the perl code generated from it to help you with debugging.
(Maybe you didn't strip carriage returns after a network transfer?)
<%
# Color Options
# -------------
$_SHOW_COMMAND_LIST=&getPreference("showcommandlist");
$_FONT=&getPreference("font");
$_HEADER=&getPreference("header");
$_FOOTER=&getPreference("footer");
$_BGCOLOR=&getPreference("bgcolor");
$_LINK=&getPreference("linkcolor");
$_VLINK=&getPreference("vlinkcolor");
$_ALINK=&getPreference("alinkcolor");
$_TEXT_COLOR=&getPreference("textcolor");
$_COLUMN_HEADER_BGCOLOR=&getPreference("columnheaderbgcolor");
$_COLUMN_HEADER_TEXT_COLOR=&getPreference("columnheadertextcolor");
$_HEADER_SIZE=&getPreference("headertextsize");
$_NAVIGATION_BGCOLOR=&getPreference("navigationbgcolor");
$_NAVIGATION_TEXT_COLOR=&getPreference("navigationtextcolor");
$_NAVIGATION_SELECTED_BGCOLOR=&getPreference("navigationselectedbgcolor");
$_NAVIGATION_SELECTED_TEXT_COLOR=&getPreference("navigationselectedtextcolor");
$_COMMAND_BGCOLOR=&getPreference("commandbgcolor");
$_COMMAND_OPTION_BGCOLOR=&getPreference("commandoptionbgcolor");
$_COMMAND_OPTION_TEXT_COLOR=&getPreference("commandoptiontextcolor");
$_COMMAND_OPTION_SELECTED_BGCOLOR=&getPreference("commandoptionselectedbgcolor");
$_COMMAND_OPTION_SELECTED_TEXT_COLOR=&getPreference("commandoptionselectedtextcolor");
$_GRID_CELL_BGCOLOR=&getPreference("gridcellbgcolor");
$_GRID_CELL_SELECTED_BGCOLOR=&getPreference("gridcellselectedbgcolor");
$_GRID_CELL_TEXT_COLOR=&getPreference("gridcelltextcolor");
$_GRID_CELL_TEXT_FONT=&getPreference("gridcelltextfont");
$_GRID_CELL_TEXT_SIZE=&getPreference("gridcelltextsize");
$_GRID_DATE_BGCOLOR=&getPreference("griddatebgcolor");
$_GRID_DATE_TEXT_COLOR=&getPreference("griddatetextcolor");
$_FOOTER_BGCOLOR=&getPreference("footerbgcolor");
$_FOOTER_TEXT_COLOR=&getPreference("footertextcolor");
$_DEFAULT_LIST_GRID=&getPreference("defaultlistgrid");
$_DEFAULT_VIEW=&getPreference("defaultview");
$_SHOW_LOGGED_IN=&getPreference("showloggedin");
$_SHOW_GRID_LIST=&getPreference("showgridlist");
$_SHOW_VIEW=&getPreference("showview");
$_PAGE_TITLE=&getPreference("pagetitle");
$_SHOW_EVENT_TIMES=&getPreference("showeventtimes");
$_SHOW_GRID_EVENT_BULLET=&getPreference("showgrideventbullet");
$_NO_EVENTS_LABEL=&getPreference("noeventslabel");
%>
<%
# Begin the code...
# -----------------
$STYLE = $in{style} || $_DEFAULT_LIST_GRID;
$VIEW = $in{view};
if (!$in{duration} && !$in{range} && !$in{startdate} && !$in{enddate}) {
$VIEW ||= $_DEFAULT_VIEW;
}
if ($VIEW eq "Month") { &getEvents( { 'range'=>'month' , 'month'=>$MONTH } ); }
elsif ($VIEW eq "Week") { &getEvents( { 'range'=>'week' } ); }
elsif ($VIEW eq "Two-Week") { &getEvents( { 'range'=>'twoweek' } ); }
elsif ($VIEW eq "Three-Week") { &getEvents( { 'range'=>'threeweek' } ); }
elsif ($VIEW eq "Four-Week") { &getEvents( { 'range'=>'fourweek' } ); }
elsif ($VIEW eq "Day") {
&getEvents( { 'range'=>'day','startdate'=>$DATESTRING } );
}
elsif ($VIEW eq "Event") {
$EVENT->{'details'} = &getEvent($in{'event_id'});
$db = $main::DBEvents;
$fields = &main::DBGetFieldsInDisplayOrder($db);
}
elsif ($VIEW eq "Search") {
$db = $main::DBEvents;
# Keep form values to populate form fields
foreach (keys %in) {$name = $_; if ($name =~ s/^FIELD_//) { $search_params->{$name} = $in{$_}; } }
}
else {
&getEvents( {'duration'=>$in{duration}, 'range'=>$in{range}, 'startdate'=>$in{startdate}, 'enddate'=>$in{enddate} } );
}
if ($GRID_ROW_COUNT > 0) {
$rowheight = "HEIGHT=\"".int(90/$GRID_ROW_COUNT)."%\"";
}
%>
<HTML>
<HEAD>
<TITLE><%=$_PAGE_TITLE%></TITLE>
<META HTTP-EQUIV="expires" CONTENT="now">
<META HTTP-EQUIV="Pragma" CONTENT="no-cache">
<STYLE>
A { text-decoration:none; }
A:hover { text-decoration:underline; }
.thinborder { border-color:#666666; border-style:solid; border-width:1px; }
.columnheader { color:<%=$_COLUMN_HEADER_TEXT_COLOR%>; }
.navigationtext { color:<%=$_NAVIGATION_TEXT_COLOR%>; }
.navigationselectedtext { color:<%=$_NAVIGATION_SELECTED_TEXT_COLOR%>; }
.commandtext { color:<%=$_COMMAND_OPTION_TEXT_COLOR%>; font-weight:bold; }
.selectedcommandtext { color:<%=$_COMMAND_OPTION_SELECTED_TEXT_COLOR%>; font-weight:bold; }
.gridtext { color:<%=$_GRID_CELL_TEXT_COLOR%>; font-family:<%=$_GRID_CELL_TEXT_FONT%>; }
.griddatetext { color:<%=$_GRID_DATE_TEXT_COLOR%>; background-color:<%=$_GRID_DATE_BGCOLOR%>; font-weight:bold; }
.footertext { color:<%=$_FOOTER_TEXT_COLOR%>; }
.text { color:<%=$_TEXT_COLOR%>; }
.messagetext { color: red; }
.headertext { }
<% if ($_FONT) { %>BODY { font-family:"<%=$_FONT%>" }<% } %>
</STYLE>
</HEAD>
<BODY BGCOLOR="<%=$_BGCOLOR%>" LINK="<%=$_LINK%>" ALINK="<%=$_ALINK%>" VLINK="<%=$_VLINK%>" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="3" WIDTH="100%" HEIGHT="100%">
<% if ($_HEADER) { %><TR><TD COLSPAN="2"><SPAN CLASS="headertext"><%= $_HEADER %></SPAN></TD></TR><% } %>
<TR>
<TD COLSPAN="2">
<% if ($VIEW eq "Month") { %>
<%-- MONTH NAVIGATION --%>
<% my ($monthabbrs) = $Config->get("month_abbreviations"); %>
<TABLE BORDER="0" CLASS="thinborder" CELLPADDING="1" CELLSPACING="1" WIDTH=100%>
<TR>
<TD ALIGN="center" WIDTH="8%" CLASS="thinborder" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><A HREF="<% LAST YEAR LINK %>" CLASS="navigationtext">< <%=$LAST_YEAR%></A></B></TD>
<% foreach $monthnum (0 .. 11) { %>
<%if($MONTH==($monthnum+1)){%>
<TD ALIGN="center" WIDTH="12%" BGCOLOR="<%=$_NAVIGATION_SELECTED_BGCOLOR%>" CLASS="thinborder"><SPAN CLASS="navigationselectedtext"><B><%=$monthabbrs->[$monthnum]%> <%=$YEAR%></B></SPAN></TD>
<%}else{%>
<TD ALIGN="center" WIDTH="6%" CLASS="thinborder" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><A HREF="<%=$CGI_URL_QUERYSTRING%>month=<%=($monthnum+1)%>" CLASS="navigationtext"><%=$monthabbrs->[$monthnum]%></A></B></TD>
<%}%>
<% } %>
<TD ALIGN="center" WIDTH="8%" CLASS="thinborder" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><A HREF="<% NEXT YEAR LINK%>" CLASS="navigationtext"><%=$NEXT_YEAR%> ></A></B></TD>
</TR>
</TABLE>
<%-- /MONTH NAVIGATION --%>
<% } elsif ($VIEW eq "Week" || $VIEW eq "Two-Week" || $VIEW eq "Three-Week" || $VIEW eq "Four-Week") { %>
<%-- WEEKLY NAVIGATION --%>
<TABLE BORDER="0" CLASS="thinborder" CELLPADDING="0" CELLSPACING="0" WIDTH=100%>
<TR>
<TD ALIGN="left" WIDTH="20%" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><A HREF="<% LAST WEEK LINK %>" CLASS="navigationtext">< Previous Week</A></B></TD>
<TD ALIGN="center" WIDTH="60%" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><SPAN CLASS="navigationtext"><FONT <%=$_HEADER_SIZE%> COLOR="<%=$_NAVIGATION_TEXT_COLOR%>"><%=$RANGE_START%> - <%=$RANGE_END%></FONT></SPAN></B></TD>
<TD ALIGN="right" WIDTH="20%" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><A HREF="<% NEXT WEEK LINK %>" CLASS="navigationtext">Next Week ></A></B></TD>
</TR>
</TABLE>
<%-- /WEEKLY NAVIGATION --%>
<% } elsif ($VIEW eq "Day") { %>
<%-- DAY NAVIGATION --%>
<TABLE BORDER="0" CLASS="thinborder" CELLPADDING="0" CELLSPACING="0" WIDTH=100%>
<TR>
<TD ALIGN="left" WIDTH="20%" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><A HREF="<% PREVIOUS DAY LINK %>" CLASS="navigationtext">< Previous Day</A></B></TD>
<TD ALIGN="center" WIDTH="60%" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><SPAN CLASS="navigationtext"><FONT <%=$_HEADER_SIZE%> COLOR="<%=$_NAVIGATION_TEXT_COLOR%>"><%=$DAY->{'dayname'}%> <%=$DAY->{'monthabbreviation'}%> <%=$DATE%>, <%=$YEAR%></FONT></SPAN></B></TD>
<TD ALIGN="right" WIDTH="20%" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><A HREF="<% NEXT DAY LINK %>" CLASS="navigationtext">Next Day ></A></B></TD>
</TR>
</TABLE>
<%-- /DAY NAVIGATION --%>
<% } elsif ($VIEW eq "Event") { %>
<%-- EVENT NAVIGATION --%>
<TABLE BORDER="0" CLASS="thinborder" CELLPADDING="0" CELLSPACING="0" WIDTH=100%>
<TR>
<TD ALIGN="center" WIDTH="20%" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><SPAN CLASS="navigationtext"><FONT <%=$_HEADER_SIZE%> COLOR="<%=$_NAVIGATION_TEXT_COLOR%>"><%= EVENT FIELD(title) %></FONT></SPAN></B></TD>
</TR>
</TABLE>
<%-- /EVENT NAVIGATION --%>
<% } elsif ($VIEW eq "Search") { %>
<%-- SEARCH NAVIGATION --%>
<TABLE BORDER="0" CLASS="thinborder" CELLPADDING="0" CELLSPACING="0" WIDTH=100%>
<TR>
<TD ALIGN="center" WIDTH="20%" BGCOLOR="<%=$_NAVIGATION_BGCOLOR%>"><B><SPAN CLASS="navigationtext"><FONT <%=$_HEADER_SIZE%> COLOR="<%=$_NAVIGATION_TEXT_COLOR%>">Search</FONT></SPAN></B></TD>
</TR>
</TABLE>
<%-- /SEARCH NAVIGATION --%>
<% } %>
</TD>
</TR>
<% if ($_SHOW_LOGGED_IN) { %>
<%IF USER LOGGED IN%>
<TR><TD COLSPAN="2">
<SPAN CLASS="text">Logged in as: <B><%=($User->{name} || $User->{username})%></B></SPAN><BR>
</TD></TR>
<%/IF%>
<% } %>
<TR>
<TD WIDTH="100" align="left" valign="top">
<%-- COMMAND/VIEW OPTIONS --%>
<% if ($_SHOW_GRID_LIST) { %>
<TABLE BORDER="0" CLASS="thinborder" WIDTH="100" BGCOLOR="<%=$COMMAND_BGCOLOR%>">
<TR><TD BGCOLOR="<%=(($STYLE eq "Grid")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR)%>"><a href="<%= $CGI_URL_QUERYSTRING %>style=Grid" CLASS="<%=(($STYLE eq "Grid")?"selectedcommandtext":"commandtext")%>">Grid</A></TD></TR>
<TR><TD BGCOLOR="<%=(($STYLE eq "List")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR)%>"><a href="<%= $CGI_URL_QUERYSTRING %>style=List" CLASS="<%=(($STYLE eq "List")?"selectedcommandtext":"commandtext")%>">List</A></TD></TR>
</TABLE>
<BR>
<% } %>
<% if ($_SHOW_VIEW) { %>
<TABLE BORDER="0" CLASS="thinborder" WIDTH="100" BGCOLOR="<%=$COMMAND_BGCOLOR%>">
<TR><TD BGCOLOR="<%=$_COMMAND_OPTION_BGCOLOR%>"><a href="<%= $CGI_URL_QUERYSTRING %>view=Day&datestring=<%=$TODAY_DATESTRING%>&selected_datestring=<%=$TODAY_DATESTRING%>" CLASS="commandtext">Today</A></TD></TR>
<TR><TD BGCOLOR="<%=(($VIEW eq "Week")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR)%>"><a href="<%= $CGI_URL_QUERYSTRING %>view=Week" CLASS="<%=(($VIEW eq "Week")?"selectedcommandtext":"commandtext")%>">Week</A></TD></TR>
<TR><TD BGCOLOR="<%=(($VIEW eq "Two-Week")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR)%>"><a href="<%= $CGI_URL_QUERYSTRING %>view=Two-Week" CLASS="<%=(($VIEW eq "Two-Week")?"selectedcommandtext":"commandtext")%>">2-Week</A></TD></TR>
<TR><TD BGCOLOR="<%=(($VIEW eq "Three-Week")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR)%>"><a href="<%= $CGI_URL_QUERYSTRING %>view=Three-Week" CLASS="<%=(($VIEW eq "Three-Week")?"selectedcommandtext":"commandtext")%>">3-Week</A></TD></TR>
<TR><TD BGCOLOR="<%=(($VIEW eq "Four-Week")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR)%>"><a href="<%= $CGI_URL_QUERYSTRING %>view=Four-Week" CLASS="<%=(($VIEW eq "Four-Week")?"selectedcommandtext":"commandtext")%>">4-Week</A></TD></TR>
<TR><TD BGCOLOR="<%=(($VIEW eq "Month")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR)%>"><a href="<%= $CGI_URL_QUERYSTRING %>view=Month" CLASS="<%=(($VIEW eq "Month")?"selectedcommandtext":"commandtext")%>">Month</A></TD></TR>
</TABLE>
<BR>
<% } %>
<% if ($_SHOW_COMMAND_LIST) { %>
<TABLE BORDER="0" CLASS="thinborder" WIDTH="100" BGCOLOR="<%=$COMMAND_BGCOLOR%>">
<TR><TD BGCOLOR="<%=(($VIEW eq "Search")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR)%>"><a href="<%= $CGI_URL_QUERYSTRING %>view=Search" CLASS="<%=(($VIEW eq "Search")?"selectedcommandtext":"commandtext")%>">Search</A></TD></TR>
<%if ($User->hasPermission($CALENDAR_KEY,"ADD_EVENT")) { %>
<TR><TD BGCOLOR="<%=$_COMMAND_OPTION_BGCOLOR%>"><a href="<%=$ADMIN_CGI_URL%>?calendar=<%=$CALENDAR_KEY%>&username=<%=$User->{username}%>&template=add_edit_event.html" CLASS="commandtext">Add Event</A></TD></TR>
<%}%>
<%if ($User->hasPermission($CALENDAR_KEY,"EDIT_EVENTS") || $User->hasPermission($CALENDAR_KEY,"EDIT_OWN_EVENTS")) { %>
<TR><TD BGCOLOR="<%=$_COMMAND_OPTION_BGCOLOR%>"><a href="<%=$ADMIN_CGI_URL%>?calendar=<%=$CALENDAR_KEY%>&username=<%=$User->{username}%>&template=edit_delete_events.html&year=<%=$YEAR%>&month=<%=$MONTH%>" CLASS="commandtext">Edit Events</A></TD></TR>
<%}%>
<%IF USER LOGGED IN%>
<%if ($User->isCalendarAdmin($CALENDAR_KEY)) { %>
<TR><TD BGCOLOR="<%=$_COMMAND_OPTION_BGCOLOR%>"><a href="<%=$ADMIN_CGI_URL%>?calendar=<%=$CALENDAR_KEY%>" CLASS="commandtext">Admin</A></TD></TR>
<%}%>
<%/IF%>
<%IF USER LOGGED IN%>
<TR><TD BGCOLOR="<%=$_COMMAND_OPTION_BGCOLOR%>"><a href="<%= $CGI_URL_QUERYSTRING %>command=logout" onClick="return confirm('Are you sure you want to logout?')" CLASS="commandtext">Logout</A></TD></TR>
<%ELSE%>
<TR><TD BGCOLOR="<%=$_COMMAND_OPTION_BGCOLOR%>"><a href="<%= $CGI_URL_QUERYSTRING %>template=login.html" CLASS="commandtext">Login</A></TD></TR>
<%/IF%>
</TABLE>
<% } %>
<%-- /COMMAND/VIEW OPTIONS --%>
</TD>
<TD VALIGN="top" ALIGN="left" WIDTH="100%">
<%-- =============================== --%>
<%-- THIS IS THE ACTUAL DISPLAY AREA --%>
<%-- =============================== --%>
<%-- MONTHLY OR WEEKLY VIEW --%>
<% if ($VIEW eq "Month" || $VIEW eq "Week" || $VIEW eq "Two-Week" || $VIEW eq "Three-Week" || $VIEW eq "Four-Week") { %>
<%-- GRID STYLE DISPLAY --%>
<% if ($STYLE eq "Grid") { %>
<TABLE BORDER="1" CLASS="thinborder" HEIGHT="100%" WIDTH="100%" CELLPADDING="2" CELLSPACING="1">
<TR>
<%FOREACH GRID COLUMN%>
<TH CLASS="thinborder" BGCOLOR="<%=$_COLUMN_HEADER_BGCOLOR%>"><SPAN CLASS="columnheader"><%= $Grid->{'daynames'}->[$COL] %></SPAN></TH>
<%/FOREACH%>
</TR>
<%FOREACH GRID ROW%>
<TR <%=$rowheight%>>
<%FOREACH GRID COLUMN%>
<% $i=0; %>
<TD CLASS="thinborder" VALIGN="TOP" WIDTH="14%" <%=$rowheight%> BGCOLOR="<%IF SELECTED%><%=$_GRID_CELL_SELECTED_BGCOLOR%><%ELSE%><%=$_GRID_CELL_BGCOLOR%><%/IF%>">
<%IF DISPLAY%>
<SPAN BGCOLOR="<%=$_GRID_DATE_BGCOLOR%>" CLASS="griddatetext"> <NOBR><A HREF="<%=$CGI_URL_QUERYSTRING%>selected_datestring=<%=$DAY->{'datestring'}%>&datestring=<%=$DAY->{'datestring'}%>&view=Day" CLASS="griddatetext"><%if($DAY->{'dd'}==1&&$VIEW ne "Month"){%><%=$DAY->{'monthname'}%> <%}%><%=$DAY->{'dd'}%></A> </NOBR></SPAN>
<%FOREACH EVENT%>
<%$i++;%>
<SPAN CLASS="gridtext">
<FONT SIZE="<%=$_GRID_CELL_TEXT_SIZE%>">
<% if ($_SHOW_GRID_EVENT_BULLET) {%>•<%}%>
<% if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") { %>
<% if ($EVENT->{'schedule'}->{'start_time'}) { %><%= SCHEDULE FIELD(start_time) %><% } %>
<% } %>
<% if ($_SHOW_EVENT_TIMES eq "ALL") { %>
<% if ($EVENT->{'schedule'}->{'end_time'}) { %>-<%= SCHEDULE FIELD(end_time) %><% } %>
<% } %>
<% if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { %> : <% } %>
<A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>" CLASS="gridtext"><%= EVENT FIELD(title) %></A><BR>
</FONT>
</SPAN>
<%/FOREACH%>
<% if ($i==0) { %><BR> <BR> <% } %>
<%/IF%>
</TD>
<%/FOREACH%>
</TR>
<%/FOREACH%>
</TABLE>
<%-- END GRID STYLE DISPLAY --%>
<% } elsif ($STYLE eq "List") { %>
<%-- LIST STYLE DISPLAY --%>
<CENTER><TABLE BORDER="0" WIDTH="90%"><TR><TD ALIGN="left">
<SPAN CLASS="text">
<DL>
<%$total_events=0;%>
<%FOREACH EVENTLIST%>
<%IF EVENTS EXIST%>
<%$total_events++;%>
<DT><B><A HREF="<%=$CGI_URL_QUERYSTRING%>selected_datestring=<%=$DAY->{'datestring'}%>&datestring=<%=$DAY->{'datestring'}%>&view=Day" CLASS="text"><%=$DAY->{dayname}%>, <%=$DAY->{monthname}%> <%=$DAY->{dd}%></A></B>
<DD>
<%FOREACH EVENT%>
<% if ($_SHOW_GRID_EVENT_BULLET) {%>•<%}%>
<% if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") { %>
<% if ($EVENT->{'schedule'}->{'start_time'}) { %><%= SCHEDULE FIELD(start_time) %><% } %>
<% } %>
<% if ($_SHOW_EVENT_TIMES eq "ALL") { %>
<% if ($EVENT->{'schedule'}->{'end_time'}) { %>-<%= SCHEDULE FIELD(end_time) %><% } %>
<% } %>
<% if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { %> : <% } %>
<A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>" STYLE="text-decoration:underline;" CLASS="text"><%= EVENT FIELD(title) %></A><BR>
<%/FOREACH%>
<%/IF%>
<%/FOREACH%>
</DL>
<%unless($total_events){%>
<I><%= $_NO_EVENTS_LABEL %></I>
<% } %>
</SPAN>
</TD></TR></TABLE></CENTER>
<% } %>
<%-- END LIST STYLE DISPLAY --%>
<%-- DAY VIEW --%>
<% } elsif ($VIEW eq "Day") { %>
<% if ($STYLE eq "Grid") { %>
<%-- GRID VIEW --%>
<TABLE BORDER="1" CLASS="thinborder" WIDTH=100%>
<%FOREACH HOUR OF DAY%>
<TR>
<TD CLASS="thinborder" BGCOLOR="<%=$_GRID_CELL_BGCOLOR%>" ALIGN="right" VALIGN="middle" WIDTH="125">
<SPAN CLASS="text">
<% if ($HOUR == 99) { %>
All Day Events
<%ELSE%>
<%=Date::formatTime(&Date::LZ($HOUR)."00",$Config->{'time_format'})%>
<%/IF%>
</SPAN>
</TD>
<TD CLASS="thinborder" BGCOLOR="<%=$_GRID_CELL_BGCOLOR%>" VALIGN=TOP>
<SPAN CLASS="text">
<%FOREACH EVENT%>
<% if ($_SHOW_GRID_EVENT_BULLET) {%>•<%}%>
<% if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") { %>
<% if ($EVENT->{'schedule'}->{'start_time'}) { %><%= SCHEDULE FIELD(start_time) %><% } %>
<% } %>
<% if ($_SHOW_EVENT_TIMES eq "ALL") { %>
<% if ($EVENT->{'schedule'}->{'end_time'}) { %>-<%= SCHEDULE FIELD(end_time) %><% } %>
<% } %>
<% if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { %> : <% } %>
<%= EVENT FIELD(title) %>
<FONT SIZE="-2">[<A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>" STYLE="text-decoration:underline;">details</A>]</FONT>
<BR>
<%/FOREACH%>
<%IF NO EVENTS EXIST%> <%/IF%>
</SPAN>
</TD>
</TR>
<%/FOREACH%>
</TABLE>
<% } else { %>
<%-- LIST VIEW --%>
<CENTER><TABLE BORDER="0" WIDTH=90%><TR><TD>
<SPAN CLASS="text">
<%IF EVENTS EXIST%>
<DL>
<%FOREACH EVENT%>
<DT>
<% if ($_SHOW_GRID_EVENT_BULLET) {%>•<%}%>
<% if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") { %>
<% if ($EVENT->{'schedule'}->{'start_time'}) { %><%= SCHEDULE FIELD(start_time) %><% } %>
<% } %>
<% if ($_SHOW_EVENT_TIMES eq "ALL") { %>
<% if ($EVENT->{'schedule'}->{'end_time'}) { %>-<%= SCHEDULE FIELD(end_time) %><% } %>
<% } %>
<% if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { %> : <% } %>
<%= EVENT FIELD(title) %>
<FONT SIZE="-2">[<A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>" STYLE="text-decoration:underline;">details</A>]<BR></FONT>
<DD>
<%= EVENT FIELD(description) %>
<%/FOREACH%>
</DL>
<%ELSE%>
<BR><I><%= $_NO_EVENTS_LABEL %></I><BR>
<%/IF%>
</SPAN>
</TD></TR></TABLE></CENTER>
<% } %>
<%-- EVENT VIEW --%>
<% } elsif ($VIEW eq "Event") { %>
<TABLE BORDER="0" CELLPADDING="2" CELLSPACING="0">
<%
foreach (@$fields) {
next unless ($db->{'properties'}->{$_}->{'display_details'});
%>
<TR><TD ALIGN="right" VALIGN="top"><SPAN CLASS="text"><B><%=$db->{'properties'}->{$_}->{'name'}%>: </B></SPAN></TD><TD ALIGN="left" VALIGN="top"><SPAN CLASS="text"><%=$EVENT->{details}->{$_}%></SPAN></TD></TR>
<% } %>
</TABLE>
<%-- SEARCH VIEW --%>
<% } elsif ($VIEW eq "Search") { %>
<FORM NAME="mainform" ACTION="<%= $CGI_URL %>" METHOD="POST">
<INPUT TYPE="hidden" NAME="QUERY_STRING" VALUE="<%=$QUERY_STRING%>">
<INPUT TYPE="hidden" NAME="fromTemplate" VALUE="<%=$thisTemplate%>">
<INPUT TYPE="hidden" NAME="command" VALUE="search">
<INPUT TYPE="hidden" NAME="view" VALUE="Search">
<TABLE BORDER="0">
<% if ($userMessage ne "") { %>
<TR>
<TD></TD>
<TD ALIGN="left" VALIGN="top">
<SPAN CLASS="messagetext">
<%= $userMessage %>
</SPAN>
</TD>
</TR>
<% } %>
<%
$fieldnames = &main::DBGetSearchFields($db);
foreach $field (@$fieldnames) {
%>
<TR>
<TD ALIGN="RIGHT"><SPAN CLASS="text"><B><%= $db->{'properties'}->{$field}->{'name'} || $field %> : </B></SPAN></TD>
<TD><%= &main::GetSearchFieldInput($db->{'properties'}->{$field},$field,$search_params) %></TD>
</TR>
<% } %>
<TR>
<TD ALIGN="RIGHT"><SPAN CLASS="text"><B>Between : </B></SPAN></TD>
<TD>
<SELECT NAME="start_month"><%= &HTML::monthNameOptions($in{start_month} || $TODAY_MONTH) %></SELECT>
<SELECT NAME="start_date"><%= &HTML::dateOptions($in{start_date} || $TODAY_DATE) %></SELECT>
<SELECT NAME="start_year"><%= &HTML::yearOptions($in{start_year} || $TODAY_YEAR) %></SELECT>
<SPAN CLASS="text">and </SPAN>
<SELECT NAME="end_month"><%= &HTML::monthNameOptions($in{end_month} || $TODAY_MONTH) %></SELECT>
<SELECT NAME="end_date"><%= &HTML::dateOptions($in{end_date} || $TODAY_DATE) %></SELECT>
<SELECT NAME="end_year"><%= &HTML::yearOptions($in{end_year} || ($TODAY_YEAR+1)) %></SELECT>
</TD>
</TR>
<TR>
<TD ALIGN="CENTER" COLSPAN="2">
<INPUT CLASS="button" TYPE="submit" VALUE="Search">
</TD>
</TR>
<% IF SEARCH RESULT %>
<TR>
<TD COLSPAN="2" ALIGN="center">
<SPAN CLASS="text">
<u><B>Search Results</B></u><BR>
<% IF SEARCH RESULTS EXIST %>
No Matches
<% ELSE %>
<TABLE BORDER="1" CELLPADDING="1" CELLSPACING="0">
<TR>
<TH><SPAN CLASS="text">First Occurrence</SPAN></TH>
<TH><SPAN CLASS="text">Title</SPAN></TH>
<TH><SPAN CLASS="text">Description</SPAN></TH>
</TR>
<% FOREACH SEARCH RESULT %>
<TR>
<TD>
<SPAN CLASS="text">
<% IF NEXT OCCURRENCE EXISTS %>
<%=$MONTH_NAMES->[$EVENT->{schedule}->{nextoccurrence}->{month}-1]%> <%=$EVENT->{schedule}->{nextoccurrence}->{date}%>, <%=$EVENT->{schedule}->{nextoccurrence}->{year}%>
<% ELSE %>
None
<% /IF %>
</SPAN>
</TD>
<TD><A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>" STYLE="text-decoration:underline;" CLASS="text"><%= EVENT FIELD(title) %></A></TD>
<TD><SPAN CLASS="text"><%= EVENT FIELD(description) %></SPAN></TD>
</TR>
<% /FOREACH %>
</TABLE>
<% /IF %>
</SPAN>
</TD>
</TR>
<% /IF %>
</TABLE>
</FORM>
<% } %>
<%-- END OF VIEWS --%>
<%-- ================================ --%>
<%-- /THIS IS THE ACTUAL DISPLAY AREA --%>
<%-- ================================ --%>
</TD>
</TR>
<TR>
<TD ALIGN="center" COLSPAN="2" BGCOLOR="<%=$_FOOTER_BGCOLOR%>">
<FONT SIZE="-2">
<SPAN CLASS="footertext">
<A HREF="http://www.CalendarScript.com/" CLASS="footertext" STYLE="text-decoration:underline;">Calendar</A> Powered by <A HREF="http://www.CalendarScript.com/" CLASS="footertext" STYLE="text-decoration:underline;">CalendarScript</A>
</SPAN>
</FONT>
</TD>
</TR>
<% if ($_FOOTER) { %><TR><TD COLSPAN="2"><%= $_FOOTER %></TD></TR><% } %>
</TABLE>
</BODY>
</HTML>
package Template;
print "";# Color Options
# -------------
$_SHOW_COMMAND_LIST=&getPreference("showcommandlist");
$_FONT=&getPreference("font");
$_HEADER=&getPreference("header");
$_FOOTER=&getPreference("footer");
$_BGCOLOR=&getPreference("bgcolor");
$_LINK=&getPreference("linkcolor");
$_VLINK=&getPreference("vlinkcolor");
$_ALINK=&getPreference("alinkcolor");
$_TEXT_COLOR=&getPreference("textcolor");
$_COLUMN_HEADER_BGCOLOR=&getPreference("columnheaderbgcolor");
$_COLUMN_HEADER_TEXT_COLOR=&getPreference("columnheadertextcolor");
$_HEADER_SIZE=&getPreference("headertextsize");
$_NAVIGATION_BGCOLOR=&getPreference("navigationbgcolor");
$_NAVIGATION_TEXT_COLOR=&getPreference("navigationtextcolor");
$_NAVIGATION_SELECTED_BGCOLOR=&getPreference("navigationselectedbgcolor");
$_NAVIGATION_SELECTED_TEXT_COLOR=&getPreference("navigationselectedtextcolor");
$_COMMAND_BGCOLOR=&getPreference("commandbgcolor");
$_COMMAND_OPTION_BGCOLOR=&getPreference("commandoptionbgcolor");
$_COMMAND_OPTION_TEXT_COLOR=&getPreference("commandoptiontextcolor");
$_COMMAND_OPTION_SELECTED_BGCOLOR=&getPreference("commandoptionselectedbgcolor");
$_COMMAND_OPTION_SELECTED_TEXT_COLOR=&getPreference("commandoptionselectedtextcolor");
$_GRID_CELL_BGCOLOR=&getPreference("gridcellbgcolor");
$_GRID_CELL_SELECTED_BGCOLOR=&getPreference("gridcellselectedbgcolor");
$_GRID_CELL_TEXT_COLOR=&getPreference("gridcelltextcolor");
$_GRID_CELL_TEXT_FONT=&getPreference("gridcelltextfont");
$_GRID_CELL_TEXT_SIZE=&getPreference("gridcelltextsize");
$_GRID_DATE_BGCOLOR=&getPreference("griddatebgcolor");
$_GRID_DATE_TEXT_COLOR=&getPreference("griddatetextcolor");
$_FOOTER_BGCOLOR=&getPreference("footerbgcolor");
$_FOOTER_TEXT_COLOR=&getPreference("footertextcolor");
$_DEFAULT_LIST_GRID=&getPreference("defaultlistgrid");
$_DEFAULT_VIEW=&getPreference("defaultview");
$_SHOW_LOGGED_IN=&getPreference("showloggedin");
$_SHOW_GRID_LIST=&getPreference("showgridlist");
$_SHOW_VIEW=&getPreference("showview");
$_PAGE_TITLE=&getPreference("pagetitle");
$_SHOW_EVENT_TIMES=&getPreference("showeventtimes");
$_SHOW_GRID_EVENT_BULLET=&getPreference("showgrideventbullet");
$_NO_EVENTS_LABEL=&getPreference("noeventslabel");
print "\n\n";# Begin the code...
# -----------------
$STYLE = $in{style} || $_DEFAULT_LIST_GRID;
$VIEW = $in{view};
if (!$in{duration} && !$in{range} && !$in{startdate} && !$in{enddate}) {
$VIEW ||= $_DEFAULT_VIEW;
}
if ($VIEW eq "Month") { &getEvents( { 'range'=>'month' , 'month'=>$MONTH } ); }
elsif ($VIEW eq "Week") { &getEvents( { 'range'=>'week' } ); }
elsif ($VIEW eq "Two-Week") { &getEvents( { 'range'=>'twoweek' } ); }
elsif ($VIEW eq "Three-Week") { &getEvents( { 'range'=>'threeweek' } ); }
elsif ($VIEW eq "Four-Week") { &getEvents( { 'range'=>'fourweek' } ); }
elsif ($VIEW eq "Day") {
&getEvents( { 'range'=>'day','startdate'=>$DATESTRING } );
}
elsif ($VIEW eq "Event") {
$EVENT->{'details'} = &getEvent($in{'event_id'});
$db = $main::DBEvents;
$fields = &main::DBGetFieldsInDisplayOrder($db);
}
elsif ($VIEW eq "Search") {
$db = $main::DBEvents;
# Keep form values to populate form fields
foreach (keys %in) {$name = $_; if ($name =~ s/^FIELD_//) { $search_params->{$name} = $in{$_}; } }
}
else {
&getEvents( {'duration'=>$in{duration}, 'range'=>$in{range}, 'startdate'=>$in{startdate}, 'enddate'=>$in{enddate} } );
}
if ($GRID_ROW_COUNT > 0) {
$rowheight = "HEIGHT=\"".int(90/$GRID_ROW_COUNT)."%\"";
}
print "\n<HTML>\n<HEAD>\n <TITLE>";print $_PAGE_TITLE;print "</TITLE>\n<META HTTP-EQUIV=\"expires\" CONTENT=\"now\">\n<META HTTP-EQUIV=\"Pragma\" CONTENT=\"no-cache\">\n<STYLE>
\nA { text-decoration:none; }
\nA:hover { text-decoration:underline; }
\n.thinborder { border-color:#666666; border-style:solid; border-width:1px; }
\n.columnheader { color:";print $_COLUMN_HEADER_TEXT_COLOR;print "; }
\n.navigationtext { color:";print $_NAVIGATION_TEXT_COLOR;print "; }
\n.navigationselectedtext { color:";print $_NAVIGATION_SELECTED_TEXT_COLOR;print "; }
\n.commandtext { color:";print $_COMMAND_OPTION_TEXT_COLOR;print "; font-weight:bold; }
\n.selectedcommandtext { color:";print $_COMMAND_OPTION_SELECTED_TEXT_COLOR;print "; font-weight:bold; }
\n.gridtext { color:";print $_GRID_CELL_TEXT_COLOR;print "; font-family:";print $_GRID_CELL_TEXT_FONT;print "; }
\n.griddatetext { color:";print $_GRID_DATE_TEXT_COLOR;print "; background-color:";print $_GRID_DATE_BGCOLOR;print "; font-weight:bold; }
\n.footertext { color:";print $_FOOTER_TEXT_COLOR;print "; }
\n.text { color:";print $_TEXT_COLOR;print "; }
\n
\n.messagetext { color: red; }
\n.headertext { }
\n
\n
\n";
if ($_FONT) {print "BODY { font-family:\"";print $_FONT;print "\" }";}
print "
\n</STYLE>
\n\n</HEAD>\n<BODY BGCOLOR=\"";print $_BGCOLOR;print "\" LINK=\"";print $_LINK;print "\" ALINK=\"";print $_ALINK;print "\" VLINK=\"";print $_VLINK;print "\" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0>\n<TABLE BORDER=\"0\" CELLPADDING=\"0\" CELLSPACING=\"3\" WIDTH=\"100%\" HEIGHT=\"100%\">\n ";
if ($_HEADER) {print "<TR><TD COLSPAN=\"2\"><SPAN CLASS=\"headertext\">";print $_HEADER;print "</SPAN></TD></TR>";}
print "\n <TR>\n <TD COLSPAN=\"2\">\n ";
if ($VIEW eq "Month") {
print "\n \n ";my ($monthabbrs) = $Config->get("month_abbreviations");
print "\n <TABLE BORDER=\"0\" CLASS=\"thinborder\" CELLPADDING=\"1\" CELLSPACING=\"1\" WIDTH=100%>\n <TR>\n <TD ALIGN=\"center\" WIDTH=\"8%\" CLASS=\"thinborder\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."year=".$LAST_YEAR;print "\" CLASS=\"navigationtext\">< ";print $LAST_YEAR;print "</A></B></TD>\n ";
foreach $monthnum (0 .. 11) {
print "\n ";if($MONTH==($monthnum+1)){
print "\n <TD ALIGN=\"center\" WIDTH=\"12%\" BGCOLOR=\"";print $_NAVIGATION_SELECTED_BGCOLOR;print "\" CLASS=\"thinborder\"><SPAN CLASS=\"navigationselectedtext\"><B>";print $monthabbrs->[$monthnum]; print " ";print $YEAR;print "</B></SPAN></TD>\n ";
}else{
print "\n <TD ALIGN=\"center\" WIDTH=\"6%\" CLASS=\"thinborder\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING;print "month=";print ($monthnum+1);print "\" CLASS=\"navigationtext\">";print $monthabbrs->[$monthnum];print "</A></B></TD>\n ";
}
print "\n ";}
print "\n <TD ALIGN=\"center\" WIDTH=\"8%\" CLASS=\"thinborder\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."year=".$NEXT_YEAR;print "\" CLASS=\"navigationtext\">";print $NEXT_YEAR;print " ></A></B></TD>\n </TR>\n </TABLE>\n \n ";
} elsif ($VIEW eq "Week" || $VIEW eq "Two-Week" || $VIEW eq "Three-Week" || $VIEW eq "Four-Week") {
print "\n \n <TABLE BORDER=\"0\" CLASS=\"thinborder\" CELLPADDING=\"0\" CELLSPACING=\"0\" WIDTH=100%>\n <TR>\n <TD ALIGN=\"left\" WIDTH=\"20%\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."year=".$LAST_WEEK_YEAR."&month=".$LAST_WEEK_MONTH."&date=".$LAST_WEEK_DATE;print "\" CLASS=\"navigationtext\">< Previous Week</A></B></TD>\n <TD ALIGN=\"center\" WIDTH=\"60%\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><SPAN CLASS=\"navigationtext\"><FONT "; print $_HEADER_SIZE; print " COLOR=\"";print $_NAVIGATION_TEXT_COLOR;print "\">";print $RANGE_START; print " - "; print $RANGE_END;print "</FONT></SPAN></B></TD>\n <TD ALIGN=\"right\" WIDTH=\"20%\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."year=".$NEXT_WEEK_YEAR."&month=".$NEXT_WEEK_MONTH."&date=".$NEXT_WEEK_DATE;print "\" CLASS=\"navigationtext\">Next Week ></A></B></TD>\n </TR>\n </TABLE>\n \n ";
} elsif ($VIEW eq "Day") {
print "\n \n <TABLE BORDER=\"0\" CLASS=\"thinborder\" CELLPADDING=\"0\" CELLSPACING=\"0\" WIDTH=100%>\n <TR>\n <TD ALIGN=\"left\" WIDTH=\"20%\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."datestring=".$PREVIOUS_DAY_DATESTRING."&selected_datestring=".$PREVIOUS_DAY_DATESTRING;print "\" CLASS=\"navigationtext\">< Previous Day</A></B></TD>\n <TD ALIGN=\"center\" WIDTH=\"60%\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><SPAN CLASS=\"navigationtext\"><FONT "; print $_HEADER_SIZE; print " COLOR=\"";print $_NAVIGATION_TEXT_COLOR;print "\">";print $DAY->{'dayname'}; print " ";print $DAY->{'monthabbreviation'}; print " ";print $DATE;print ", "; print $YEAR;print "</FONT></SPAN></B></TD>\n <TD ALIGN=\"right\" WIDTH=\"20%\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."datestring=".$NEXT_DAY_DATESTRING."&selected_datestring=".$NEXT_DAY_DATESTRING;print "\" CLASS=\"navigationtext\">Next Day ></A></B></TD>\n </TR>\n </TABLE>\n \n ";
} elsif ($VIEW eq "Event") {
print "\n \n <TABLE BORDER=\"0\" CLASS=\"thinborder\" CELLPADDING=\"0\" CELLSPACING=\"0\" WIDTH=100%>\n <TR>\n <TD ALIGN=\"center\" WIDTH=\"20%\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><SPAN CLASS=\"navigationtext\"><FONT "; print $_HEADER_SIZE; print " COLOR=\"";print $_NAVIGATION_TEXT_COLOR;print "\">";print $EVENT->{details}->{title};print "</FONT></SPAN></B></TD>\n </TR>\n </TABLE>\n \n ";
} elsif ($VIEW eq "Search") {
print "\n \n <TABLE BORDER=\"0\" CLASS=\"thinborder\" CELLPADDING=\"0\" CELLSPACING=\"0\" WIDTH=100%>\n <TR>\n <TD ALIGN=\"center\" WIDTH=\"20%\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><SPAN CLASS=\"navigationtext\"><FONT "; print $_HEADER_SIZE; print " COLOR=\"";print $_NAVIGATION_TEXT_COLOR;print "\">Search</FONT></SPAN></B></TD>\n </TR>\n </TABLE>\n \n ";
}
print "\n </TD>\n</TR>\n\n\n";
if ($_SHOW_LOGGED_IN) {
print "\n";if ($User->{username} ne "anonymous") {
print "\n <TR><TD COLSPAN=\"2\">\n <SPAN CLASS=\"text\">Logged in as: <B>";print ($User->{name} || $User->{username});print "</B></SPAN><BR>\n </TD></TR>\n";
}
print "\n";}
print "\n\n<TR>\n <TD WIDTH=\"100\" align=\"left\" valign=\"top\">\n \n ";
if ($_SHOW_GRID_LIST) {
print "\n <TABLE BORDER=\"0\" CLASS=\"thinborder\" WIDTH=\"100\" BGCOLOR=\"";print $COMMAND_BGCOLOR;print "\">\n <TR><TD BGCOLOR=\"";print (($STYLE eq "Grid")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR);print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "style=Grid\" CLASS=\"";print (($STYLE eq "Grid")?"selectedcommandtext":"commandtext");print "\">Grid</A></TD></TR>\n <TR><TD BGCOLOR=\"";print (($STYLE eq "List")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR);print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "style=List\" CLASS=\"";print (($STYLE eq "List")?"selectedcommandtext":"commandtext");print "\">List</A></TD></TR>\n </TABLE>\n <BR>\n ";
}
print "\n ";if ($_SHOW_VIEW) {
print "\n <TABLE BORDER=\"0\" CLASS=\"thinborder\" WIDTH=\"100\" BGCOLOR=\"";print $COMMAND_BGCOLOR;print "\">\n <TR><TD BGCOLOR=\"";print $_COMMAND_OPTION_BGCOLOR;print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "view=Day&datestring=";print $TODAY_DATESTRING;print "&selected_datestring=";print $TODAY_DATESTRING;print "\" CLASS=\"commandtext\">Today</A></TD></TR>\n <TR><TD BGCOLOR=\"";print (($VIEW eq "Week")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR);print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "view=Week\" CLASS=\"";print (($VIEW eq "Week")?"selectedcommandtext":"commandtext");print "\">Week</A></TD></TR>\n <TR><TD BGCOLOR=\"";print (($VIEW eq "Two-Week")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR);print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "view=Two-Week\" CLASS=\"";print (($VIEW eq "Two-Week")?"selectedcommandtext":"commandtext");print "\">2-Week</A></TD></TR>\n <TR><TD BGCOLOR=\"";print (($VIEW eq "Three-Week")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR);print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "view=Three-Week\" CLASS=\"";print (($VIEW eq "Three-Week")?"selectedcommandtext":"commandtext");print "\">3-Week</A></TD></TR>\n <TR><TD BGCOLOR=\"";print (($VIEW eq "Four-Week")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR);print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "view=Four-Week\" CLASS=\"";print (($VIEW eq "Four-Week")?"selectedcommandtext":"commandtext");print "\">4-Week</A></TD></TR>\n <TR><TD BGCOLOR=\"";print (($VIEW eq "Month")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR);print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "view=Month\" CLASS=\"";print (($VIEW eq "Month")?"selectedcommandtext":"commandtext");print "\">Month</A></TD></TR>\n </TABLE>\n <BR>\n ";
}
print "\n ";if ($_SHOW_COMMAND_LIST) {
print "\n <TABLE BORDER=\"0\" CLASS=\"thinborder\" WIDTH=\"100\" BGCOLOR=\"";print $COMMAND_BGCOLOR;print "\">\n <TR><TD BGCOLOR=\"";print (($VIEW eq "Search")?$_COMMAND_OPTION_SELECTED_BGCOLOR:$_COMMAND_OPTION_BGCOLOR);print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "view=Search\" CLASS=\"";print (($VIEW eq "Search")?"selectedcommandtext":"commandtext");print "\">Search</A></TD></TR>\n ";
if ($User->hasPermission($CALENDAR_KEY,"ADD_EVENT")) {
print "\n <TR><TD BGCOLOR=\"";print $_COMMAND_OPTION_BGCOLOR;print "\"><a href=\"";print $ADMIN_CGI_URL;print "?calendar=";print $CALENDAR_KEY;print "&username=";print $User->{username};print "&template=add_edit_event.html\" CLASS=\"commandtext\">Add Event</A></TD></TR>\n ";
}
print "\n ";if ($User->hasPermission($CALENDAR_KEY,"EDIT_EVENTS") || $User->hasPermission($CALENDAR_KEY,"EDIT_OWN_EVENTS")) {
print "\n <TR><TD BGCOLOR=\"";print $_COMMAND_OPTION_BGCOLOR;print "\"><a href=\"";print $ADMIN_CGI_URL;print "?calendar=";print $CALENDAR_KEY;print "&username=";print $User->{username};print "&template=edit_delete_events.html&year=";print $YEAR;print "&month=";print $MONTH;print "\" CLASS=\"commandtext\">Edit Events</A></TD></TR>\n ";
}
print "\n ";if ($User->{username} ne "anonymous") {
print "\n ";if ($User->isCalendarAdmin($CALENDAR_KEY)) {
print "\n <TR><TD BGCOLOR=\"";print $_COMMAND_OPTION_BGCOLOR;print "\"><a href=\"";print $ADMIN_CGI_URL;print "?calendar=";print $CALENDAR_KEY;print "\" CLASS=\"commandtext\">Admin</A></TD></TR>\n ";
}
print "\n ";}
print "\n ";if ($User->{username} ne "anonymous") {
print "\n <TR><TD BGCOLOR=\"";print $_COMMAND_OPTION_BGCOLOR;print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "command=logout\" onClick=\"return confirm('Are you sure you want to logout?')\" CLASS=\"commandtext\">Logout</A></TD></TR>\n ";
}else{
print "\n <TR><TD BGCOLOR=\"";print $_COMMAND_OPTION_BGCOLOR;print "\"><a href=\"";print $CGI_URL_QUERYSTRING;print "template=login.html\" CLASS=\"commandtext\">Login</A></TD></TR>\n ";
}
print "\n </TABLE>\n ";
}
print "\n \n </TD>\n <TD VALIGN=\"top\" ALIGN=\"left\" WIDTH=\"100%\">\n \n \n \n\n \n ";
if ($VIEW eq "Month" || $VIEW eq "Week" || $VIEW eq "Two-Week" || $VIEW eq "Three-Week" || $VIEW eq "Four-Week") {
print "\n \n ";if ($STYLE eq "Grid") {
print "\n <TABLE BORDER=\"1\" CLASS=\"thinborder\" HEIGHT=\"100%\" WIDTH=\"100%\" CELLPADDING=\"2\" CELLSPACING=\"1\">\n <TR>\n ";
foreach $COL (0 .. $Grid->{colcount}-1) { $DAY = $Grid->{grid}->[$ROW]->[$COL]; my ($EVENTS) = $Grid->{grid}->[$ROW]->[$COL]->{events};
print "\n <TH CLASS=\"thinborder\" BGCOLOR=\"";print $_COLUMN_HEADER_BGCOLOR;print "\"><SPAN CLASS=\"columnheader\">";print $Grid->{'daynames'}->[$COL];print "</SPAN></TH>\n ";
}
print "\n </TR>\n ";
foreach $ROW (0 .. $Grid->{rowcount}-1) {
print "\n <TR "; print $rowheight;print ">\n ";
foreach $COL (0 .. $Grid->{colcount}-1) { $DAY = $Grid->{grid}->[$ROW]->[$COL]; my ($EVENTS) = $Grid->{grid}->[$ROW]->[$COL]->{events};
print "\n ";$i=0;
print "\n <TD CLASS=\"thinborder\" VALIGN=\"TOP\" WIDTH=\"14%\" "; print $rowheight; print " BGCOLOR=\"";if ($DAY->{'selected'}) {print "";print $_GRID_CELL_SELECTED_BGCOLOR;print "";}else{print "";print $_GRID_CELL_BGCOLOR;print "";}print "\">\n ";
if ($DAY->{'display'}) {
print "\n <SPAN BGCOLOR=\"";print $_GRID_DATE_BGCOLOR;print "\" CLASS=\"griddatetext\"> <NOBR><A HREF=\"";print $CGI_URL_QUERYSTRING;print "selected_datestring=";print $DAY->{'datestring'};print "&datestring=";print $DAY->{'datestring'};print "&view=Day\" CLASS=\"griddatetext\">";if($DAY->{'dd'}==1&&$VIEW ne "Month"){print "";print $DAY->{'monthname'};print " ";}print "";print $DAY->{'dd'};print "</A> </NOBR></SPAN>\n ";
foreach $EVENT (@$EVENTS) {
print "\n ";$i++;
print "\n <SPAN CLASS=\"gridtext\">\n <FONT SIZE=\"";print $_GRID_CELL_TEXT_SIZE;print "\">\n ";
if ($_SHOW_GRID_EVENT_BULLET) {print "•";}
print "\n ";if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") {
print "\n ";if ($EVENT->{'schedule'}->{'start_time'}) {print "";print $EVENT->{schedule}->{start_time};print "";}
print "\n ";}
print "\n ";if ($_SHOW_EVENT_TIMES eq "ALL") {
print "\n ";if ($EVENT->{'schedule'}->{'end_time'}) {print "-";print $EVENT->{schedule}->{end_time};print "";}
print "\n ";}
print "\n ";if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { print " : "; }
print "\n <A HREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\" CLASS=\"gridtext\">";print $EVENT->{details}->{title};print "</A><BR>\n </FONT>\n </SPAN>\n ";
}
print "\n ";if ($i==0) {print "<BR> <BR> ";}
print "\n ";}
print "\n \n </TD>\n ";
}
print "\n </TR>\n ";
}
print "\n </TABLE>\n \n ";
} elsif ($STYLE eq "List") {
print "\n \n <CENTER><TABLE BORDER=\"0\" WIDTH=\"90%\"><TR><TD ALIGN=\"left\">\n <SPAN CLASS=\"text\">\n <DL>\n ";
$total_events=0;
print "\n ";foreach $datestring (sort keys %$EventList) { $DAY = $EventList->{$datestring}; my ($EVENTS) = $DAY->{events};
print "\n ";if ($#{$EVENTS} >= 0) {
print "\n ";$total_events++;
print "\n <DT><B><A HREF=\"";print $CGI_URL_QUERYSTRING;print "selected_datestring=";print $DAY->{'datestring'};print "&datestring=";print $DAY->{'datestring'};print "&view=Day\" CLASS=\"text\">";print $DAY->{dayname};print ", "; print $DAY->{monthname}; print " ";print $DAY->{dd};print "</A></B>\n <DD>\n ";
foreach $EVENT (@$EVENTS) {
print "\n ";if ($_SHOW_GRID_EVENT_BULLET) {print "•";}
print "\n ";if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") {
print "\n ";if ($EVENT->{'schedule'}->{'start_time'}) {print "";print $EVENT->{schedule}->{start_time};print "";}
print "\n ";}
print "\n ";if ($_SHOW_EVENT_TIMES eq "ALL") {
print "\n ";if ($EVENT->{'schedule'}->{'end_time'}) {print "-";print $EVENT->{schedule}->{end_time};print "";}
print "\n ";}
print "\n ";if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { print " : "; }
print "\n <A HREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\" STYLE=\"text-decoration:underline;\" CLASS=\"text\">";print $EVENT->{details}->{title};print "</A><BR>\n ";
}
print "\n ";}
print "\n ";}
print "\n </DL>\n ";
unless($total_events){
print "\n <I>";print $_NO_EVENTS_LABEL;print "</I>\n ";
}
print "\n </SPAN>\n </TD></TR></TABLE></CENTER>\n ";
}
print "\n \n\n \n ";} elsif ($VIEW eq "Day") {
print "\n\n ";if ($STYLE eq "Grid") {
print "\n \n <TABLE BORDER=\"1\" CLASS=\"thinborder\" WIDTH=100%>\n ";
foreach $HOUR ( 99, $Config->{days_hours_display_start} .. $Config->{days_hours_display_end} ) { my ($EVENTS) = $DAY->{hours}->[$HOUR]->{events};
print "\n <TR>\n <TD CLASS=\"thinborder\" BGCOLOR=\"";print $_GRID_CELL_BGCOLOR;print "\" ALIGN=\"right\" VALIGN=\"middle\" WIDTH=\"125\">\n <SPAN CLASS=\"text\">\n ";
if ($HOUR == 99) {
print "\n All Day Events\n ";
}else{
print "\n ";print Date::formatTime(&Date::LZ($HOUR)."00",$Config->{'time_format'});print " \n ";
}
print "\n </SPAN>\n </TD>\n <TD CLASS=\"thinborder\" BGCOLOR=\"";print $_GRID_CELL_BGCOLOR;print "\" VALIGN=TOP>\n <SPAN CLASS=\"text\">\n ";
foreach $EVENT (@$EVENTS) {
print "\n ";if ($_SHOW_GRID_EVENT_BULLET) {print "•";}
print "\n ";if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") {
print "\n ";if ($EVENT->{'schedule'}->{'start_time'}) {print "";print $EVENT->{schedule}->{start_time};print "";}
print "\n ";}
print "\n ";if ($_SHOW_EVENT_TIMES eq "ALL") {
print "\n ";if ($EVENT->{'schedule'}->{'end_time'}) {print "-";print $EVENT->{schedule}->{end_time};print "";}
print "\n ";}
print "\n ";if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { print " : "; }
print "\n ";print $EVENT->{details}->{title};
print "\n <FONT SIZE=\"-2\">[<A HREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\" STYLE=\"text-decoration:underline;\">details</A>]</FONT>\n <BR>\n ";
}
print "\n ";if (!($#{$EVENTS} >= 0)) {print " ";}
print "\n </SPAN>\n </TD>\n </TR>\n ";
}
print "\n </TABLE>\n ";
} else {
print "\n \n <CENTER><TABLE BORDER=\"0\" WIDTH=90%><TR><TD>\n <SPAN CLASS=\"text\">\n ";
if ($#{$EVENTS} >= 0) {
print "\n <DL>\n ";
foreach $EVENT (@$EVENTS) {
print "\n <DT>\n ";
if ($_SHOW_GRID_EVENT_BULLET) {print "•";}
print "\n ";if ($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") {
print "\n ";if ($EVENT->{'schedule'}->{'start_time'}) {print "";print $EVENT->{schedule}->{start_time};print "";}
print "\n ";}
print "\n ";if ($_SHOW_EVENT_TIMES eq "ALL") {
print "\n ";if ($EVENT->{'schedule'}->{'end_time'}) {print "-";print $EVENT->{schedule}->{end_time};print "";}
print "\n ";}
print "\n ";if (($_SHOW_EVENT_TIMES eq "ALL" || $_SHOW_EVENT_TIMES eq "START") && ($EVENT->{'schedule'}->{'start_time'})) { print " : "; }
print "\n ";print $EVENT->{details}->{title};
print "\n <FONT SIZE=\"-2\">[<A HREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\" STYLE=\"text-decoration:underline;\">details</A>]<BR></FONT>\n <DD>\n ";
print $EVENT->{details}->{description};
print "\n ";}
print "\n </DL>\n ";
}else{
print "\n <BR><I>";print $_NO_EVENTS_LABEL;print "</I><BR>\n ";
}
print "\n </SPAN>\n </TD></TR></TABLE></CENTER>\n ";
}
print "\n\n \n ";} elsif ($VIEW eq "Event") {
print "\n <TABLE BORDER=\"0\" CELLPADDING=\"2\" CELLSPACING=\"0\">\n ";
foreach (@$fields) {
next unless ($db->{'properties'}->{$_}->{'display_details'});
print "\n <TR><TD ALIGN=\"right\" VALIGN=\"top\"><SPAN CLASS=\"text\"><B>";print $db->{'properties'}->{$_}->{'name'};print ": </B></SPAN></TD><TD ALIGN=\"left\" VALIGN=\"top\"><SPAN CLASS=\"text\">";print $EVENT->{details}->{$_};print "</SPAN></TD></TR>\n ";
}
print "\n </TABLE>\n\n \n ";
} elsif ($VIEW eq "Search") {
print "\n <FORM NAME=\"mainform\" ACTION=\"";print $CGI_URL;print "\" METHOD=\"POST\">\n <INPUT TYPE=\"hidden\" NAME=\"QUERY_STRING\" VALUE=\"";print $QUERY_STRING;print "\">\n <INPUT TYPE=\"hidden\" NAME=\"fromTemplate\" VALUE=\"";print $thisTemplate;print "\">\n <INPUT TYPE=\"hidden\" NAME=\"command\" VALUE=\"search\">\n <INPUT TYPE=\"hidden\" NAME=\"view\" VALUE=\"Search\">\n <TABLE BORDER=\"0\">\n ";
if ($userMessage ne "") {
print "\n <TR>\n <TD></TD>\n <TD ALIGN=\"left\" VALIGN=\"top\">\n <SPAN CLASS=\"messagetext\">\n ";
print $userMessage;
print "\n </SPAN>\n </TD>\n </TR>\n ";
}
print "\n ";$fieldnames = &main::DBGetSearchFields($db);
foreach $field (@$fieldnames) {
print "\n <TR>\n <TD ALIGN=\"RIGHT\"><SPAN CLASS=\"text\"><B>";print $db->{'properties'}->{$field}->{'name'} || $field; print " : </B></SPAN></TD>\n <TD>";print &main::GetSearchFieldInput($db->{'properties'}->{$field},$field,$search_params);print "</TD>\n </TR>\n ";
}
print "\n <TR>\n <TD ALIGN=\"RIGHT\"><SPAN CLASS=\"text\"><B>Between : </B></SPAN></TD>\n <TD>\n <SELECT NAME=\"start_month\">";print &HTML::monthNameOptions($in{start_month} || $TODAY_MONTH);print "</SELECT>\n <SELECT NAME=\"start_date\">";print &HTML::dateOptions($in{start_date} || $TODAY_DATE);print "</SELECT>\n <SELECT NAME=\"start_year\">";print &HTML::yearOptions($in{start_year} || $TODAY_YEAR);print "</SELECT>\n <SPAN CLASS=\"text\">and </SPAN>\n <SELECT NAME=\"end_month\">";print &HTML::monthNameOptions($in{end_month} || $TODAY_MONTH);print "</SELECT>\n <SELECT NAME=\"end_date\">";print &HTML::dateOptions($in{end_date} || $TODAY_DATE);print "</SELECT>\n <SELECT NAME=\"end_year\">";print &HTML::yearOptions($in{end_year} || ($TODAY_YEAR+1));print "</SELECT>\n </TD>\n </TR>\n <TR>\n <TD ALIGN=\"CENTER\" COLSPAN=\"2\">\n <INPUT CLASS=\"button\" TYPE=\"submit\" VALUE=\"Search\">\n </TD>\n </TR>\n ";
if ($in{command} eq "search") {
print "\n <TR>\n <TD COLSPAN=\"2\" ALIGN=\"center\">\n <SPAN CLASS=\"text\">\n <u><B>Search Results</B></u><BR>\n ";
if ($#$SEARCH_RESULTS < 0) {
print "\n No Matches\n ";
}else{
print "\n <TABLE BORDER=\"1\" CELLPADDING=\"1\" CELLSPACING=\"0\">\n <TR>\n <TH><SPAN CLASS=\"text\">First Occurrence</SPAN></TH>\n <TH><SPAN CLASS=\"text\">Title</SPAN></TH>\n <TH><SPAN CLASS=\"text\">Description</SPAN></TH>\n </TR>\n ";
foreach $i (0 .. $#$SEARCH_RESULTS) { $EVENT = $SEARCH_RESULTS->[$i];
print "\n <TR>\n <TD>\n <SPAN CLASS=\"text\">\n ";
if ($EVENT->{schedule}->{nextoccurrence}) {
print "\n ";print $MONTH_NAMES->[$EVENT->{schedule}->{nextoccurrence}->{month}-1]; print " ";print $EVENT->{schedule}->{nextoccurrence}->{date};print ", "; print $EVENT->{schedule}->{nextoccurrence}->{year};
print "\n ";}else{
print "\n None\n ";
}
print "\n </SPAN>\n </TD>\n <TD><A HREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\" STYLE=\"text-decoration:underline;\" CLASS=\"text\">";print $EVENT->{details}->{title};print "</A></TD>\n <TD><SPAN CLASS=\"text\">";print $EVENT->{details}->{description};print "</SPAN></TD>\n </TR>\n ";
}
print "\n </TABLE>\n ";
}
print "\n </SPAN>\n </TD>\n </TR>\n ";
}
print "\n </TABLE>\n </FORM>\n\n ";
}
print "\n \n \n \n \n </TD>\n</TR>\n<TR>\n <TD ALIGN=\"center\" COLSPAN=\"2\" BGCOLOR=\"";print $_FOOTER_BGCOLOR;print "\">\n <FONT SIZE=\"-2\">\n <SPAN CLASS=\"footertext\">\n <A HREF=\"http://www.CalendarScript.com/\" CLASS=\"footertext\" STYLE=\"text-decoration:underline;\">Calendar</A> Powered by <A HREF=\"http://www.CalendarScript.com/\" CLASS=\"footertext\" STYLE=\"text-decoration:underline;\">CalendarScript</A>\n </SPAN>\n </FONT>\n </TD>\n</TR>\n";
if ($_FOOTER) {print "<TR><TD COLSPAN=\"2\">";print $_FOOTER;print "</TD></TR>";}
print "\n</TABLE>\n\n</BODY>\n</HTML>\n";
package main;