** Any chance you'd be willing to let others know how to do it? **
I did a lot of changed through trial and error but here goes. Hopefully I remember everything.
There was no edits done to the Calendar.pl file.
1) Open default.html
2) Find the following code:
Please note for all instances of : D remove the space between the : and the D
code:
elsif ($VIEW eq "Event") {
$EVENT->{'details'} = &getEvent($in{'event_id'});
$db = $main:: DBEvents;
$fields = &main:: DBGetFieldsInDisplayOrder($db);
}
Replace with the following code:
code:
elsif ($VIEW eq "Event") {
use Time::Local;
$EVENT->{'details'} = &getEvent($in{'event_id'});
$db = $main:: DBSchedule;
$schedules = &Event::getEventsInRange($db,timegm(0,0,0,$DATE,$MONTH-1,$YEAR-1900),timegm(0,0,0,$DATE+1,$MONTH-1,$YEAR-1900)-1);
foreach (@$schedules) {
if ($_->{event_id} == $EVENT->{details}->{id}) {
$EVENT->{schedule} = $_;
last;
}
}
$db = $main:: DBEvents;
$fields = &main:: DBGetFieldsInDisplayOrder($db);
}
3) Look for the following code:
code:
<A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>" CLASS="gridtext"><%= EVENT FIELD(title) %></A><BR>
Replace with the following code:
code:
<A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>&datestring=<%=$DAY->{datestring}%>" CLASS="gridtext"><%= EVENT FIELD(title) %></A><BR>
4) Look for the following code:
code:
<A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>" STYLE="text-decoration:underline;" CLASS="text"><%= EVENT FIELD(title) %></A><BR>
Replace with the following code:
code:
<A HREF="<%=$CGI_URL_QUERYSTRING%>view=Event&event_id=<%= EVENT FIELD(id) %>&datestring=<%=$DAY->{datestring}%>" STYLE="text-decoration:underline;" CLASS="text"><FONT COLOR="<%=EVENT FIELD(color)%>"><%= EVENT FIELD(title) %></FONT></A><BR>
5) Find the following code:
code:
<%-- 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>
Replace with the following code:
code:
<%-- EVENT VIEW --%>
<% } elsif ($VIEW eq "Event") { %>
<TABLE WIDTH="100%" BORDER="0" CELLPADDING="2" CELLSPACING="2">
<TR>
<TD ALIGN="right" VALIGN="top"><SPAN CLASS="text"><B>Time: </B></SPAN></TD>
<TD ALIGN="left" VALIGN="top"><SPAN CLASS="text">
<%
$start = &Date::formatTime($EVENT->{'schedule'}->{'start_time'}, $Config->get(time_format));
$end = &Date::formatTime($EVENT->{'schedule'}->{'end_time'}, $Config->get(time_format));
if ($EVENT->{'schedule'}->{'all_day'} == "1") { print "All Day"; }
else {
print $start;
if ($start ne $end) { print " - ", $end; }
}
%>
</SPAN>
</TD>
</TR>
<TR>
<TD ALIGN="right" VALIGN="top"><SPAN CLASS="text"><B>Date: </B></SPAN></TD>
<TD ALIGN="left" VALIGN="top"><SPAN CLASS="text">
<%
$start = &SimpleDateFormat::formatDate($EVENT->{'schedule'}->{'start'}, $Config->get(date_format));
$end = &SimpleDateFormat::formatDate($EVENT->{'schedule'}->{'end'}, $Config->get(date_format));
print $start;
if ( $start ne $end) { print " - ", $end; }
%>
</SPAN>
</TD>
</TR>
<%
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>
That should do it. It worked for me.
------------------
[This message has been edited by odysious (edited March 17, 2006).]
[This message has been edited by odysious (edited March 17, 2006).]
Customization
