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.
Month '-1' out of range 0..11 at /var/www/fl/floradec.net/public_html/cgi-bin/calendarscript/lib/TimeLocal.inc line 57.
<%
# 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:#FFFFFF; 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%>; }
.gridtextbold { color:#000000; font-family:verdana; font-weight:bold; }
.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>
<style type="text/css">
a.Blk12pt:link {
color: #000000;
text-decoration: none;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
a.Blk12pt:visited {
color: #000000;
text-decoration: none;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
a.Blk12pt:hover {
color: #666666;
text-decoration: underline;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
font-weight: normal;
}
a.Blk12pt:active {
color: #000000;
text-decoration: none;
font-size: 12px;
font-family: Verdana, Arial, Helvetica, sans-serif;
}
</style>
<link href="http://www.floradec.net/css/fd.css" rel="stylesheet" type="text/css">
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_swapImage() { //v3.0
var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</HEAD>
<BODY BGCOLOR="<%=$_BGCOLOR%>" LINK="<%=$_LINK%>" ALINK="<%=$_ALINK%>" VLINK="<%=$_VLINK%>" LEFTMARGIN=0 TOPMARGIN=0 MARGINWIDTH=0 MARGINHEIGHT=0 onLoad="MM_preloadImages('/images/btn-bar-top-ovr01.gif','/images/btn-hnav-calendar-ovr-01.gif','/images/btm-nav-01.gif','/images/btm-nav-02.gif','/images/btm-nav-03.gif','/images/btm-nav-04.gif','/images/btm-nav-05.gif','/images/btn-bar-top-ovr02.gif','/images/btn-bar-top-ovr04.gif','/images/btn-hnav-contact-ovr-01.gif')">
<table width="800" border="0" cellpadding="0" cellspacing="0">
<tr>
<td><img src="/images/spacer.gif" width="1" height="1" border="0" alt=""></td>
<td><img src="/images/spacer.gif" width="798" height="1" border="0" alt=""></td>
<td><img src="/images/spacer.gif" width="1" height="1" border="0" alt=""></td>
<td><img src="/images/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td rowspan="11" valign="top">
<table width="1" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#A3648F"><img src="/images/spacer.gif" width="1" height="15" border="0" alt=""></td>
</tr>
</table></td>
<td><a href="/"><img src="/images/hdr-cpol-01.jpg" width="798" height="114" border="0"></a></td>
<td rowspan="11" valign="top"><table width="1" border="0" cellspacing="0" cellpadding="0">
<tr>
<td bgcolor="#A3648F"><img src="/images/spacer.gif" width="1" height="15" border="0" alt=""></td>
</tr>
</table>
</td>
<td><img src="/images/spacer.gif" width="1" height="114" border="0" alt=""></td>
</tr>
<tr>
<td background="/images/home-101605b_r2_c2.jpg" bgcolor="#FFFFFF"><table width="100%" border="0" cellspacing="0" cellpadding="0">
<tr>
<td width="100%" valign="top" bgcolor="#F5F9EA" class="v_blk_10px"><div align="right" class="v_blk_12px">Hawaii's leading supplier of floral, party & craft supplies, and decorative & packaging products for over 35 years</div></td>
<td width="10" bgcolor="#F5F9EA"><img src="/images/spacer.gif" width="10" height="18"></td>
</tr>
</table></td>
<td><img src="/images/spacer.gif" width="1" height="14" border="0" alt=""></td>
</tr>
<tr>
<td><img name="home101605b_r3_c2" src="/images/g-hrule-01.jpg" width="798" height="1" border="0" alt=""></td>
<td><img src="/images/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
<tr>
<td valign="middle" bgcolor="#FFFFFF"><table border="0" cellpadding="0" cellspacing="0" width="797">
<!-- fwtable fwsrc="btn-bar-top-02ovr.png" fwbase="top-nav.gif" fwstyle="Dreamweaver" fwdocid = "835459694" fwnested="0" -->
<tr>
<td><img src="/images/spacer.gif" alt="" name="undefined_2" width="152" height="1" border="0"></td>
<td><img src="/images/spacer.gif" alt="" name="undefined_2" width="158" height="1" border="0"></td>
<td><img src="/images/spacer.gif" alt="" name="undefined_2" width="158" height="1" border="0"></td>
<td><img src="/images/spacer.gif" alt="" name="undefined_2" width="183" height="1" border="0"></td>
<td><img src="/images/spacer.gif" alt="" name="undefined_2" width="146" height="1" border="0"></td>
<td><img src="/images/spacer.gif" alt="" name="undefined_2" width="1" height="1" border="0"></td>
</tr>
<tr>
<td><a href="http://www.floradec.com/browse.cfm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('topnav_r1_c2','','/images/btn-bar-top-ovr02.gif',1);"><img name="topnav_r1_c2" src="/images/top-nav_r1_c2.gif" width="152" height="26" border="0" alt=""></a></td>
<td><a href="http://www.floradec.com/page.htm?PG=WHOLESALE" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('topnav_r1_c4','','/images/btn-bar-top-ovr04.gif',1);"><img name="topnav_r1_c4" src="/images/top-nav_r1_c4.gif" width="158" height="26" border="0" alt=""></a></td>
<td><a href="http://www.floradec.com/page.htm?PG=EVENTS" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('botnav_r1_c1','','/images/btm-nav-01.gif',1)"><img name="botnav_r1_c1" src="/images/bot-nav_r1_c1.gif" width="158" height="26" border="0" alt=""></a></td>
<td><a href="/cgi-bin/calendar.pl" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('topnav_r1_c5','','/images/btn-hnav-calendar-ovr-01.gif',1);"><img name="topnav_r1_c5" src="/images/btn-hnav-calendar-01.gif" width="183" height="26" border="0" alt=""></a></td>
<td><a href="http://www.floradec.com/feedback.htm" onMouseOut="MM_swapImgRestore()" onMouseOver="MM_swapImage('topnav_r1_c3','','/images/btn-hnav-contact-ovr-01.gif',1);"><img name="topnav_r1_c3" src="/images/btn-hnav-contact-01.gif" width="143" height="26" border="0" alt=""></a></td>
<td><img src="/images/spacer.gif" alt="" name="undefined_2" width="1" height="26" border="0"></td>
</tr>
</table></td>
<td><img src="/images/spacer.gif" width="1" height="26" border="0" alt=""></td>
</tr>
<tr>
<td><img name="home101605b_r5_c2" src="/images/g-hrule-01.jpg" width="798" height="1" border="0" alt=""></td>
<td><img src="/images/spacer.gif" width="1" height="1" border="0" alt=""></td>
</tr>
</td>
</table>
<TABLE WIDTH="800" HEIGHT="100%" BORDER="0" align="left" CELLPADDING="0" CELLSPACING="4">
<% 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") { %>
<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}%>&te
mplate=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}%>&te
mplate=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="gridtextbold"><br>
<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"><br><%= EVENT FIELD(title) %></A><BR><hr>
</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 WIDTH="100%" BORDER="0" cellpadding="5" cellspacing="5" bgcolor="#FFFFFF"><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><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 width="100%" BORDER="0" CELLPADDING="5" CELLSPACING="5" bgcolor="#FFFFFF">
<%
foreach (@$fields) {
next unless
($db->{'properties'}->{$_}->{'display_details'});
%>
<TR><TD width="10%" ALIGN="right" VALIGN="top"><SPAN
CLASS="text"><B><%=$db->{'properties'}->{$_}->{'name'}%>: </B></SPAN></TD><TD width="90%"
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 width="100%" BORDER="0" cellpadding="5" cellspacing="5" bgcolor="#FFFFFF">
<% 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>
<% if ($_FOOTER) { %><TR><TD COLSPAN="2"><%= $_FOOTER %></TD></TR><% } %>
<TR>
<TD COLSPAN="2"><div align="center" class="v_wht_9px"><br>
© (Copyright) 2007 FloraDec Sales. All rights reserved. </div></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:#FFFFFF; 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.gridtextbold { color:#000000; font-family:verdana; font-weight:bold; }\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<style type=\"text/css\">
\na.Blk12pt:link {
\n color: #000000;
\n text-decoration: none;
\n font-size: 12px;
\n font-family: Verdana, Arial, Helvetica, sans-serif;
\n}
\n
\na.Blk12pt:visited {
\n color: #000000;
\n text-decoration: none;
\n font-size: 12px;
\n font-family: Verdana, Arial, Helvetica, sans-serif;
\n
\n}
\n
\na.Blk12pt:hover {
\n color: #666666;
\n text-decoration: underline;
\n font-size: 12px;
\n font-family: Verdana, Arial, Helvetica, sans-serif;
\n font-weight: normal;
\n}
\n
\na.Blk12pt:active {
\n color: #000000;
\n text-decoration: none;
\n font-size: 12px;
\n font-family: Verdana, Arial, Helvetica, sans-serif;
\n}
\n</style>
\n<link href=\"http://www.floradec.net/css/fd.css\" rel=\"stylesheet\" type=\"text/css\">
\n<script language=\"JavaScript\" type=\"text/JavaScript\">
\n<!--
\nfunction MM_swapImgRestore() { //v3.0
\n var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
\n}
\n
\nfunction MM_preloadImages() { //v3.0
\n var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
\n var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
\n if (a[i].indexOf(\"#\")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
\n}
\n
\nfunction MM_findObj(n, d) { //v4.01
\n var p,i,x; if(!d) d=document; if((p=n.indexOf(\"?\"))>0&&parent.frames.length) {
\n d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
\n if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
\n for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
\n if(!x && d.getElementById) x=d.getElementById(n); return x;
\n}
\n
\nfunction MM_swapImage() { //v3.0
\n var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
\n if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
\n}
\n//-->
\n</script>
\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 onLoad=\"MM_preloadImages('/images/btn-bar-top-ovr01.gif','/images/btn-hnav-calendar-ovr-01.gif','/images/btm-nav-01.gif','/images/btm-nav-02.gif','/images/btm-nav-03.gif','/images/btm-nav-04.gif','/images/btm-nav-05.gif','/images/btn-bar-top-ovr02.gif','/images/btn-bar-top-ovr04.gif','/images/btn-hnav-contact-ovr-01.gif')\">
\n<table width=\"800\" border=\"0\" cellpadding=\"0\" cellspacing=\"0\">
\n <tr>
\n <td><img src=\"/images/spacer.gif\" width=\"1\" height=\"1\" border=\"0\" alt=\"\"></td>
\n <td><img src=\"/images/spacer.gif\" width=\"798\" height=\"1\" border=\"0\" alt=\"\"></td>
\n <td><img src=\"/images/spacer.gif\" width=\"1\" height=\"1\" border=\"0\" alt=\"\"></td>
\n <td><img src=\"/images/spacer.gif\" width=\"1\" height=\"1\" border=\"0\" alt=\"\"></td>
\n </tr>
\n <tr>
\n <td rowspan=\"11\" valign=\"top\">
\n <table width=\"1\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
\n <tr>
\n <td bgcolor=\"#A3648F\"><img src=\"/images/spacer.gif\" width=\"1\" height=\"15\" border=\"0\" alt=\"\"></td>
\n </tr>
\n </table></td>
\n <td><a href=\"/\"><img src=\"/images/hdr-cpol-01.jpg\" width=\"798\" height=\"114\" border=\"0\"></a></td>
\n <td rowspan=\"11\" valign=\"top\"><table width=\"1\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
\n <tr>
\n <td bgcolor=\"#A3648F\"><img src=\"/images/spacer.gif\" width=\"1\" height=\"15\" border=\"0\" alt=\"\"></td>
\n </tr>
\n</table>
\n</td>
\n <td><img src=\"/images/spacer.gif\" width=\"1\" height=\"114\" border=\"0\" alt=\"\"></td>
\n </tr>
\n <tr>
\n <td background=\"/images/home-101605b_r2_c2.jpg\" bgcolor=\"#FFFFFF\"><table width=\"100%\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\">
\n <tr>
\n <td width=\"100%\" valign=\"top\" bgcolor=\"#F5F9EA\" class=\"v_blk_10px\"><div align=\"right\" class=\"v_blk_12px\">Hawaii's leading supplier of floral, party & craft supplies, and decorative & packaging products for over 35 years</div></td>
\n <td width=\"10\" bgcolor=\"#F5F9EA\"><img src=\"/images/spacer.gif\" width=\"10\" height=\"18\"></td>
\n </tr>
\n </table></td>
\n <td><img src=\"/images/spacer.gif\" width=\"1\" height=\"14\" border=\"0\" alt=\"\"></td>
\n </tr>
\n <tr>
\n <td><img name=\"home101605b_r3_c2\" src=\"/images/g-hrule-01.jpg\" width=\"798\" height=\"1\" border=\"0\" alt=\"\"></td>
\n <td><img src=\"/images/spacer.gif\" width=\"1\" height=\"1\" border=\"0\" alt=\"\"></td>
\n </tr>
\n <tr>
\n <td valign=\"middle\" bgcolor=\"#FFFFFF\"><table border=\"0\" cellpadding=\"0\" cellspacing=\"0\" width=\"797\">
\n <!-- fwtable fwsrc=\"btn-bar-top-02ovr.png\" fwbase=\"top-nav.gif\" fwstyle=\"Dreamweaver\" fwdocid = \"835459694\" fwnested=\"0\" -->
\n <tr>
\n <td><img src=\"/images/spacer.gif\" alt=\"\" name=\"undefined_2\" width=\"152\" height=\"1\" border=\"0\"></td>
\n <td><img src=\"/images/spacer.gif\" alt=\"\" name=\"undefined_2\" width=\"158\" height=\"1\" border=\"0\"></td>
\n <td><img src=\"/images/spacer.gif\" alt=\"\" name=\"undefined_2\" width=\"158\" height=\"1\" border=\"0\"></td>
\n <td><img src=\"/images/spacer.gif\" alt=\"\" name=\"undefined_2\" width=\"183\" height=\"1\" border=\"0\"></td>
\n <td><img src=\"/images/spacer.gif\" alt=\"\" name=\"undefined_2\" width=\"146\" height=\"1\" border=\"0\"></td>
\n <td><img src=\"/images/spacer.gif\" alt=\"\" name=\"undefined_2\" width=\"1\" height=\"1\" border=\"0\"></td>
\n </tr>
\n <tr>
\n <td><a href=\"http://www.floradec.com/browse.cfm\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('topnav_r1_c2','','/images/btn-bar-top-ovr02.gif',1);\"><img name=\"topnav_r1_c2\" src=\"/images/top-nav_r1_c2.gif\" width=\"152\" height=\"26\" border=\"0\" alt=\"\"></a></td>
\n <td><a href=\"http://www.floradec.com/page.htm?PG=WHOLESALE\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('topnav_r1_c4','','/images/btn-bar-top-ovr04.gif',1);\"><img name=\"topnav_r1_c4\" src=\"/images/top-nav_r1_c4.gif\" width=\"158\" height=\"26\" border=\"0\" alt=\"\"></a></td>
\n <td><a href=\"http://www.floradec.com/page.htm?PG=EVENTS\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('botnav_r1_c1','','/images/btm-nav-01.gif',1)\"><img name=\"botnav_r1_c1\" src=\"/images/bot-nav_r1_c1.gif\" width=\"158\" height=\"26\" border=\"0\" alt=\"\"></a></td>
\n <td><a href=\"/cgi-bin/calendar.pl\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('topnav_r1_c5','','/images/btn-hnav-calendar-ovr-01.gif',1);\"><img name=\"topnav_r1_c5\" src=\"/images/btn-hnav-calendar-01.gif\" width=\"183\" height=\"26\" border=\"0\" alt=\"\"></a></td>
\n <td><a href=\"http://www.floradec.com/feedback.htm\" onMouseOut=\"MM_swapImgRestore()\" onMouseOver=\"MM_swapImage('topnav_r1_c3','','/images/btn-hnav-contact-ovr-01.gif',1);\"><img name=\"topnav_r1_c3\" src=\"/images/btn-hnav-contact-01.gif\" width=\"143\" height=\"26\" border=\"0\" alt=\"\"></a></td>
\n <td><img src=\"/images/spacer.gif\" alt=\"\" name=\"undefined_2\" width=\"1\" height=\"26\" border=\"0\"></td>
\n </tr>
\n </table></td>
\n <td><img src=\"/images/spacer.gif\" width=\"1\" height=\"26\" border=\"0\" alt=\"\"></td>
\n </tr>
\n <tr>
\n <td><img name=\"home101605b_r5_c2\" src=\"/images/g-hrule-01.jpg\" width=\"798\" height=\"1\" border=\"0\" alt=\"\"></td>
\n <td><img src=\"/images/spacer.gif\" width=\"1\" height=\"1\" border=\"0\" alt=\"\"></td>
\n </tr>
\n</td>
\n</table>
\n
\n<TABLE WIDTH=\"800\" HEIGHT=\"100%\" BORDER=\"0\" align=\"left\" CELLPADDING=\"0\" CELLSPACING=\"4\">
\n ";
if ($_HEADER) {
print "
\n <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\"
\n
\nCELLSPACING=\"1\" WIDTH=100%>
\n <TR>
\n <TD ALIGN=\"center\" WIDTH=\"8%\" CLASS=\"thinborder\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."year=".$LAST_YEAR;print "\"
\n
\nCLASS=\"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%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_SELECTED_BGCOLOR;print "\" CLASS=\"thinborder\"><SPAN
\n
\nCLASS=\"navigationselectedtext\"><B>";print $monthabbrs->[$monthnum];
print "
\n
\n";print $YEAR;print "</B></SPAN></TD>
\n ";
}else{
print "
\n <TD ALIGN=\"center\" WIDTH=\"6%\"
\n
\nCLASS=\"thinborder\" BGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A
\n
\nHREF=\"";print $CGI_URL_QUERYSTRING;print "month=";print ($monthnum+1);print "\"
\n
\nCLASS=\"navigationtext\">";print $monthabbrs->[$monthnum];print "</A></B></TD>
\n ";
}
print "
\n ";}
print "
\n <TD ALIGN=\"center\" WIDTH=\"8%\" CLASS=\"thinborder\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."year=".$NEXT_YEAR;print "\"
\n
\nCLASS=\"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\"
\n
\nCELLSPACING=\"0\" WIDTH=100%>
\n <TR>
\n <TD ALIGN=\"left\" WIDTH=\"20%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."year=".$LAST_WEEK_YEAR."&month=".$LAST_WEEK_MONTH."&date=".$LAST_WEEK_DATE;print "\"
\n
\nCLASS=\"navigationtext\">< Previous Week</A></B></TD>
\n <TD ALIGN=\"center\" WIDTH=\"60%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><SPAN CLASS=\"navigationtext\"><FONT
\n
\n";
print $_HEADER_SIZE; print " COLOR=\"";print $_NAVIGATION_TEXT_COLOR;print "\">";print $RANGE_START; print " -
\n
\n";
print $RANGE_END;print "</FONT></SPAN></B></TD>
\n <TD ALIGN=\"right\" WIDTH=\"20%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."year=".$NEXT_WEEK_YEAR."&month=".$NEXT_WEEK_MONTH."&date=".$NEXT_WEEK_DATE;print "\"
\n
\nCLASS=\"navigationtext\">Next Week ></A></B></TD>
\n </TR>
\n </TABLE>
\n
\n ";
} elsif ($VIEW eq "Day") {
print "
\n <TABLE BORDER=\"0\" CLASS=\"thinborder\" CELLPADDING=\"0\"
\n
\nCELLSPACING=\"0\" WIDTH=100%>
\n <TR>
\n <TD ALIGN=\"left\" WIDTH=\"20%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."datestring=".$PREVIOUS_DAY_DATESTRING."&selected_datestring=".$PREVIOUS_DAY_DATESTRING;print "\"
\n
\nCLASS=\"navigationtext\">< Previous Day</A></B></TD>
\n <TD ALIGN=\"center\" WIDTH=\"60%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><SPAN CLASS=\"navigationtext\"><FONT
\n
\n";
print $_HEADER_SIZE; print " COLOR=\"";print $_NAVIGATION_TEXT_COLOR;print "\">";print $DAY->{'dayname'};
print "
\n
\n";print $DAY->{'monthabbreviation'}; print " ";print $DATE;print ", "; print $YEAR;print "</FONT></SPAN></B></TD>
\n <TD ALIGN=\"right\" WIDTH=\"20%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><A HREF=\"";print $CGI_URL_QUERYSTRING."datestring=".$NEXT_DAY_DATESTRING."&selected_datestring=".$NEXT_DAY_DATESTRING;print "\"
\n
\nCLASS=\"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\"
\n
\nCELLSPACING=\"0\" WIDTH=100%>
\n <TR>
\n <TD ALIGN=\"center\" WIDTH=\"20%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><SPAN CLASS=\"navigationtext\"><FONT
\n
\n";
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\"
\n
\nCELLSPACING=\"0\" WIDTH=100%>
\n <TR>
\n <TD ALIGN=\"center\" WIDTH=\"20%\"
\n
\nBGCOLOR=\"";print $_NAVIGATION_BGCOLOR;print "\"><B><SPAN CLASS=\"navigationtext\"><FONT
\n
\n";
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\"
\n
\nBGCOLOR=\"";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\"
\n
\nBGCOLOR=\"";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 "\"
\n
\nCLASS=\"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
\n
\nhref=\"";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\"
\n
\nBGCOLOR=\"";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
\n
\nhref=\"";print $ADMIN_CGI_URL;print "?calendar=";print $CALENDAR_KEY;print "&username=";print $User->{username};print "&te
\n
\nmplate=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
\n
\nhref=\"";print $ADMIN_CGI_URL;print "?calendar=";print $CALENDAR_KEY;print "&username=";print $User->{username};print "&te
\n
\nmplate=edit_delete_events.html&year=";print $YEAR;print "&month=";print $MONTH;print "\"
\n
\nCLASS=\"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
\n
\nhref=\"";print $ADMIN_CGI_URL;print "?calendar=";print $CALENDAR_KEY;print "\"
\n
\nCLASS=\"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
\n
\nlogout?')\" 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%\"
\n
\nWIDTH=\"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\"
\n
\nBGCOLOR=\"";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\"
\n
\nWIDTH=\"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
\n
\nBGCOLOR=\"";print $_GRID_DATE_BGCOLOR;print "\" CLASS=\"griddatetext\"> <NOBR><A
\n
\nHREF=\"";print $CGI_URL_QUERYSTRING;print "selected_datestring=";print $DAY->{'datestring'};print "&datestring=
\n
\n";
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
\n
\nCLASS=\"gridtextbold\"><br>
\n <FONT
\n
\nSIZE=\"";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
\n
\nHREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\"
\n
\nCLASS=\"gridtext\"><br>";print $EVENT->{details}->{title};print "</A><BR><hr>
\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 WIDTH=\"100%\" BORDER=\"0\" cellpadding=\"5\" cellspacing=\"5\" bgcolor=\"#FFFFFF\"><TR><TD
\n
\nALIGN=\"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
\n
\nHREF=\"";print $CGI_URL_QUERYSTRING;print "selected_datestring=";print $DAY->{'datestring'};print "&datestring=
\n
\n";
print $DAY->{'datestring'};print "&view=Day\" CLASS=\"text\">";print $DAY->{dayname};print ",
\n
\n";
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
\n
\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 "
\n
\n: "; }
print "
\n <A
\n
\nHREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\"
\n
\nSTYLE=\"text-decoration:underline;\" CLASS=\"text\">";print $EVENT->{details}->{title};print "</A><BR><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\"
\n
\nBGCOLOR=\"";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
\n
\n";print Date::formatTime(&Date::LZ($HOUR)."00",$Config->{'time_format'});print "
\n ";
}
print "
\n </SPAN>
\n </TD>
\n <TD CLASS=\"thinborder\"
\n
\nBGCOLOR=\"";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 "
\n
\n: "; }
print "
\n ";print $EVENT->{details}->{title};
print "
\n <FONT SIZE=\"-2\">[<A
\n
\nHREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\"
\n
\nSTYLE=\"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
\n
\nHREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\"
\n
\nSTYLE=\"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 width=\"100%\" BORDER=\"0\" CELLPADDING=\"5\" CELLSPACING=\"5\" bgcolor=\"#FFFFFF\">
\n ";
foreach (@$fields) {
next unless
($db->{'properties'}->{$_}->{'display_details'});
print "
\n <TR><TD width=\"10%\" ALIGN=\"right\" VALIGN=\"top\"><SPAN
\n
\nCLASS=\"text\"><B>";print $db->{'properties'}->{$_}->{'name'};print ": </B></SPAN></TD><TD width=\"90%\"
\n
\nALIGN=\"left\" VALIGN=\"top\"><SPAN
\n
\nCLASS=\"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\"
\n
\nVALUE=\"";print $QUERY_STRING;print "\">
\n <INPUT TYPE=\"hidden\" NAME=\"fromTemplate\"
\n
\nVALUE=\"";print $thisTemplate;print "\">
\n <INPUT TYPE=\"hidden\" NAME=\"command\" VALUE=\"search\">
\n <INPUT TYPE=\"hidden\" NAME=\"view\" VALUE=\"Search\">
\n <TABLE width=\"100%\" BORDER=\"0\" cellpadding=\"5\" cellspacing=\"5\" bgcolor=\"#FFFFFF\">
\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 :
\n
\n</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
\n
\nOccurrence</SPAN></TH>
\n <TH><SPAN CLASS=\"text\">Title</SPAN></TH>
\n <TH><SPAN
\n
\nCLASS=\"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
\n
\n";print $MONTH_NAMES->[$EVENT->{schedule}->{nextoccurrence}->{month}-1];
print "
\n
\n";print $EVENT->{schedule}->{nextoccurrence}->{date};print ",
\n
\n";
print $EVENT->{schedule}->{nextoccurrence}->{year};
print "
\n ";}else{
print "
\n None
\n ";
}
print "
\n </SPAN>
\n </TD>
\n <TD><A
\n
\nHREF=\"";print $CGI_URL_QUERYSTRING;print "view=Event&event_id=";print $EVENT->{details}->{id};print "\"
\n
\nSTYLE=\"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
\n";
if ($_FOOTER) {print "<TR><TD COLSPAN=\"2\">";print $_FOOTER;print "</TD></TR>";}
print "
\n
\n<TR>
\n <TD COLSPAN=\"2\"><div align=\"center\" class=\"v_wht_9px\"><br>
\n © (Copyright) 2007 FloraDec Sales. All rights reserved. </div></TD>
\n</TR>
\n</TABLE>
\n
\n</BODY>
\n</HTML>
\n";
package main;