X-Git-Url: https://sipb.mit.edu/gitweb.cgi/ikiwiki.git/blobdiff_plain/0c7bcdaa297ef38f7596cc2298a6ed6714b0529a..71b33c979f97725cabb7923c618b016e4d6e35a3:/ikiwiki

diff --git a/ikiwiki b/ikiwiki
index b57611b66..a9f76d3fe 100755
--- a/ikiwiki
+++ b/ikiwiki
@@ -610,6 +610,7 @@ sub cgi () {
 			$default_loc="$from/$page";
 			while (length $from) {
 				push @page_locs, "$from/$page";
+				$from=dirname($from);
 			}
 			push @page_locs, $page;
 		}
@@ -620,7 +621,7 @@ sub cgi () {
 		      $q->h1("$wikiname: Creating $page"),
 		      $q->start_form(-action => $action),
 		      $q->hidden('do'),
-		      "Select page location:",
+		      "Select page location: ($default_loc)",
 		      $q->popup_menu('page', \@page_locs, $default_loc),
 		      $q->textarea(-name => 'content',
 		               -default => "",