From aef96ca603dcdb0367eddfaa79df7787ea0cf0ce Mon Sep 17 00:00:00 2001
From: Alex Schroeder <alex@gnu.org>
Date: Sun, 28 Mar 2004 02:22:44 +0000
Subject: [PATCH] ($CalendarOnEveryPage): New option.

---
 modules/calendar.pl | 7 ++++++-
 1 file changed, 6 insertions(+), 1 deletion(-)

diff --git a/modules/calendar.pl b/modules/calendar.pl
index a083541a..be706934 100644
--- a/modules/calendar.pl
+++ b/modules/calendar.pl
@@ -16,13 +16,18 @@
 #    59 Temple Place, Suite 330
 #    Boston, MA 02111-1307 USA
 
-$ModulesDescription .= '<p>$Id: calendar.pl,v 1.4 2004/03/28 02:18:59 as Exp $</p>';
+$ModulesDescription .= '<p>$Id: calendar.pl,v 1.5 2004/03/28 02:22:44 as Exp $</p>';
+
+use vars qw($CalendarOnEveryPage);
+
+$CalendarOnEveryPage = 1;
 
 *OldCalendarGetHeader = *GetHeader;
 *GetHeader = *NewCalendarGetHeader;
 
 sub NewCalendarGetHeader {
   my $header = OldCalendarGetHeader(@_);
+  return $header unless $CalendarOnEveryPage;
   my $cal = Cal();
   $header =~ s/<div class="header">/$cal<div class="header">/;
   return $header;