--- loncom/interface/lonnavmaps.pm	2009/08/15 18:46:22	1.423.2.2
+++ loncom/interface/lonnavmaps.pm	2012/07/09 18:30:46	1.444.2.4.2.1
@@ -1,7 +1,8 @@
 # The LearningOnline Network with CAPA
 # Navigate Maps Handler
 #
-# $Id: lonnavmaps.pm,v 1.423.2.2 2009/08/15 18:46:22 raeburn Exp $
+# $Id: lonnavmaps.pm,v 1.444.2.4.2.1 2012/07/09 18:30:46 raeburn Exp $
+
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -477,6 +478,7 @@ use Apache::loncommon();
 use Apache::lonenc();
 use Apache::lonlocal;
 use Apache::lonnet;
+
 use POSIX qw (floor strftime);
 use Time::HiRes qw( gettimeofday tv_interval );
 use LONCAPA;
@@ -491,7 +493,7 @@ sub NOTHING { return 3; }
 
 my $resObj = "Apache::lonnavmaps::resource";
 
-# Keep these mappings in sync with lonquickgrades, which uses the colors
+# Keep these mappings in sync with lonquickgrades, which usesthe colors
 # instead of the icons.
 my %statusIconMap = 
     (
@@ -504,10 +506,13 @@ my %statusIconMap =
      $resObj->ERROR        => ''
      );
 
-my %iconAltTags = 
-    ( 'navmap.correct.gif' => 'Correct',
-      'navmap.wrong.gif'   => 'Incorrect',
-      'navmap.open.gif'    => 'Open' );
+my %iconAltTags =   #texthash does not work here
+    ( 'navmap.correct.gif'  => 'Correct',
+      'navmap.wrong.gif'    => 'Incorrect',
+      'navmap.open.gif'     => 'Open',
+      'navmap.partial.gif'  => 'Partially Correct',
+      'navmap.ellipsis.gif' => 'Attempted',
+     );
 
 # Defines a status->color mapping, null string means don't color
 my %colormap = 
@@ -522,6 +527,7 @@ my %colormap =
       $resObj->INCORRECT              => '',
       $resObj->OPEN                   => '',
       $resObj->NOTHING_SET            => '',
+      $resObj->CREDIT_ATTEMPTED       => '',
       $resObj->ATTEMPTED              => '',
       $resObj->ANSWER_SUBMITTED       => '',
       $resObj->PARTIALLY_CORRECT      => '#006600'
@@ -597,7 +603,7 @@ sub getLinkForResource {
 	    my ($map,$id,$src)=&Apache::lonnet::decode_symb($res->symb());
 	    if ($map=~/\.page$/) {
 		my $url=&Apache::lonnet::clutter($map);
-		$anchor=&escape($src->shown_symb());
+		$anchor=&escape($res->shown_symb());
 		return ($url,$res->shown_symb(),$anchor);
 	    }
         }
