--- 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(
Last modified: $lm
) : '' ]} @@ -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};