loncom/interface/lonnavmaps.pm - diff

Return to lonnavmaps.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.252, 2004/03/08 19:41:28	version 1.254, 2004/03/17 16:28:23
Line 1011 sub render_communication_status {	Line 1011 sub render_communication_status {

if ($resource->getErrors()) {	if ($resource->getErrors()) {
my $errors = $resource->getErrors();	my $errors = $resource->getErrors();
	my $errorcount = 0;
foreach (split(/,/, $errors)) {	foreach (split(/,/, $errors)) {
	last if ($errorcount>=10); # Only output 10 bombs maximum
if ($_) {	if ($_) {
	$errorcount++;
$errorHTML .= ' <a href="/adm/email?display='	$errorHTML .= ' <a href="/adm/email?display='
. &Apache::lonnet::escape($_) . '">'	. &Apache::lonnet::escape($_) . '">'
. '<img src="/adm/lonMisc/bomb.gif" '	. '<img src="/adm/lonMisc/bomb.gif" '
Line 1126 sub render_parts_summary_status {	Line 1129 sub render_parts_summary_status {

# If there is a single part, just show the simple status	# If there is a single part, just show the simple status
if ($resource->singlepart()) {	if ($resource->singlepart()) {
my $status = $resource->simpleStatus('0');	my $status = $resource->simpleStatus(${$resource->parts}[0]);
return $td . "<font color='" . $statusColors{$status} . "'>"	return $td . "<font color='" . $statusColors{$status} . "'>"
. $statusStrings{$status} . "</font>" . $endtd;	. $statusStrings{$status} . "</font>" . $endtd;
}	}