loncom/homework/inputtags.pm - diff

Return to inputtags.pm CVS log

Up to [LON-CAPA] / loncom / homework

version 1.68, 2002/10/24 19:20:17	version 1.71, 2002/10/29 06:12:32
Line 308 sub decideoutput {	Line 308 sub decideoutput {
sub setgradedata {	sub setgradedata {
my ($award,$id,$previously_used) = @_;	my ($award,$id,$previously_used) = @_;
# if the student already has it correct, don't modify the status	# if the student already has it correct, don't modify the status
if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER') {	if ($Apache::inputtags::status['-1'] ne 'CAN_ANSWER' &&
	$Apache::inputtags::status['-1'] ne 'CANNOT_ANSWER') {
$Apache::lonhomework::results{"resource.$id.afterduedate"}=$award;	$Apache::lonhomework::results{"resource.$id.afterduedate"}=$award;
return '';	return '';
} elsif ( $Apache::lonhomework::history{"resource.$id.solved"} !~	} elsif ( $Apache::lonhomework::history{"resource.$id.solved"} !~
Line 431 sub gradestatus {	Line 432 sub gradestatus {
if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; }	if ( $maxtries eq 'con_lost' ) { $maxtries = '0'; }
if ( $showbutton ) {	if ( $showbutton ) {
if ($target eq 'tex') {	if ($target eq 'tex') {
if ((not $ENV{'request.role'}=~m/^au\./) and (not $ENV{'request.role'}=~m/^ca\./)) {	if ($ENV{'request.state'} ne "construct") {
$trystr = ' {\small \textit{Tries} '.$tries.'/'.$maxtries.'} ';	$trystr = ' {\small \textit{Tries} '.$tries.'/'.$maxtries.'} \vskip 0 mm ';
}	}
} else {	} else {
$trystr = "<td>Tries $tries/$maxtries</td>";	$trystr = "<td>Tries $tries/$maxtries</td>";