forked from github/kensanata.oddmuse
77 lines
2.3 KiB
Perl
77 lines
2.3 KiB
Perl
use vars qw($PageTypesName);
|
|
|
|
# You need to define the available types on the following page.
|
|
|
|
$PageTypesName = 'PageTypes';
|
|
|
|
# A page type has to appear as a bullet list item on the page.
|
|
#
|
|
# Example list defining three types:
|
|
#
|
|
# * foo
|
|
# * bar
|
|
# * quux baz
|
|
|
|
# The page type will be prepended to the beginning of a page. If you
|
|
# 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.4 2004/01/27 00:32:46 as Exp $</p>';
|
|
|
|
*OldDoPost = *DoPost;
|
|
*DoPost = *NewDoPost;
|
|
|
|
sub NewDoPost {
|
|
my $id = shift;
|
|
my $type = GetParam('types', '');
|
|
if ($type and $type ne T('None')) {
|
|
$type = "[[$type]]" unless $WikiLinks and $type =~ /^$LinkPattern$/;
|
|
my $text = $type . "\n\n" . GetParam('text','');
|
|
# We can't use SetParam(), because we're trying to override a parameter
|
|
# used by the script. GetParam prefers the actual script parameters to
|
|
# parameters set by the cookie (which is what SetParam manipulates).
|
|
$q->param(-name=>'text', -value=>$text);
|
|
}
|
|
OldDoPost($id);
|
|
}
|
|
|
|
*OldGetTextArea = *GetTextArea;
|
|
*GetTextArea = NewGetTextArea;
|
|
|
|
sub NewGetTextArea {
|
|
my ($name, $text) = @_;
|
|
return OldGetTextArea(@_) if ($name ne 'text'); # comment box!
|
|
my @types = (T('None'),);
|
|
# read categories
|
|
foreach (split ('\n', GetPageContent($PageTypesName))) {
|
|
if ($WikiLinks and (m/^\*[ \t]($LinkPattern)/)) {
|
|
push (@types, $1);
|
|
} elsif ($FreeLinks and (m/^\*[ \t]\[\[($FreeLinkPattern)\]\]/)) {
|
|
push (@types, $1);
|
|
}
|
|
}
|
|
my $cluster;
|
|
# This duplicates GetCluster code so that this works even when
|
|
# $PageCluster==0.
|
|
$cluster = $1 if ($WikiLinks && $text =~ /^$LinkPattern\n/)
|
|
or ($FreeLinks && $text =~ /^\[\[$FreeLinkPattern\]\]\n/);
|
|
if (grep(/^$cluster$/, @types)) {
|
|
$text =~ s/^.*\n+//; # delete cluster line, and clean up further empty lines
|
|
} else {
|
|
$cluster = T('None');
|
|
}
|
|
#build the new input
|
|
my $html = OldGetTextArea($name, $text);
|
|
my $list = T('Type') . ': <select name="types">';
|
|
foreach my $type (@types) {
|
|
if ($type eq $cluster) {
|
|
$list .= "<option value=\"$type\" selected>$type";
|
|
} else {
|
|
$list .= "<option value=\"$type\">$type";
|
|
}
|
|
}
|
|
$list .= "</select>";
|
|
$html .= $q->p($list);
|
|
return $html;
|
|
}
|