loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.198, 2003/06/10 20:07:58	version 1.200, 2003/06/12 16:21:20
Line 72 my %statusIconMap =	Line 72 my %statusIconMap =
$resObj->TRIES_LEFT => 'navmap.open.gif',	$resObj->TRIES_LEFT => 'navmap.open.gif',
$resObj->INCORRECT => 'navmap.wrong.gif',	$resObj->INCORRECT => 'navmap.wrong.gif',
$resObj->OPEN => 'navmap.open.gif',	$resObj->OPEN => 'navmap.open.gif',
$resObj->ATTEMPTED => 'navmap.open.gif',	$resObj->ATTEMPTED => 'navmap.ellipsis.gif',
$resObj->ANSWER_SUBMITTED => '' );	$resObj->ANSWER_SUBMITTED => '' );

my %iconAltTags =	my %iconAltTags =
Line 378 sub getDescription {	Line 378 sub getDescription {
return "Excused by instructor";	return "Excused by instructor";
}	}
if ($status == $res->ATTEMPTED) {	if ($status == $res->ATTEMPTED) {
return "Not yet graded.";	return "Answer submitted, not yet graded.";
}	}
if ($status == $res->TRIES_LEFT) {	if ($status == $res->TRIES_LEFT) {
my $tries = $res->tries($part);	my $tries = $res->tries($part);
Line 1595 sub new {	Line 1595 sub new {
return undef;	return undef;
}	}

# try copying into memory	$self->{NAV_HASH} = \%navmaphash;
my %tmpnavhash;
while (my ($k, $v) = each(%navmaphash)) {
$tmpnavhash{$k} = $v;
}
untie %navmaphash;

$self->{NAV_HASH} = \%tmpnavhash;
$self->{PARM_HASH} = \%parmhash;	$self->{PARM_HASH} = \%parmhash;
$self->{INITED} = 0;	$self->{INITED} = 0;