loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.1, 2000/07/25 21:27:30	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 30 sub start_answergroup {	Line 30 sub start_answergroup {
}	}

sub end_answergroup {	sub end_answergroup {
return '<input type="submit" value="Submit All Answers"';	my ($target,$token,$parstack,$parser,$safeeval)=@_;
	if ( $target == 'web' ) {
	return '<input type="submit" name="'.$ENV{'form.request.prefix'}.'submit" value="Submit All Answers">';
	}
}	}

1;	1;