archive/oddmuse
2
0
Fork 0
forked from github/kensanata.oddmuse
Code Pull Requests Activity

($CalendarOnEveryPage): New option.

Browse Source
This commit is contained in:
Alex Schroeder
2004-03-28 02:22:44 +00:00
parent ecffe5b89c
commit aef96ca603
1 changed files with 6 additions and 1 deletions
Download Patch File Download Diff File Expand all files Collapse all files

7
modules/calendar.pl
View File

@@ -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;