--- 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};