loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.226, 2003/09/09 18:46:28	version 1.227, 2003/09/10 19:29:33
Line 1093 sub render_long_status {	Line 1093 sub render_long_status {
return $result;	return $result;
}	}

	# Colors obtained by taking the icons, matching the colors, and
	# possibly reducing the Value (HSV) of the color, if it's too bright
	# for text, generally by one third or so.
my %statusColors =	my %statusColors =
(	(
$resObj->CLOSED => '#000000',	$resObj->CLOSED => '#000000',
$resObj->OPEN => '#000000',	$resObj->OPEN => '#998b13',
$resObj->CORRECT => '#000000',	$resObj->CORRECT => '#26933f',
$resObj->INCORRECT => '#000000',	$resObj->INCORRECT => '#c48207',
$resObj->ATTEMPTED => '#000000',	$resObj->ATTEMPTED => '#a87510',
$resObj->ERROR => '#000000'	$resObj->ERROR => '#000000'
);	);
my %statusStrings =	my %statusStrings =
Line 1144 sub render_parts_summary_status {	Line 1147 sub render_parts_summary_status {
}	}
}	}

return $td . join (', ', @counts) . $endtd;	return $td . $resource->countParts() . ' parts: ' . join (', ', @counts) . $endtd;
}	}

my @preparedColumns = (\&render_resource, \&render_communication_status,	my @preparedColumns = (\&render_resource, \&render_communication_status,