From 9ec6f44072f092274cf514573e6cde806a88f59c Mon Sep 17 00:00:00 2001
From: Matthew Wilson <matt@plainblack.com>
Date: Mon, 17 Oct 2005 17:03:26 +0000
Subject: [PATCH] added two new template variables to the EventsCalendar -
 pagination.previousPageUrl and pagination.nextPageUrl

---
 docs/changelog/6.x.x.txt                   | 2 ++
 lib/WebGUI/Asset/Wobject/EventsCalendar.pm | 4 ++++
 2 files changed, 6 insertions(+)

diff --git a/docs/changelog/6.x.x.txt b/docs/changelog/6.x.x.txt
index b36914069..c0c705b6b 100644
--- a/docs/changelog/6.x.x.txt
+++ b/docs/changelog/6.x.x.txt
@@ -1,4 +1,6 @@
 6.7.7
+ - added two new template variables to the EventsCalendar - 
+   pagination.previousPageUrl and pagination.nextPageUrl
  - fix [ 1288653 ] Events calendar again - moving forth/back does not work
  - fix [ 1324230 ] 6.7.6 - Template, Rich Text Editor options not showing
  - fix [ 1276593 ] 6.7.2 Product Images don't upload
diff --git a/lib/WebGUI/Asset/Wobject/EventsCalendar.pm b/lib/WebGUI/Asset/Wobject/EventsCalendar.pm
index 1c8842b46..1af5586b5 100644
--- a/lib/WebGUI/Asset/Wobject/EventsCalendar.pm
+++ b/lib/WebGUI/Asset/Wobject/EventsCalendar.pm
@@ -402,12 +402,16 @@ sub view {
 	} else {
 		$monthLabel = WebGUI::International::get(561,"Asset_EventsCalendar");
 	}
+	$var{'pagination.previousPageUrl'} = 
+		$self->getUrl.'?calMonthStart='.$prevCalMonthStart.';calMonthEnd='.$prevCalMonthEnd;
 	$var{'pagination.previousPage'} = '<form method="GET" style="inline;" action="'.
 		$self->getUrl.'?calMonthStart='.$calMonthStart.
 		';reload='.WebGUI::Id::generate().'"><a href="'.$self->getUrl.
 		'?calMonthStart='.$prevCalMonthStart.';calMonthEnd='.$prevCalMonthEnd.'">'.
 		WebGUI::International::get(558,"Asset_EventsCalendar")." ".$monthRangeLength." ".
 		$monthLabel.'</a>';
+	$var{'pagination.nextPageUrl'} = $self->getUrl.
+		'?calMonthStart='.$nextCalMonthStart.';calMonthEnd='.$nextCalMonthEnd;
 	$var{'pagination.nextPage'} = '<a href="'.$self->getUrl.
 		'?calMonthStart='.$nextCalMonthStart.';calMonthEnd='.$nextCalMonthEnd.'">'.
 		WebGUI::International::get(559,"Asset_EventsCalendar")." ".$monthRangeLength." ".