loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

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