@@ -695,7 +701,16 @@ sub getDescription {
         return &mt("Excused by instructor");
     }
     if ($status == $res->ATTEMPTED) {
-        return &mt("Answer submitted, not yet graded");
+        if ($res->is_anonsurvey($part) || $res->is_survey($part)) {
+            return &mt("Survey submission recorded");
+        } else {
+            return &mt("Answer submitted, not yet graded");
+        }
+    }
+    if ($status == $res->CREDIT_ATTEMPTED) {
+        if ($res->is_anonsurvey($part) || $res->is_survey($part)) {
+            return &mt("Credit for survey submission");
+        }
     }
     if ($status == $res->TRIES_LEFT) {
         my $tries = $res->tries($part);
@@ -880,11 +895,6 @@ sub render_resource {
     my $link = $params->{"resourceLink"};
 
     #  The URL part is not escaped at this point, but the symb is... 
-    #  The stuff to the left of the ? must have ' replaced by \' since
-    #  it will be quoted with ' in the href.
-
-    my ($left,$right) = split(/\?/, $link);
-    $link = $left.'?'.$right;
 
     my $src = $resource->src();
     my $it = $params->{"iterator"};
@@ -897,35 +907,32 @@ sub render_resource {
     my $location=&Apache::loncommon::lonhttpdurl("/adm/lonIcons");
     # If this is a new branch, label it so
     if ($params->{'isNewBranch'}) {
-        $newBranchText = '<img src="'.$location.'/branch.gif" border="0" alt="'.
-                         &mt('Branch').'" />';
+        $newBranchText = "<img src='$location/branch.gif' alt=".mt('Branch')." />";
     }
 
     # links to open and close the folder
 
-    
-    my $linkopen = "<a href=\"$link\">";
-
-
+    my $whitespace = $location.'/whitespace_21.gif';
+    my $linkopen = "<img src='$whitespace' alt='' />"."<a href=\"$link\">";
     my $linkclose = "</a>";
 
     # Default icon: unknown page
-    my $icon = "<img src='$location/unknown.gif' alt='' border='0' alt='&nbsp;&nbsp;' ' />";
+    my $icon = "<img class=\"LC_contentImage\" src='$location/unknown.gif' alt='' />";
     
     if ($resource->is_problem()) {
         if ($part eq '0' || $params->{'condensed'}) {
-	    $icon = '<img src="'.$location.'/';
+	    $icon = '<img class="LC_contentImage" src="'.$location.'/';
 	    if ($resource->is_task()) {
 		$icon .= 'task.gif" alt="'.&mt('Task');
 	    } else {
 		$icon .= 'problem.gif" alt="'.&mt('Problem');
 	    }
-	    $icon .='" border="0" />';
+	    $icon .='" />';
         } else {
             $icon = $params->{'indentString'};
         }
     } else {
-	$icon = "<img src='".&Apache::loncommon::icon($resource->src)."' alt='&nbsp;&nbsp;' border='0' />";
+	$icon = "<img class=\"LC_contentImage\" src='".&Apache::loncommon::icon($resource->src)."' alt='' />";
     }
 
     # Display the correct map icon to open or shut map
@@ -935,15 +942,15 @@ sub render_resource {
         if ($it->{CONDITION}) {
             $nowOpen = !$nowOpen;
         }
-
+	
 	my $folderType = $resource->is_sequence() ? 'folder' : 'page';
         my $title=$resource->title;
-        $title=~s/\"/\&quot;/g;
+		$title=~s/\"/\&qout;/g;
         if (!$params->{'resource_no_folder_link'}) {
             $icon = "navmap.$folderType." . ($nowOpen ? 'closed' : 'open') . '.gif';
-	    $icon = "<img src='$location/$icon' alt=\"".
-		($nowOpen ? &mt('Open Folder') : &mt('Close Folder')).' '.$title."\" border='0' />";
-
+            $icon = "<img src='$location/arrow." . ($nowOpen ? 'closed' : 'open') . ".gif' alt='' />"
+                    ."<img class=\"LC_contentImage\" src='$location/$icon' alt=\""
+                    .($nowOpen ? &mt('Open Folder') : &mt('Close Folder')).' '.$title."\" />";			
             $linkopen = "<a href=\"" . $params->{'url'} . '?' . 
                 $params->{'queryString'} . '&amp;filter=';
             $linkopen .= ($nowOpen xor $it->{CONDITION}) ?
@@ -958,10 +965,8 @@ sub render_resource {
 
         } else {
             # Don't allow users to manipulate folder
-            $icon = "navmap.$folderType." . ($nowOpen ? 'closed' : 'open') .
-                '.nomanip.gif';
-            $icon = "<img src='$location/$icon' alt=\"".
-		($nowOpen ? &mt('Open Folder') : &mt('Close Folder')).' '.$title."\" border='0' />";
+            $icon = "navmap.$folderType." . ($nowOpen ? 'closed' : 'open') . '.gif';
+            $icon = "<img class=\"LC_space\" src='$whitespace' alt='' />"."<img class=\"LC_contentImage\" src='$location/$icon' alt=\"".($nowOpen ? &mt('Open Folder') : &mt('Close Folder')).' '.$title."\" />";
 
             $linkopen = "";
             $linkclose = "";
@@ -977,10 +982,11 @@ sub render_resource {
     if (($resource->is_practice()) && ($resource->is_raw_problem())) {
         $nonLinkedText .=' <font color="green"><b>'.&mt('not graded').'</b></font>';
     }
- 
-    # We're done preparing and finally ready to start the rendering
-    my $result = "<td align='left' valign='middle'>";
 
+    # We're done preparing and finally ready to start the rendering
+    my $result = '<td class="LC_middle">';
+    my $newfolderType = $resource->is_sequence() ? 'folder' : 'page';
+	
     my $indentLevel = $params->{'indentLevel'};
     if ($newBranchText) { $indentLevel--; }
 
@@ -990,7 +996,6 @@ sub render_resource {
     }
 
     # Decide what to display
-
     $result .= "$newBranchText$linkopen$icon$linkclose";
     
     my $curMarkerBegin = '';
@@ -999,9 +1004,9 @@ sub render_resource {
     # Is this the current resource?
     if (!$params->{'displayedHereMarker'} && 
         $resource->symb() eq $params->{'here'} ) {
-        $curMarkerBegin = '<span class="LC_fontcolor_red LC_fontsize_large">&gt;</span>';
-        $curMarkerEnd = '<span class="LC_fontcolor_red LC_fontsize_large">&lt;</span>';
-        $params->{'displayedHereMarker'} = 1;
+        $curMarkerBegin = '<em>';
+        $curMarkerEnd = '</em>';
+	$params->{'displayedHereMarker'} = 1;
     }
 
     if ($resource->is_problem() && $part ne '0' && 
@@ -1021,9 +1026,9 @@ sub render_resource {
 	$target=' target="loncapaclient" ';
     }
     if (!$params->{'resource_nolink'} && !$resource->is_sequence() && !$resource->is_empty_sequence) {
-        $result .= "  $curMarkerBegin<a $target href=\"$link\">$title$partLabel</a>$curMarkerEnd $nonLinkedText</td>";
+        $result .= "$curMarkerBegin<a $target href=\"$link\">$title$partLabel</a>$curMarkerEnd$nonLinkedText</td>";
     } else {
-        $result .= "  $curMarkerBegin$title$partLabel$curMarkerEnd $nonLinkedText</td>";
+        $result .= "$curMarkerBegin$linkopen$title$partLabel</a>$curMarkerEnd$nonLinkedText</td>";
     }
 
     return $result;
@@ -1043,7 +1048,7 @@ sub render_communication_status {
     my $location=&Apache::loncommon::lonhttpdurl("/adm/lonMisc");
     if ($resource->hasDiscussion()) {
         $discussionHTML = $linkopen .
-            '<img alt="'.&mt('New Discussion').'" border="0" src="'.$location.'/chat.gif" />' .
+            '<img alt="'.&mt('New Discussion').'" src="'.$location.'/chat.gif" title="'.&mt('New Discussion').'"/>' .
             $linkclose;
     }
     
@@ -1053,8 +1058,7 @@ sub render_communication_status {
             if ($msgid) {
                 $feedbackHTML .= '&nbsp;<a '.$target.' href="/adm/email?display='
                     . &escape($msgid) . '">'
-                    . '<img alt="'.&mt('New E-mail').'" src="'.$location.'/feedback.gif" '
-                    . 'border="0" /></a>';
+                    . '<img alt="'.&mt('New E-mail').'" src="'.$location.'/feedback.gif" title="'.&mt('New E-mail').'"/></a>';
             }
         }
     }
@@ -1068,8 +1072,7 @@ sub render_communication_status {
                 $errorcount++;
                 $errorHTML .= '&nbsp;<a '.$target.' href="/adm/email?display='
                     . &escape($msgid) . '">'
-                    . '<img alt="'.&mt('New Error').'" src="'.$location.'/bomb.gif" '
-                    . 'border="0" /></a>';
+                    . '<img alt="'.&mt('New Error').'" src="'.$location.'/bomb.gif" title="'.&mt('New Error').'"/></a>';
             }
         }
     }
@@ -1077,8 +1080,7 @@ sub render_communication_status {
     if ($params->{'multipart'} && $part != '0') {
 	$discussionHTML = $feedbackHTML = $errorHTML = '';
     }
-
-    return "<td width=\"75\" align=\"left\" valign=\"middle\">$discussionHTML$feedbackHTML$errorHTML&nbsp;</td>";
+    return "<td class=\"LC_middle\">$discussionHTML$feedbackHTML$errorHTML&nbsp;</td>";
 
 }
 sub render_quick_status {
@@ -1094,28 +1096,28 @@ sub render_quick_status {
     }
     my $linkopen = "<a $target href=\"$link\">";
     my $linkclose = "</a>";
-
+	
+	$result .= '<td class="LC_middle">';
     if ($resource->is_problem() &&
         !$firstDisplayed) {
-	
         my $icon = $statusIconMap{$resource->simpleStatus($part)};
         my $alt = $iconAltTags{$icon};
         if ($icon) {
 	    my $location=
 		&Apache::loncommon::lonhttpdurl("/adm/lonIcons/$icon");
-            $result .= "<td valign='middle' width='50' align='right'>$linkopen<img width='25' height='25' src='$location' border='0' alt='$alt' />$linkclose</td>\n";
+		$result .= $linkopen.'<img src="'.$location.'" alt="'.&mt($alt).'" title="'.&mt($alt).'" />'.$linkclose;            
         } else {
-            $result .= "<td width='30'>&nbsp;</td>\n";
+            $result .= "&nbsp;";
         }
     } else { # not problem, no icon
-        $result .= "<td width='30'>&nbsp;</td>\n";
+        $result .= "&nbsp;";
     }
-
+	$result .= "</td>\n";
     return $result;
 }
 sub render_long_status {
     my ($resource, $part, $params) = @_;
-    my $result = "<td align='right' valign='middle'>\n";
+    my $result = '<td class="LC_middle LC_right">';
     my $firstDisplayed = !$params->{'condensed'} && 
         $params->{'multipart'} && $part eq "0";
                 
@@ -1419,7 +1421,7 @@ sub render {
     my $printKey = $args->{'printKey'};
     my $printCloseAll = $args->{'printCloseAll'};
     if (!defined($printCloseAll)) { $printCloseAll = 1; }
-
+   
     # Print key?
     if ($printKey) {
         $result .= '<table border="0" cellpadding="2" cellspacing="0">';
@@ -1445,19 +1447,22 @@ sub render {
     if ($printCloseAll && !$args->{'resource_no_folder_link'}) {
 	my ($link,$text);
         if ($condition) {
-	    $link='"navmaps?condition=0&amp;filter=&amp;'.$queryString.
-		'&here='.&escape($here).'"';
+	    $link='navmaps?condition=0&amp;filter=&amp;'.$queryString.
+		'&amp;here='.&escape($here);
 	    $text='Close all folders';
         } else {
-	    $link='"navmaps?condition=1&amp;filter=&amp;'.$queryString.
-		'&here='.&escape($here).'"';
+	    $link='navmaps?condition=1&amp;filter=&amp;'.$queryString.
+		'&amp;here='.&escape($here);
 	    $text='Open all folders';
         }
+        if ($env{'form.register'}) {
+            $link .= '&amp;register='.$env{'form.register'};
+        }
 	if ($args->{'caller'} eq 'navmapsdisplay') {
 	    &add_linkitem($args->{'linkitems'},'changefolder',
-			  'location.href='.$link,$text);
+                          "location.href='$link'",$text);
 	} else {
-	    $result.='<a href='.$link.'>'.&mt($text).'</a>';
+            $result.= '<a href="'.$link.'">'.&mt($text).'</a>';
 	}
         $result .= "\n";
     }
@@ -1473,6 +1478,9 @@ sub render {
 	<input type="hidden" name="navurl" value="$ENV{'QUERY_STRING'}" />
 	<input type="hidden" name="navtime" value="$time" />
 END
+        if ($env{'form.register'}) {
+            $result .= '<input type="hidden" name="register" value="'.$env{'form.register'}.'" />';
+        }
         if ($args->{'sort'} eq 'discussion') { 
 	    my $totdisc = 0;
 	    my $haveDisc = '';
@@ -1496,52 +1504,52 @@ END
 
     if ($args->{'caller'} eq 'navmapsdisplay') {
         $result .= '<table><tr><td>'.
-                   &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT').'</td>';
-	if ($env{'environment.remotenavmap'} ne 'on') {
-	    $result .= '<td>&nbsp;</td>'; 
-        } else {
-	    $result .= '</tr><tr>'; 
-        }
-	$result.=&show_linkitems($args->{'linkitems'});
+                   &Apache::loncommon::help_open_menu('Navigation Screen','Navigation_Screen',undef,'RAT').'</td><td>&nbsp;</td>'.
+                   '<td class="LC_middle">'.&mt('Tools:').'</td>'.
+                   &show_linkitems_toolbar($args->{'linkitems'});
         if ($args->{'sort_html'}) {
 	    if ($env{'environment.remotenavmap'} ne 'on') {
-		$result.='<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>'.
-		    '<td align="right">'.$args->{'sort_html'}.'</td></tr>';
-	    } else {
-		$result.='</tr><tr><td align="left"><br />'.
-		    $args->{'sort_html'}.'</td></tr>';
-	    }
-	}
+	        $result .= '<td>&nbsp;</td><td>&nbsp;</td><td>&nbsp;</td>'.
+                           '<td align="right">'.$args->{'sort_html'}.'</td></tr>';
+            } else {
+	        $result .= '</tr><tr><td align="left" colspan="4"><br />'.
+                           $args->{'sort_html'}.'</td></tr>';
+            }
+        } else {
+            $result .= '</tr>';
+        }
         $result .= '</table>';
     } elsif ($args->{'sort_html'}) { 
         $result.=$args->{'sort_html'}; 
     }
 
-    $result .= "<br />\n";
+    #$result .= "<br />\n";
     if ($r) {
         $r->print($result);
         $r->rflush();
         $result = "";
     }
     # End parameter setting
-            
+    
+    $result .= "<br />\n";
+
     # Data
-    $result .= '<table cellspacing="0" cellpadding="3" border="0" bgcolor="#FFFFFF">' ."\n";
+    $result.=&Apache::loncommon::start_data_table("LC_tableOfContent");    
+
     my $res = "Apache::lonnavmaps::resource";
     my %condenseStatuses =
         ( $res->NETWORK_FAILURE    => 1,
           $res->NOTHING_SET        => 1,
           $res->CORRECT            => 1 );
-    my @backgroundColors = ("#FFFFFF", "#F6F6F6");
 
     # Shared variables
     $args->{'counter'} = 0; # counts the rows
     $args->{'indentLevel'} = 0;
     $args->{'isNewBranch'} = 0;
-    $args->{'condensed'} = 0;    
-    my $location=
-	&Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace1.gif");
-    $args->{'indentString'} = setDefault($args->{'indentString'}, "<img src='$location' width='25' height='1' alt='&nbsp;&nbsp;' border='0' />");
+    $args->{'condensed'} = 0;   
+
+    my $location = &Apache::loncommon::lonhttpdurl("/adm/lonIcons/whitespace_21.gif");
+    $args->{'indentString'} = setDefault($args->{'indentString'}, "<img src='$location' alt='' />");
     $args->{'displayedHereMarker'} = 0;
 
     # If we're suppressing empty sequences, look for them here. Use DFS for speed,
@@ -1760,16 +1768,15 @@ END
 	    if (defined($anchor)) { $anchor='#'.$anchor; }
 	    my $srcHasQuestion = $src =~ /\?/;
 	    $args->{"resourceLink"} = $src.
-		($srcHasQuestion?'&':'?') .
+		($srcHasQuestion?'&amp;':'?') .
 		'symb=' . &escape($symb).$anchor;
 	}
         # Now, we've decided what parts to show. Loop through them and
         # show them.
         foreach my $part (@parts) {
             $rownum ++;
-            my $backgroundColor = $backgroundColors[$rownum % scalar(@backgroundColors)];
             
-            $result .= "  <tr bgcolor='$backgroundColor'>\n";
+            $result .= &Apache::loncommon::start_data_table_row();
 
             # Set up some data about the parts that the cols might want
             my $filter = $it->{FILTER};
@@ -1795,7 +1802,7 @@ END
                 }
                 $result .= $colHTML . "\n";
             }
-            $result .= "    </tr>\n";
+            $result .= &Apache::loncommon::end_data_table_row();
             $args->{'isNewBranch'} = 0;
         }
 
@@ -1823,16 +1830,15 @@ END
     # it's quite likely this might fix other browsers, too, and 
     # certainly won't hurt anything.
     if ($displayedJumpMarker) {
-        $result .= "
-<script>
+        $result .= &Apache::lonhtmlcommon::scripttag("
 if (location.href.indexOf('#curloc')==-1) {
     setTimeout(\"location += '#curloc';\", 0)
 }
-</script>";
+");
     }
 
-    $result .= "</table>";
-    
+    $result.=&Apache::loncommon::end_data_table();
+
     if ($r) {
         $r->print($result);
         $result = "";
@@ -1848,40 +1854,42 @@ sub add_linkitem {
     $$linkitems{$name}{'text'}=&mt($text);
 }
 
-sub show_linkitems {
-    my ($linkitems)=@_;
-    my @linkorder = ("blank","launchnav","closenav","firsthomework",
+sub show_linkitems_toolbar {
+    my ($linkitems,$condition)=@_;
+    my @linkorder = ("launchnav","closenav","firsthomework",
 		     "everything","uncompleted","changefolder","clearbubbles");
-    
-    my $result .= (<<ENDBLOCK);
-              <td align="left">
-<script type="text/javascript">
-    function changeNavDisplay () {
-	var navchoice = document.linkitems.toplink[document.linkitems.toplink.selectedIndex].value;
-ENDBLOCK
-    foreach my $link (@linkorder) {
-	$result.= "if (navchoice == '$link') {".
-	    $linkitems->{$link}{'cmd'}."}\n";
-    }
-    $result.='}
-              </script>
-                   <form name="linkitems" method="post">
-                       <span class="LC_nobreak"><select name="toplink">'."\n";
+    my $result .='<td align="left">'."\n".
+                 '<span class="LC_nobreak">'."\n".
+                 '<ul id="LC_toolbar">';
     foreach my $link (@linkorder) {
-	if (defined($linkitems->{$link})) {
-	    if ($linkitems->{$link}{'text'} ne '') {
-		$result .= ' <option value="'.$link.'">'.
-		    $linkitems->{$link}{'text'}."</option>\n";
-	    }
-	}
+        my $link_id = 'LC_content_toolbar_'.$link;
+        if (defined($linkitems->{$link})) {
+            if ($linkitems->{$link}{'text'} ne '') {
+                $linkitems->{$link}{'cmd'}=~s/"/'/g;
+                if ($linkitems->{$link}{'cmd'}) {
+                    if ($link eq 'changefolder') {
+                        if ($condition) {
+                            $link_id='LC_content_toolbar_changefolder_toggled';
+                        } else {
+                            $link_id='LC_content_toolbar_changefolder';
+                        }
+                    }
+                    $result .= '<li><a href="#" '.
+                               'onclick="'.$linkitems->{$link}{'cmd'}.'" '.
+                               'id="'.$link_id.'" '.
+                               'class="LC_toolbarItem" '.
+                               'title="'.$linkitems->{$link}{'text'}.'">'.
+                               '</a></li>'."\n";
+                }
+            }
+        }
     }
-    $result .= '</select>&nbsp;<input type="button" name="chgnav"
-                   value="Go" onClick="javascript:changeNavDisplay()" />
-                </span></form></td>'."\n";
-	
+    $result .= '</ul>'.
+               '</span></td>'."\n";
     return $result;
 }
 
+
 1;
 
 
@@ -2348,7 +2356,7 @@ resource object.
 Based on the symb of the resource, get a resource object for that
 resource. This is one of the proper ways to get a resource object.
 
-=item * B<getMapByMapPc>(map_pc):
+=item * B<getByMapPc>(map_pc):
 
 Based on the map_pc of the resource, get a resource object for
 the given map. This is one of the proper ways to get a resource object.
@@ -3486,6 +3494,8 @@ sub new {
     $self->{NAV_MAP}->{RESOURCE_CACHE}->{$self->{ID}} = $self;
     $self->{RESOURCE_ERROR} = 0;
 
+    $self->{DUEDATE_CACHE} = undef;
+
     # A hash that can be used by two-pass algorithms to store data
     # about this resource in. Not used by the resource object
     # directly.
@@ -3503,7 +3513,11 @@ sub navHash {
     my $self = shift;
     my $param = shift;
     my $id = shift;
-    return $self->{NAV_MAP}->navhash($param . ($id?$self->{ID}:""));
+    my $arg = $param . ($id?$self->{ID}:"");
+    if (defined($arg)) {
+        return $self->{NAV_MAP}->navhash($arg);
+    }
+    return;
 }
 
 =pod
@@ -3746,6 +3760,35 @@ sub is_problem {
     }
     return 0;
 }
+#
+#  The has below is the set of status that are considered 'incomplete'
+#
+my %incomplete_hash = 
+(
+ TRIES_LEFT()     => 1,
+ OPEN()           => 1,
+ ATTEMPTED()      => 1
+
+ );
+#
+#  Return tru if a problem is incomplete... for now incomplete means that
+#  any part of the problem is incomplete. 
+#  Note that if the resources is not a problem, 0 is returned.
+#
+sub is_incomplete {
+    my $self = shift;
+    if ($self->is_problem()) {
+	&Apache::lonnet::logthis('is problem');
+	foreach my $part (@{$self->parts()}) {
+	    &Apache::lonnet::logthis("$part status ".$self->status($part));
+	    if (exists($incomplete_hash{$self->status($part)})) {
+		return 1;
+	    }
+	}
+    }
+    return 0;
+       
+}
 sub is_raw_problem {
     my $self=shift;
     my $src = $self->src();
@@ -3775,13 +3818,13 @@ sub map_contains_problem {
 sub is_sequence {
     my $self=shift;
     return $self->navHash("is_map_", 1) && 
-	$self->navHash("map_type_" . $self->map_pc()) eq 'sequence';
+    $self->navHash("map_type_" . $self->map_pc()) eq 'sequence';
 }
 sub is_survey {
     my $self = shift();
     my $part = shift();
     my $type = $self->parmval('type',$part);
-    if ($type eq 'survey') {
+    if (($type eq 'survey') || ($type eq 'surveycred')) {
         return 1;
     }
     if ($self->src() =~ /\.(survey)$/) {
@@ -3789,6 +3832,15 @@ sub is_survey {
     }
     return 0;
 }
+sub is_anonsurvey {
+    my $self = shift();
+    my $part = shift();
+    my $type = $self->parmval('type',$part);
+    if (($type eq 'anonsurvey') || ($type eq 'anonsurveycred')) {
+        return 1;
+    }
+    return 0;
+}
 sub is_task {
     my $self=shift;
     my $src = $self->src();
@@ -3842,6 +3894,12 @@ resource of the map.
 
 Returns a string with the type of the map in it.
 
+=item *B<map_hierarchy>:
+
+Returns a string with a comma-separated ordered list of map_pc IDs
+for the hierarchy of maps containing a map, with the top level
+map first, then descending to deeper levels, with the enclosing map last.
+
 =back
 
 =cut
@@ -3872,6 +3930,12 @@ sub map_type {
     my $pc = $self->map_pc();
     return $self->navHash("map_type_$pc", 0);
 }
+sub map_hierarchy {
+    my $self = shift;
+    my $pc = $self->map_pc();
+    return $self->navHash("map_hierarchy_$pc", 0);
+}
+
 
 #####
 # Property queries
@@ -4009,6 +4073,9 @@ sub checkedin {
 # this should work exactly like the copy in lonhomework.pm
 sub duedate {
     (my $self, my $part) = @_;
+    if (defined ($self->{DUEDATE_CACHE}->{$part})) {
+        return $self->{DUEDATE_CACHE}->{$part};
+    }
     my $date;
     my @interval=$self->parmval("interval", $part);
     my $due_date=$self->parmval("duedate", $part);
@@ -4025,6 +4092,7 @@ sub duedate {
     } else {
 	$date = $due_date;
     }
+    $self->{DUEDATE_CACHE}->{$part} = $date;
     return $date;
 }
 sub handgrade {
@@ -4106,7 +4174,7 @@ sub slot_control {
     if (!defined($part)) { $part = '0'; }
     my $useslots = $self->parmval("useslots", $part);
     my $availablestudent = $self->parmval("availablestudent", $part);
-    my $available = $self->parmval("available", $part);
+    my $available = $self->parmval("available", $part); 
     return ($useslots,$availablestudent,$available);
 }
 
@@ -4541,7 +4609,7 @@ sub OPEN                   { return 1; }
 sub PAST_DUE_NO_ANSWER     { return 2; }
 sub PAST_DUE_ANSWER_LATER  { return 3; }
 sub ANSWER_OPEN            { return 4; }
-sub NOTHING_SET            { return 5; } 
+sub NOTHING_SET            { return 5; }
 sub NETWORK_FAILURE        { return 100; }
 
 # getDateStatus gets the date status for a given problem part. 
@@ -4627,6 +4695,10 @@ Information not available due to network
 
 Attempted, and not yet graded.
 
+=item * B<CREDIT_ATTEMPTED>:
+
+Attempted, and credit received for attempt (survey and anonymous survey only).
+
 =back
 
 =cut
@@ -4638,6 +4710,7 @@ sub CORRECT               { return 13; }
 sub CORRECT_BY_OVERRIDE   { return 14; }
 sub EXCUSED               { return 15; }
 sub ATTEMPTED             { return 16; }
+sub CREDIT_ATTEMPTED      { return 17; }
 
 sub getCompletionStatus {
     my $self = shift;
@@ -4656,6 +4729,13 @@ sub getCompletionStatus {
     if ($status eq 'incorrect_by_override') {return $self->INCORRECT_BY_OVERRIDE; }
     if ($status eq 'excused') {return $self->EXCUSED; }
     if ($status eq 'ungraded_attempted') {return $self->ATTEMPTED; }
+    if ($status eq 'credit_attempted') {
+        if ($self->is_anonsurvey($part) || $self->is_survey($part)) {
+            return $self->CREDIT_ATTEMPTED;
+        } else {
+            return $self->ATTEMPTED;
+        }
+    }
     return $self->NOT_ATTEMPTED;
 }
 
@@ -4745,6 +4825,10 @@ The item is open and not yet tried.
 
 The problem has been attempted.
 
+=item * B<CREDIT_ATTEMPTED>:
+
+The problem has been attempted, and credit given for the attempt (survey and anonymous survey only).
+
 =item * B<ANSWER_SUBMITTED>:
 
 An answer has been submitted, but the student should not see it.
@@ -4753,9 +4837,9 @@ An answer has been submitted, but the st
 
 =cut
 
-sub TRIES_LEFT       { return 20; }
-sub ANSWER_SUBMITTED { return 21; }
-sub PARTIALLY_CORRECT{ return 22; }
+sub TRIES_LEFT        { return 20; }
+sub ANSWER_SUBMITTED  { return 21; }
+sub PARTIALLY_CORRECT { return 22; }
 
 sub RESERVED_LATER    { return 30; }
 sub RESERVED          { return 31; }
@@ -4818,6 +4902,10 @@ sub status {
         return ATTEMPTED;
     }
 
+    if ($completionStatus == CREDIT_ATTEMPTED) {
+        return CREDIT_ATTEMPTED;
+    }
+
     # If it's EXCUSED, then return that no matter what
     if ($completionStatus == EXCUSED) {
         return EXCUSED; 
@@ -4898,11 +4986,11 @@ sub check_for_slot {
                                     if (!&Apache::loncommon::check_ip_acc($ip)) {
                                         return (RESERVED_LOCATION,$ip,$slot_name);
                                     }
-                                }
+                                } 
                                 if (@proctors > 0) {
                                     unless ((grep(/^\Q$checkedin\E/,@proctors)) &&
                                         ($checkedinslot eq $slot_name)) {
-                                        return (NEEDS_CHECKIN,undef,$slot_name);
+                                        return (NEEDS_CHECKIN,undef,$slot_name); 
                                     }
                                 }
                                 return (RESERVED,$end,$slot_name);
@@ -4918,19 +5006,19 @@ sub check_for_slot {
             my ($is_correct,$got_grade);
             if ($self->is_task()) {
                 my $taskstatus = $self->taskstatus();
-                $is_correct = (($taskstatus eq 'pass') ||
+                $is_correct = (($taskstatus eq 'pass') || 
                                ($self->solved() =~ /^correct_/));
-                $got_grade = ($self->solved() =~ /^(?:pass|fail)$/);
+                $got_grade = ($taskstatus =~ /^(?:pass|fail)$/);
             } else {
                 $got_grade = 1;
-                $is_correct = ($self->solved() =~ /^correct_/);
+                $is_correct = ($self->solved() =~ /^correct_/);   
             }
             ($checkedin,$checkedinslot) = $self->checkedin();
             if ($checkedin) {
                 if (!$got_grade) {
                     return (WAITING_FOR_GRADE);
                 } elsif ($is_correct) {
-                    return (CORRECT);
+                    return (CORRECT); 
                 }
             }
             return(NOT_IN_A_SLOT);
@@ -5010,6 +5098,7 @@ my %compositeToSimple =
       INCORRECT()             => INCORRECT,
       OPEN()                  => OPEN,
       ATTEMPTED()             => ATTEMPTED,
+      CREDIT_ATTEMPTED()      => CORRECT,
       ANSWER_SUBMITTED()      => ATTEMPTED
      );
 
@@ -5083,8 +5172,9 @@ sub completable {
         # "If any of the parts are open, or have tries left (implies open),
         # and it is not "attempted" (manually graded problem), it is
         # not "complete"
-	if ($self->getCompletionStatus($part) == ATTEMPTED() ||
-	    $status == ANSWER_SUBMITTED() ) {
+        if ($self->getCompletionStatus($part) == ATTEMPTED() ||
+            $self->getCompletionStatus($part) == CREDIT_ATTEMPTED() ||
+            $status == ANSWER_SUBMITTED() ) {
 	    # did this part already, as well as we can
 	    next;
 	}