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; |
} |
} |