--- loncom/interface/lonnavmaps.pm	2010/11/17 22:46:27	1.451
+++ loncom/interface/lonnavmaps.pm	2010/12/03 16:17:27	1.454
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.451 2010/11/17 22:46:27 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.454 2010/12/03 16:17:27 www Exp $
 
 #
 # Copyright Michigan State University Board of Trustees
@@ -1090,9 +1090,10 @@ sub render_long_status {
         }
     }
     
-    if ($resource->kind() eq "res" &&
+    if (($resource->kind() eq "res" &&
         ($resource->is_problem() || $resource->is_practice()) &&
-        !$firstDisplayed) {
+        !$firstDisplayed) &&
+        $resource->is_raw_problem()) {
         if ($color) {$result .= "<font color=\"$color\"><b>"; }
         $result .= getDescription($resource, $part);
         if ($color) {$result .= "</b></font>"; }
@@ -1930,6 +1931,9 @@ sub new {
     my $class = ref($proto) || $proto;
     my $self = {};
 
+    $self->{USERNAME} = shift || $env{'user.name'};
+    $self->{DOMAIN}   = shift || $env{'user.domain'};
+
     # Resource cache stores navmap resources as we reference them. We generate
     # them on-demand so we don't pay for creating resources unless we use them.
     $self->{RESOURCE_CACHE} = {};
@@ -1968,8 +1972,9 @@ sub generate_course_user_opt {
     my $self = shift;
     if ($self->{COURSE_USER_OPT_GENERATED}) { return; }
 
-    my $uname=$env{'user.name'};
-    my $udom=$env{'user.domain'};
+    my $uname=$self->{USERNAME};
+    my $udom=$self->{DOMAIN};
+
     my $cid=$env{'request.course.id'};
     my $cdom=$env{'course.'.$cid.'.domain'};
     my $cnum=$env{'course.'.$cid.'.num'};
@@ -2012,7 +2017,7 @@ sub generate_email_discuss_status {
     my $cdom=$env{'course.'.$cid.'.domain'};
     my $cnum=$env{'course.'.$cid.'.num'};
     
-    my %emailstatus = &Apache::lonnet::dump('email_status');
+    my %emailstatus = &Apache::lonnet::dump('email_status',$self->{DOMAIN},$self->{USERNAME});
     my $logoutTime = $emailstatus{'logout'};
     my $courseLeaveTime = $emailstatus{'logout_'.$env{'request.course.id'}};
     $self->{LAST_CHECK} = (($courseLeaveTime > $logoutTime) ?
@@ -2020,7 +2025,7 @@ sub generate_email_discuss_status {
     my %discussiontime = &Apache::lonnet::dump('discussiontimes', 
 					       $cdom, $cnum);
     my %lastread = &Apache::lonnet::dump('nohist_'.$cid.'_discuss',
-                                        $env{'user.domain'},$env{'user.name'},'lastread');
+                                        $self->{DOMAIN},$self->{USERNAME},'lastread');
     my %lastreadtime = ();
     foreach my $key (keys %lastread) {
         my $shortkey = $key;
@@ -2030,8 +2035,8 @@ sub generate_email_discuss_status {
 
     my %feedback=();
     my %error=();
-    my @keys = &Apache::lonnet::getkeys('nohist_email',$env{'user.domain'},
-					$env{'user.name'});
+    my @keys = &Apache::lonnet::getkeys('nohist_email',$self->{DOMAIN},
+					$self->{USERNAME});
     
     foreach my $msgid (@keys) {
 	if ((!$emailstatus{$msgid}) || ($emailstatus{$msgid} eq 'new')) {
@@ -2079,8 +2084,8 @@ sub get_user_data {
 
     # Retrieve performance data on problems
     my %student_data = Apache::lonnet::currentdump($env{'request.course.id'},
-						   $env{'user.domain'},
-						   $env{'user.name'});
+						   $self->{DOMAIN},
+						   $self->{USERNAME});
     $self->{STUDENT_DATA} = \%student_data;
 
     $self->{RETRIEVED_USER_DATA} = 1;
@@ -2431,8 +2436,8 @@ sub parmval_real {
         @cgrps = sort(@cgrps);
         $cgroup = $cgrps[0];
     } 
-    my $uname=$env{'user.name'};
-    my $udom=$env{'user.domain'};
+    my $uname=$self->{USERNAME};
+    my $udom=$self->{DOMAIN};
 
     unless ($symb) { return ['']; }
     my $result='';
@@ -2834,6 +2839,9 @@ sub new {
     weaken($self->{NAV_MAP} = shift);
     return undef unless ($self->{NAV_MAP});
 
+    $self->{USERNAME} = $self->{NAV_MAP}->{USERNAME};
+    $self->{DOMAIN}   = $self->{NAV_MAP}->{DOMAIN};
+
     # Handle the parameters
     $self->{FIRST_RESOURCE} = shift || $self->{NAV_MAP}->firstResource();
     $self->{FINISH_RESOURCE} = shift || $self->{NAV_MAP}->finishResource();
@@ -3207,6 +3215,9 @@ sub new {
     weaken($self->{NAV_MAP} = shift);
     return undef unless ($self->{NAV_MAP});
 
+    $self->{USERNAME} = $self->{NAV_MAP}->{USERNAME};
+    $self->{DOMAIN}   = $self->{NAV_MAP}->{DOMAIN};
+
     $self->{FIRST_RESOURCE} = shift || $self->{NAV_MAP}->firstResource();
     $self->{FINISH_RESOURCE} = shift || $self->{NAV_MAP}->finishResource();
 
@@ -3443,6 +3454,9 @@ sub new {
     weaken($self->{NAV_MAP} = shift);
     $self->{ID} = shift;
 
+    $self->{USERNAME} = $self->{NAV_MAP}->{USERNAME};
+    $self->{DOMAIN}   = $self->{NAV_MAP}->{DOMAIN};
+
     # Store this new resource in the parent nav map's cache.
     $self->{NAV_MAP}->{RESOURCE_CACHE}->{$self->{ID}} = $self;
     $self->{RESOURCE_ERROR} = 0;
@@ -4100,8 +4114,8 @@ sub weight {
     my $self = shift; my $part = shift;
     if (!defined($part)) { $part = '0'; }
     my $weight = &Apache::lonnet::EXT('resource.'.$part.'.weight',
-                                $self->symb(), $env{'user.domain'},
-                                $env{'user.name'},
+                                $self->symb(), $self->{DOMAIN},
+                                $self->{USERNAME},
                                 $env{'request.course.sec'});
     return $weight;
 }
@@ -4129,7 +4143,7 @@ sub getReturnHash {
     my $self = shift;
     
     if (!defined($self->{RETURN_HASH})) {
-        my %tmpHash  = &Apache::lonnet::restore($self->symb());
+        my %tmpHash  = &Apache::lonnet::restore($self->symb(),undef,$self->{DOMAIN},$self->{USERNAME});
         $self->{RETURN_HASH} = \%tmpHash;
     }
 }