foo

[ikiwiki.git] / ikiwiki

diff --git a/ikiwiki b/ikiwiki
index b57611b668c0d939ba4c7d8f64d5d7844677ff77..444d6f4a3c51a8ab916e1deeac9e6c0301d0cabb 100755 (executable)
--- 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;
                }
@@ -621,7 +622,9 @@ sub cgi () {
                      $q->start_form(-action => $action),
                      $q->hidden('do'),
                      "Select page location:",
-                     $q->popup_menu('page', \@page_locs, $default_loc),
+                     $q->popup_menu(-name => 'page',
+                              -values => \@page_locs,
+                              -default => $default_loc),
                      $q->textarea(-name => 'content',
                               -default => "",
                               -rows => 20,