loncom/homework/structuretags.pm - diff

Return to structuretags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.126, 2002/10/14 20:48:36	version 1.128, 2002/10/17 17:34:10
Line 169 sub problem_web_to_edit_header {	Line 169 sub problem_web_to_edit_header {
#$result.= '<input type="submit" name="problemmode" value="Answer Distribution" />	#$result.= '<input type="submit" name="problemmode" value="Answer Distribution" />
# <input type="text" name="numtoanalyze" value="'.	# <input type="text" name="numtoanalyze" value="'.
# $numtoanalyze.'" size="5" /> <hr />';	# $numtoanalyze.'" size="5" /> <hr />';
	return $result;
}	}

sub initialize_storage {	sub initialize_storage {
Line 482 sub end_library {	Line 483 sub end_library {
sub start_block {	sub start_block {
my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;	my ($target,$token,$tagstack,$parstack,$parser,$safeeval)=@_;

if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer' \|\| $target eq 'tex' \|\| $targer eq 'analyze') {	if ($target eq 'web' \|\| $target eq 'grade' \|\| $target eq 'answer' \|\| $target eq 'tex' \|\| $target eq 'analyze') {
my $code = @$parstack[$#$parstack];	my $code = @$parstack[$#$parstack];
$code =~ s/\"//g;	$code =~ s/\"//g;
$code .=';return $condition;';	$code .=';return $condition;';