$default_loc="$from/$page";
while (length $from) {
push @page_locs, "$from/$page";
+ $from=dirname($from);
}
push @page_locs, $page;
}
$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 => "",