loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.50, 2002/01/17 12:23:31	version 1.52, 2002/01/30 17:32:42
Line 89 sub start_textfield {	Line 89 sub start_textfield {
}	}
if ($oldresponse ne '') {	if ($oldresponse ne '') {
#get rid of any startup text if the user has already responded	#get rid of any startup text if the user has already responded
&Apache::lonxml::get_all_text("/textfield",$$parser[$#$parser]);	&Apache::lonxml::get_all_text("/textfield",$$parser[-1]);
	}
	}
	if ($target eq 'grade') {
	my $seedtext=&Apache::lonxml::get_all_text("/textfield",$$parser[-1]);
	if ($seedtext eq $ENV{'form.HWVAL'.$Apache::inputtags::response[-1]}) {
	# if the seed text is still there it wasn't a real submission
	$ENV{'form.HWVAL'.$Apache::inputtags::response['-1']}='';
}	}
}	}
return $result;	return $result;
Line 401 sub gradestatus {	Line 408 sub gradestatus {
}	}
if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}	if ( $status eq 'SHOW_ANSWER' \|\| $status eq 'CANNOT_ANSWER') {$showbutton = 0;}
if ( $showbutton ) {	if ( $showbutton ) {
$button = '<br /><input type="submit" name="submit" value="Submit All Answers" />';	$button = '<br /><input type="submit" name="submit" value="Submit Answer" />';
}	}
}	}
my $output= $previousmsg.$message.$trystr;	my $output= $previousmsg.$message.$trystr;