From ae779fa0d96155024771bec208928fe1e09e10d8 Mon Sep 17 00:00:00 2001
From: Wouter van Oijen <wouter@webgui-svn>
Date: Fri, 2 Jun 2006 15:28:22 +0000
Subject: [PATCH] Fixed another Events Calendar bug Fixed XHTML compliance
 Added 'today' option as Start Month for Event Calendar Added 'owner' template
 variable to Event Calendar Templates

---
 docs/changelog/6.x.x.txt                      |  2 +
 lib/WebGUI/Asset/Wobject/EventsCalendar.pm    | 63 +++++++++++--------
 .../i18n/English/Asset_EventsCalendar.pm      | 15 ++++-
 3 files changed, 52 insertions(+), 28 deletions(-)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index cbad12a30..7322d7101 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -35,6 +35,8 @@
  - fix: Reply count off when restoring from trash
  - fix: Karma not spent properly
  - fix: Avatar Message Board Template Not Working
+ - fixed another Events Calendar bug
+ - added template variable 'owner' for Events Calendar templates
 
 
 6.99.2
diff --git a/lib/WebGUI/Asset/Wobject/EventsCalendar.pm b/lib/WebGUI/Asset/Wobject/EventsCalendar.pm
index 7a1065d2e..032d66506 100644
--- a/lib/WebGUI/Asset/Wobject/EventsCalendar.pm
+++ b/lib/WebGUI/Asset/Wobject/EventsCalendar.pm
@@ -89,24 +89,24 @@ sub definition {
 
 
 #-------------------------------------------------------------------
-
-=head2 epochToArray ( epoch )
-
-Returns an array date. 
-
-=head3 epoch
-
-The number of seconds since January 1, 1970.
-
-=cut
-
-sub epochToArray {
-	my $self = shift;
-	my $timeZone = $self->session->user->profileField("timeZone") || "America/Chicago";
-	use DateTime;
-	return map {$_ += 0} split / /, DateTime->from_epoch( epoch =>shift, time_zone=>$timeZone)->strftime("%Y %m %d %H %M %S");
-}
-
+#
+#=head2 epochToArray ( epoch )
+#
+#Returns an array date. 
+#
+#=head3 epoch
+#
+#The number of seconds since January 1, 1970.
+#
+#=cut
+#
+#sub epochToArray {
+#	my $self = shift;
+#	my $timeZone = $self->session->user->profileField("timeZone") || "America/Chicago";
+#	use DateTime;
+#	return map {$_ += 0} split / /, DateTime->from_epoch( epoch =>shift, time_zone=>$timeZone)->strftime("%Y %m %d %H %M %S");
+#}
+#
 
 
 #-------------------------------------------------------------------
@@ -152,6 +152,7 @@ sub getEditForm {
 		-options=>{
 			"january"=>$i18n->get('january'),
 			"now"=>$i18n->get(98),
+			"today"=>$i18n->get('today'),
 			"current"=>$i18n->get(82),
 			"first"=>$i18n->get(83)
 		},
@@ -217,7 +218,7 @@ sub prepareView {
 
 #-------------------------------------------------------------------
 
-=head2 purgeCache ()
+=head2 purgeCache ( )
 
 See WebGUI::Asset::purgeCache() for details.
 
@@ -329,6 +330,7 @@ sub view {
 
 	# Filter events
 	my %filteredEvents;
+	my %userNames;
 	my $previousDate;
 	foreach my $event (@sortedEvents) {
 		# ignore events we're not allowed to see
@@ -357,9 +359,17 @@ sub view {
 			$daysInEvent++;
 		}
 		# add event to each day it takes place
-		for (my $day = $firstDay; $day <= $lastDay; $day = $dt->addToDate($day, 0, 0, 1)) {
-			next if ($day < $minDate);
-			next if ($day > $maxDate);
+		my $firstViewableDay = $firstDay;
+		my $lastViewableDay = $lastDay;
+		($firstViewableDay, $dummy) = $dt->dayStartEnd($minDate) if ($firstViewableDay < $minDate);
+		($lastViewableDay, $dummy) = $dt->dayStartEnd($maxDate) if ($lastViewableDay > $maxDate);
+		my $ownerUserId = $event->get('ownerUserId');
+		unless ($userNames{$ownerUserId}) {
+			my $owner = WebGUI::User->new($session, $ownerUserId);
+			$userNames{$ownerUserId} = $owner->username();
+		}
+		my $ownerName = $userNames{$ownerUserId};
+		for (my $day = $firstViewableDay; $day <= $lastViewableDay; $day = $dt->addToDate($day, 0, 0, 1)) {
 			push (@{$filteredEvents{$day}}, {
 				'description'          => $event->get('description'),
 				'name'                 => $event->get('title'),
@@ -383,7 +393,8 @@ sub view {
 				'isFirstDayOfEvent'    => $day == $firstDay,
 				'dateIsSameAsPrevious' => "$firstDay-$lastDay" eq $previousDate,
 				'daysInEvent'          => $daysInEvent,
-				'url'                  => $event->getUrl()
+				'url'                  => $event->getUrl(),
+				'owner'                => $ownerName
 			});
 		}
 		$previousDate = "$firstDay-$lastDay";
@@ -522,8 +533,8 @@ sub view {
 	$var{'pagination.nextPageUrl'} = $self->getUrl.'?calMonthEnd='.$calMonthStart+$monthRangeLength.';calMonthEnd='.$calMonthEnd+$monthRangeLength;
 	$var{'pagination.nextPage'} = '<a href="'.$self->getUrl.'?calMonthStart='.($calMonthStart+$monthRangeLength).';calMonthEnd='.($calMonthEnd+$monthRangeLength).'">'.$i18n->get(559).' '.$monthRangeLength.' '.$monthLabel.'</a>';
 	$var{'pagination.pageList.upTo20'} = '
-	<form method="GET" style="display: inline;" action="'.$self->getUrl.'">
-	<input type="hidden" name="calMonthStart" value="'.$calMonthStart.'">
+	<form method="get" style="display: inline;" action="'.$self->getUrl.'">
+	<input type="hidden" name="calMonthStart" value="'.$calMonthStart.'" />
 	<select size="1" name="calMonthEnd">
 	<option value="'.($calMonthStart).'">1 '.$i18n->get(560).'</option>
 	<option value="'.(1+$calMonthStart).'">2 '.$i18n->get(561).'</option>
@@ -552,7 +563,7 @@ sub view {
 
 #-------------------------------------------------------------------
 
-=head2 www_view ()
+=head2 www_view ( )
 
 See WebGUI::Asset::Wobject::www_view() for details.
 
diff --git a/lib/WebGUI/i18n/English/Asset_EventsCalendar.pm b/lib/WebGUI/i18n/English/Asset_EventsCalendar.pm
index e92bd83c7..45db05f03 100644
--- a/lib/WebGUI/i18n/English/Asset_EventsCalendar.pm
+++ b/lib/WebGUI/i18n/English/Asset_EventsCalendar.pm
@@ -12,6 +12,11 @@ our $I18N = {
 		lastUpdated => 1146456063
 		},
 
+	'today' => {
+		message => q|Today|,
+		lastUpdated => 0
+	},
+
 	'january' => {
 		message => q|January|,
 		lastUpdated => 1133711787
@@ -55,13 +60,15 @@ our $I18N = {
 <dd>The calendar will start at whatever the earliest date in the calendar is.</dd>
 <dt>Now!</dt>
 <dd>The calendar will start on the current date and time.  It will advance and not show events that have already passed.</dd>
+<dt>Today</dt>
+<dd>The calendar will start on the begin of the current date.</dd>
 <dt>Current</dt>
 <dd>The calendar will always start on the current month.  It is similar to "Now!" but advances from month to month.  This allows events in the current month that have passed to still be displayed.</dd>
 <dt>January</dt>
 <dd>The calendar will always start on January of the current year.</dd>
 </dl>
 </div>|,
-                lastUpdated => 1129668992,
+                lastUpdated => 1148169600,
         },
 
         '84 description' => {
@@ -397,6 +404,10 @@ The length of this event in days.
 The URL to view this event in detail.
 </p>
 
+<p><b>owner</b><br />
+The username of the owner of the event.
+</p>
+
 </div>
 
 <p><b>url</b><br />
@@ -440,7 +451,7 @@ The 4 digit year in the current month of the month_loop.
 </div>
 
 |,
-		lastUpdated => 1146775609
+		lastUpdated => 1149238798
 	},
 
           '509' => {