forked from github/kensanata.oddmuse
4a1cbfb1b4
significant, typo. * modules/sidebar.pl: Reverted. I underestimated the scope of changes needed to bring this module in line with recent, other changes to the Table of Contents module. The good news is that the reverted Sidebar module now works as expected for all modules except the Table of Contents module; of course, the bad news is that the reverted Sidebar module no longer works for the Table of Contents module. (Unfortunately, we can't have both, here.) I will be recommitting my changes to this module as a new module, therefore, named "modules/crossbar.pl" -- sometime, soon. That new module will (probably) break backwards compatibility with this module, but will otherwise behave as expected... with all modules. * t/sidebar.t: Prevented testing against the Table of Contents module, as the Sidebar module is now known not to work with that module.
50 lines
1.7 KiB
Perl
50 lines
1.7 KiB
Perl
# Copyright (C) 2004 Tilmann Holst
|
|
# Copyright (C) 2004, 2005, 2007 Alex Schroeder <alex@emacswiki.org>
|
|
#
|
|
# This program is free software; you can redistribute it and/or modify
|
|
# it under the terms of the GNU General Public License as published by
|
|
# the Free Software Foundation; either version 3 of the License, or
|
|
# (at your option) any later version.
|
|
#
|
|
# This program is distributed in the hope that it will be useful,
|
|
# but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
# GNU General Public License for more details.
|
|
#
|
|
# You should have received a copy of the GNU General Public License
|
|
# along with this program. If not, see <http://www.gnu.org/licenses/>.
|
|
|
|
$ModulesDescription .= '<p>$Id: sidebar.pl,v 1.21 2008/11/20 11:45:46 leycec Exp $</p>';
|
|
|
|
use vars qw($SidebarName);
|
|
|
|
# Include this page on every page:
|
|
|
|
$SidebarName = 'SideBar';
|
|
|
|
# do this later so that the user can customize $SidebarName
|
|
push(@MyInitVariables, \&SidebarInit);
|
|
|
|
sub SidebarInit {
|
|
$SidebarName = FreeToNormal($SidebarName); # spaces to underscores
|
|
$AdminPages{$SidebarName} = 1;
|
|
}
|
|
|
|
*OldSideBarGetHeader = *GetHeader;
|
|
*GetHeader = *NewSideBarGetHeader;
|
|
|
|
# this assumes that *all* calls to GetHeader will print!
|
|
sub NewSideBarGetHeader {
|
|
my ($id) = @_;
|
|
print OldSideBarGetHeader(@_);
|
|
# While rendering, OpenPageName must point to the sidebar, so that
|
|
# the form extension which checks whether the current page is locked
|
|
# will check the SideBar lock and not the real page's lock.
|
|
local $OpenPageName = $SidebarName;
|
|
print '<div class="sidebar">';
|
|
# This makes sure that $Page{text} remains undisturbed.
|
|
PrintWikiToHTML(GetPageContent($SidebarName));
|
|
print '</div>';
|
|
return '';
|
|
}
|