version 1.2, 2000/09/11 21:13:51
|
version 1.5, 2000/10/02 22:23:39
|
Line 17 sub start_textline {
|
Line 17 sub start_textline {
|
my $result = ""; |
my $result = ""; |
$Apache::inputtags::curvalue++; |
$Apache::inputtags::curvalue++; |
if ($target eq 'web') { |
if ($target eq 'web') { |
$result= '<input name="HWVAL'.$Apache::inputtags::curvalue.'" value="">'; |
$result= '<input name="'.$ENV{'form.request.prefix'}.'HWVAL'.$Apache::inputtags::curvalue.'" value="">'; |
} |
} |
return $result; |
return $result; |
} |
} |
Line 32 sub start_answergroup {
|
Line 32 sub start_answergroup {
|
sub end_answergroup { |
sub end_answergroup { |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
my ($target,$token,$parstack,$parser,$safeeval)=@_; |
if ( $target == 'web' ) { |
if ( $target == 'web' ) { |
return '<input type="submit" value="Submit All Answers"'; |
return '<input type="submit" name="'.$ENV{'form.request.prefix'}.'submit" value="Submit All Answers">'; |
} |
} |
} |
} |
|
|