--- loncom/interface/lonnavmaps.pm 2012/06/19 10:11:35 1.487
+++ loncom/interface/lonnavmaps.pm 2012/12/29 17:37:20 1.492
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Navigate Maps Handler
#
-# $Id: lonnavmaps.pm,v 1.487 2012/06/19 10:11:35 foxr Exp $
+# $Id: lonnavmaps.pm,v 1.492 2012/12/29 17:37:20 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
@@ -692,7 +692,7 @@ sub getDescription {
my $maxtries = $res->maxtries($part);
my $triesString = "";
if ($tries && $maxtries) {
- $triesString = '('.&mt('[_1] of [quant,_2,try,tries] used',$tries,$maxtries).')';
+ $triesString = '('.&mt('[_1] of [quant,_2,try,tries] used',$tries,$maxtries).')';
if ($maxtries > 1 && $maxtries - $tries == 1) {
$triesString = "$triesString";
}
@@ -983,7 +983,7 @@ sub render_resource {
($resource->symb=~/\_\_\_[^\_]+\_\_\_uploaded/)) {
my $icon = &Apache::loncommon::lonhttpdurl('/res/adm/pages').'/editmap.png';
$editmapLink=' '.
- ''.
+ ''.
'
'.
'';
}
@@ -996,7 +996,7 @@ sub render_resource {
$nonLinkedText .= ' ('.&mt('conditionally hidden').') ';
}
if (($resource->is_practice()) && ($resource->is_raw_problem())) {
- $nonLinkedText .=' '.&mt('not graded').'';
+ $nonLinkedText .=' '.&mt('not graded').'';
}
# We're done preparing and finally ready to start the rendering
@@ -1040,7 +1040,7 @@ sub render_resource {
}
if (!$params->{'resource_nolink'} && !$resource->is_sequence() && !$resource->is_empty_sequence) {
- $result .= "$curMarkerBegin$title$partLabel$curMarkerEnd$nonLinkedText";
+ $result .= "$curMarkerBegin$title$partLabel$curMarkerEnd$editmapLink$nonLinkedText";
} else {
$result .= "$curMarkerBegin$linkopen$title$partLabel$curMarkerEnd$editmapLink$nonLinkedText";
}
@@ -1129,21 +1129,23 @@ sub render_long_status {
$params->{'multipart'} && $part eq "0";
my $color;
+ my $info = '';
if ($resource->is_problem() || $resource->is_practice()) {
$color = $colormap{$resource->status};
if (dueInLessThan24Hours($resource, $part) ||
lastTry($resource, $part)) {
$color = $hurryUpColor;
+ $info = ' title="'.&mt('Due in less than 24 hours!').'"';
}
}
if ($resource->kind() eq "res" &&
$resource->is_raw_problem() &&
!$firstDisplayed) {
- if ($color) {$result .= ""; }
+ if ($color) {$result .= ''; }
$result .= getDescription($resource, $part);
- if ($color) {$result .= ""; }
+ if ($color) {$result .= ""; }
}
if ($resource->is_map() && &advancedUser() && $resource->randompick()) {
$result .= &mt('(randomly select [_1])', $resource->randompick());
@@ -1225,11 +1227,11 @@ sub render_parts_summary_status {
}
$return.= $td . $totalParts . ' parts: ';
foreach my $status (@statuses) {
- if ($overallstatus{$status}) {
- $return.="" . $overallstatus{$status} . ' '
- . $statusStrings{$status} . "";
- }
+ if ($overallstatus{$status}) {
+ $return.='' . $overallstatus{$status} . ' '
+ . $statusStrings{$status} . '';
+ }
}
$return.= $endtd;
return $return;
@@ -2009,6 +2011,7 @@ sub new {
$self->{USERNAME} = shift || $env{'user.name'};
$self->{DOMAIN} = shift || $env{'user.domain'};
+ $self->{CODE} = shift;
@@ -2025,7 +2028,7 @@ sub new {
# assume there are course hashes for the specific requested user@domamin:
#
- if (($self->{USERNAME} eq $env{'user.name'}) && ($self->{DOMAIN} eq $env{'user.domain'})) {
+ if (($self->{USERNAME} eq $env{'user.name'}) && ($self->{DOMAIN} eq $env{'user.domain'}) && !$self->{CODE}) {
# tie the nav hash
@@ -2048,7 +2051,7 @@ sub new {
$self->{PARM_HASH} = \%parmhash;
$self->{PARM_CACHE} = {};
} else {
- $self->change_user($self->{USERNAME}, $self->{DOMAIN});
+ $self->change_user($self->{USERNAME}, $self->{DOMAIN}, $self->{CODE});
}
return $self;
@@ -2061,12 +2064,14 @@ sub new {
# Parameters:
# user - New user.
# domain- Domain the user belongs to.
+# code - Anonymous CODE in use.
# Implicit inputs:
#
sub change_user {
my $self = shift;
$self->{USERNAME} = shift;
$self->{DOMAIN} = shift;
+ $self->{CODE} = shift;
# If the hashes are already tied make sure to break that bond:
@@ -2082,7 +2087,7 @@ sub change_user {
my ($cdom, $cnum) = split(/\_/, $env{'request.course.id'});
my %big_hash;
- &Apache::lonmap::loadmap($cnum, $cdom, $self->{USERNAME}, $self->{DOMAIN}, \%big_hash);
+ &Apache::lonmap::loadmap($cnum, $cdom, $self->{USERNAME}, $self->{DOMAIN}, $self->{CODE}, \%big_hash);
$self->{NAV_HASH} = \%big_hash;
@@ -4411,7 +4416,7 @@ sub resprintable {
my $partsref = $self->parts();
my @parts = @$partsref;
- if ((!defined(@parts)) || (scalar(@parts) == 0)) {
+ if (!@parts) {
return $self->printable(0);
} else {
foreach my $part (@parts) {