version 1.134, 2003/02/04 16:14:27
|
version 1.135, 2003/02/04 16:28:50
|
Line 56 sub NOTHING { return 3; }
|
Line 56 sub NOTHING { return 3; }
|
|
|
# Some data |
# Some data |
|
|
|
# Keep these mappings in sync with lonquickgrades, which uses the colors |
|
# instead of the icons. |
|
my %statusIconMap = |
|
( Apache::lonnavmaps::resource->NETWORK_FAILURE => '', |
|
Apache::lonnavmaps::resource->NOTHING_SET => '', |
|
Apache::lonnavmaps::resource->CORRECT => 'navmap.correct.gif', |
|
Apache::lonnavmaps::resource->EXCUSED => 'navmap.correct.gif', |
|
Apache::lonnavmaps::resource->PAST_DUE_NO_ANSWER => 'navmap.wrong.gif', |
|
Apache::lonnavmaps::resource->PAST_DUE_ANSWER_LATER => 'navmap.wrong.gif', |
|
Apache::lonnavmaps::resource->ANSWER_OPEN => 'navmap.wrong.gif', |
|
Apache::lonnavmaps::resource->OPEN_LATER => '', |
|
Apache::lonnavmaps::resource->TRIES_LEFT => 'navmap.open.gif', |
|
Apache::lonnavmaps::resource->INCORRECT => 'navmap.wrong.gif', |
|
Apache::lonnavmaps::resource->OPEN => 'navmap.open.gif', |
|
Apache::lonnavmaps::resource->ATTEMPTED => 'navmap.open.gif' ); |
|
|
|
my %iconAltTags = |
|
( 'navmap.correct.gif' => 'Correct', |
|
'navmap.wrong.gif' => 'Incorrect', |
|
'navmap.open.gif' => 'Open' ); |
|
|
sub cleanup { |
sub cleanup { |
if (tied(%navmaphash)){ |
if (tied(%navmaphash)){ |
Line 239 sub real_handler {
|
Line 259 sub real_handler {
|
# is not yet done and due in less then 24 hours |
# is not yet done and due in less then 24 hours |
my $hurryUpColor = "#FF0000"; |
my $hurryUpColor = "#FF0000"; |
|
|
# Keep these mappings in sync with lonquickgrades, which uses the colors |
|
# instead of the icons. |
|
my %statusIconMap = |
|
( $res->NETWORK_FAILURE => '', |
|
$res->NOTHING_SET => '', |
|
$res->CORRECT => 'navmap.correct.gif', |
|
$res->EXCUSED => 'navmap.correct.gif', |
|
$res->PAST_DUE_NO_ANSWER => 'navmap.wrong.gif', |
|
$res->PAST_DUE_ANSWER_LATER => 'navmap.wrong.gif', |
|
$res->ANSWER_OPEN => 'navmap.wrong.gif', |
|
$res->OPEN_LATER => '', |
|
$res->TRIES_LEFT => 'navmap.open.gif', |
|
$res->INCORRECT => 'navmap.wrong.gif', |
|
$res->OPEN => 'navmap.open.gif', |
|
$res->ATTEMPTED => 'navmap.open.gif' ); |
|
|
|
my %iconAltTags = |
|
( 'navmap.correct.gif' => 'Correct', |
|
'navmap.wrong.gif' => 'Incorrect', |
|
'navmap.open.gif' => 'Open' ); |
|
|
|
my %condenseStatuses = |
my %condenseStatuses = |
( $res->NETWORK_FAILURE => 1, |
( $res->NETWORK_FAILURE => 1, |
$res->NOTHING_SET => 1, |
$res->NOTHING_SET => 1, |
Line 1227 sub render_communication_status {
|
Line 1226 sub render_communication_status {
|
} |
} |
sub render_quick_status { |
sub render_quick_status { |
my ($resource, $part, $params) = @_; |
my ($resource, $part, $params) = @_; |
return "<td align='center'>quick_status</td>"; |
my $result = ""; |
|
my $firstDisplayed = !$params->{'condensed'} && |
|
$params->{'multipart'} && $part eq "0"; |
|
|
|
my $link = $params->{"resourceLink"}; |
|
my $linkopen = "<a href='$link'>"; |
|
my $linkclose = "</a>"; |
|
|
|
if ($resource->is_problem() && |
|
!$firstDisplayed) { |
|
my $icon = $statusIconMap{$resource->status($part)}; |
|
my $alt = $iconAltTags{$icon}; |
|
if ($icon) { |
|
$result .= "<td width='30' valign='center' width='50' align='right'>$linkopen<img width='25' height='25' src='/adm/lonIcons/$icon' border='0' alt='$alt' />$linkclose</td>\n"; |
|
} else { |
|
$result .= "<td width='30'> </td>\n"; |
|
} |
|
} else { # not problem, no icon |
|
$result .= "<td width='30'> </td>\n"; |
|
} |
|
|
|
return $result; |
} |
} |
sub render_long_status { |
sub render_long_status { |
my ($resource, $part, $params) = @_; |
my ($resource, $part, $params) = @_; |