--- suikawiki/script/wiki.cgi	2002/12/18 13:08:39	1.39
+++ suikawiki/script/wiki.cgi	2002/12/19 09:50:18	1.40
@@ -622,8 +622,8 @@
     my $epage = &encode ($page);
     $walrus_log = ($walrus_debugging) ? &text_to_html("----\n$walrus_log") : '';    # Walrus add (debug)
     # Walrus mod (1) start
-  my $cvslog1 = q$Revision: 1.39 $;
-  my $cvslog2 = q$Date: 2002/12/18 13:08:39 $;
+  my $cvslog1 = q$Revision: 1.40 $;
+  my $cvslog2 = q$Date: 2002/12/19 09:50:18 $;
   print_navigate_links ($page);
   print <<"EOD";
 @{[ $lm ? qq(<div id="wikipage-last-modified">Last modified: $lm</div>) : '' ]}
@@ -903,10 +903,10 @@
 	    &load_formatter (qw/form_input form_option/);
 	    $definition = &unescape ($definition);
 	    $definition =~ s/\\(.)/$1/g;
-	    $definition .= ' %submit;' if $definition !~ /%submit/;
 	    $option = &unescape ($option);
 	    $option =~ s/\\(.)/$1/g;
 	    $fmt{form_option}->replace ($option, $param);
+	    $definition .= ' %submit;' if $definition !~ /%submit/ && !$param->{output}->{nosubmit};
 	    my $target_page = $param->{output}->{page} || $form{mypage};
 	    $param->{form_disabled} = 1 if $fixedpage{$target_page};
 	    my $target_form = $param->{output}->{id};