version 1.225, 2003/09/08 22:44:36
|
version 1.228, 2003/09/17 17:30:41
|
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, |
Line 1972 sub getById {
|
Line 1975 sub getById {
|
sub getBySymb { |
sub getBySymb { |
my $self = shift; |
my $self = shift; |
my $symb = shift; |
my $symb = shift; |
my ($mapUrl, $id, $filename) = split (/___/, $symb); |
my ($mapUrl, $id, $filename) = &Apache::lonnet::decode_symb($symb); |
my $map = $self->getResourceByUrl($mapUrl); |
my $map = $self->getResourceByUrl($mapUrl); |
return $self->getById($map->map_pc() . '.' . $id); |
return $self->getById($map->map_pc() . '.' . $id); |
} |
} |
Line 2048 sub parmval_real {
|
Line 2051 sub parmval_real {
|
unless ($symb) { return ''; } |
unless ($symb) { return ''; } |
my $result=''; |
my $result=''; |
|
|
my ($mapname,$id,$fn)=split(/\_\_\_/,$symb); |
my ($mapname,$id,$fn)=&Apache::lonnet::decode_symb($symb); |
|
|
# ----------------------------------------------------- Cascading lookup scheme |
# ----------------------------------------------------- Cascading lookup scheme |
my $rwhat=$what; |
my $rwhat=$what; |