foo

2006-03-11 02:07:09 +00:00 · 2006-03-11 02:07:09 +00:00 · 9703ce7500
parent 71b33c979f
commit 9703ce7500
1 changed files with 4 additions and 2 deletions
--- a/6
+++ b/6
@ -621,8 +621,10 @@ sub cgi () {
 		      $q->h1("$wikiname: Creating $page"),
 		      $q->start_form(-action => $action),
 		      $q->hidden('do'),
-		      "Select page location: ($default_loc)",
-		      $q->popup_menu('page', \@page_locs, $default_loc),
+		      "Select page location:",
+		      $q->popup_menu(-name => 'page',
+		               -values => \@page_locs,
+		               -default => $default_loc),
 		      $q->textarea(-name => 'content',
 		               -default => "",
 		               -rows => 20,