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

Use @AdminPages.

Browse Source
This commit is contained in:
Alex Schroeder
2005-01-06 16:34:44 +00:00
parent 6f14cbd32d
commit b15874cb2b
1 changed files with 10 additions and 2 deletions
Download Patch File Download Diff File Expand all files Collapse all files

12
modules/page-type.pl
View File

@@ -1,4 +1,4 @@
# Copyright (C) 2004 Alex Schroeder <alex@emacswiki.org>
# Copyright (C) 2004, 2005 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
@@ -22,6 +22,14 @@ use vars qw($PageTypesName);
$PageTypesName = 'PageTypes';
# do this later so that the user can customize $SidebarName
push(@MyInitVariables, \&PageTypeInit);
sub PageTypeInit {
$PageTypesName = FreeToNormal($PageTypesName); # spaces to underscores
push(@AdminPages, $PageTypesName);
}
# A page type has to appear as a bullet list item on the page.
#
# Example list defining three types:
@@ -34,7 +42,7 @@ $PageTypesName = 'PageTypes';
# have page clustering enabled (see the manual), then the page type
# will automatically act as a cluster.
$ModulesDescription .= '<p>$Id: page-type.pl,v 1.2 2004/01/30 21:35:44 as Exp $</p>';
$ModulesDescription .= '<p>$Id: page-type.pl,v 1.3 2005/01/06 16:34:44 as Exp $</p>';
*OldPageTypeDoPost = *DoPost;
*DoPost = *NewPageTypeDoPost;