summaryrefslogtreecommitdiff
path: root/ikiwiki
diff options
context:
space:
mode:
Diffstat (limited to 'ikiwiki')
-rwxr-xr-xikiwiki9
1 files changed, 5 insertions, 4 deletions
diff --git a/ikiwiki b/ikiwiki
index 6cbaf8972..b57611b66 100755
--- a/ikiwiki
+++ b/ikiwiki
@@ -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,