loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.16, 2001/09/24 19:16:51	version 1.17, 2001/09/25 18:24:37
Line 9	Line 9
# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,	# 08/30,08/31,09/06,09/14,09/15,09/16,09/19,09/20,09/21,09/23,
# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)	# 10/02,10/10,10/14,10/16,10/18,10/19,10/31,11/6,11/14,11/16 Gerd Kortemeyer)
#	#
# 3/1/1,6/1,17/1,29/1,30/1,2/8,9/21,9/24 Gerd Kortemeyer	# 3/1/1,6/1,17/1,29/1,30/1,2/8,9/21,9/24,9/25 Gerd Kortemeyer

package Apache::lonnavmaps;	package Apache::lonnavmaps;

Line 211 sub astatus {	Line 211 sub astatus {
} elsif ($status eq 'incorrect_attempted') {	} elsif ($status eq 'incorrect_attempted') {
$code=2;	$code=2;
$ctext.=' ('.	$ctext.=' ('.
$returnhash{'resource.'.$_.'.tries'}.'/'.	($returnhash{'resource.'.$_.'.tries'}?
	$returnhash{'resource.'.$_.'.tries'}:'0').'/'.
&parmval($_.'.maxtries',$symb).' tries)';	&parmval($_.'.maxtries',$symb).' tries)';
} elsif ($status eq 'incorrect_by_override') {	} elsif ($status eq 'incorrect_by_override') {
$code=2;	$code=2;
Line 221 sub astatus {	Line 222 sub astatus {
$ctext.=' excused';	$ctext.=' excused';
}	}

} keys %opendate;	} sort keys %opendate;

return 'p'.$code.$tcode.'"'.$ctext.'"';	return 'p'.$code.$tcode.'"'.$ctext.'"';
}	}