projects
/
ikiwiki.git
/ commitdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
| commitdiff |
tree
raw
|
patch
|
inline
| side by side (parent:
b715f10
)
fo
author
joey
<joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Sat, 11 Mar 2006 02:02:04 +0000
(
02:02
+0000)
committer
joey
<joey@0fa5a96a-9a0e-0410-b3b2-a0fd24251071>
Sat, 11 Mar 2006 02:02:04 +0000
(
02:02
+0000)
ikiwiki
patch
|
blob
|
history
diff --git
a/ikiwiki
b/ikiwiki
index 6cbaf8972a461e68751b75698b4b92b666a74b8f..b57611b668c0d939ba4c7d8f64d5d7844677ff77 100755
(executable)
--- a/
ikiwiki
+++ b/
ikiwiki
@@
-585,6
+585,7
@@
sub cgi () {
$page=~/$wiki_file_prune_regexp/ || $page=~/^\//) {
error("bad page name");
}
$page=~/$wiki_file_prune_regexp/ || $page=~/^\//) {
error("bad page name");
}
+ $page=lc($page);
my $action=$q->request_uri;
$action=~s/\?.*//;
my $action=$q->request_uri;
$action=~s/\?.*//;
@@
-606,12
+607,11
@@
sub cgi () {
else {
@page_locs="$from/$page";
$from=dirname($from);
else {
@page_locs="$from/$page";
$from=dirname($from);
- push @page_locs, "$from/$page";
$default_loc="$from/$page";
while (length $from) {
$default_loc="$from/$page";
while (length $from) {
- $from=dirname($from);
push @page_locs, "$from/$page";
}
push @page_locs, "$from/$page";
}
+ push @page_locs, $page;
}
$q->param("do", "save");
}
$q->param("do", "save");
@@
-620,13
+620,14
@@
sub cgi () {
$q->h1("$wikiname: Creating $page"),
$q->start_form(-action => $action),
$q->hidden('do'),
$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,
$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,
$q->br,
$q->textfield(-name => "comments", -size => 80),
$q->br,
@@
-652,7
+653,7
@@
sub cgi () {
-rows => 20,
-columns => 80),
$q->br,
-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,
$q->br,
$q->textfield(-name => "comments", -size => 80),
$q->br,