urosm
/
ikiwiki
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

fo

master
joey 2006-03-11 02:02:04 +00:00
parent b715f1041c
commit 0c7bcdaa29
1 changed files with 5 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

9
ikiwiki
View File

@ -585,6 +585,7 @@ sub cgi () {
$page=~/$wiki_file_prune_regexp/ || $page=~/^\//) {
error("bad page name");
}
$page=lc($page);
my $action=$q->request_uri;
$action=~s/\?.*//;
@ -606,12 +607,11 @@ sub cgi () {
else {
@page_locs="$from/$page";
$from=dirname($from);
push @page_locs, "$from/$page";
$default_loc="$from/$page";
while (length $from) {
$from=dirname($from);
push @page_locs, "$from/$page";
}
push @page_locs, $page;
}
$q->param("do", "save");
@ -620,13 +620,14 @@ sub cgi () {
$q->h1("$wikiname: Creating $page"),
$q->start_form(-action => $action),
$q->hidden('do'),
"Select page location:",
$q->popup_menu('page', \@page_locs, $default_loc),
$q->textarea(-name => 'content',
-default => "",
-rows => 20,
-columns => 80),
$q->br,
"Optional comment about this change",
"Optional comment about this change:",
$q->br,
$q->textfield(-name => "comments", -size => 80),
$q->br,
@ -652,7 +653,7 @@ sub cgi () {
-rows => 20,
-columns => 80),
$q->br,
"Optional comment about this change",
"Optional comment about this change:",
$q->br,
$q->textfield(-name => "comments", -size => 80),
$q->br,