--- loncom/interface/lonstatistics.pm	2010/09/12 17:40:33	1.148.2.5
+++ loncom/interface/lonstatistics.pm	2010/12/05 17:27:30	1.148.2.7
@@ -1,6 +1,6 @@
 # The LearningOnline Network with CAPA
 #
-# $Id: lonstatistics.pm,v 1.148.2.5 2010/09/12 17:40:33 raeburn Exp $
+# $Id: lonstatistics.pm,v 1.148.2.7 2010/12/05 17:27:30 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -460,7 +460,14 @@ sub selected_sequences_with_assessments
     if (&Apache::loncommon::needs_gci_custom()) {
         my $cid = $env{'request.course.id'};
         if ($cid) {
-            $mapurl = '/uploaded/'.$env{'course.'.$cid.'.domain'}.'/'.$env{'course.'.$cid.'.num'}.'/default_1261144274.sequence';
+            my $cdom = $env{'course.'.$cid.'.domain'};
+            if ($cdom =~ /^\w+citest$/) {
+                my $sequence = &Apache::loncommon::get_citest_map($cdom);
+                my $cnum = $env{'course.'.$cid.'.num'};  
+                if ($sequence) {
+                    $mapurl = '/uploaded/'.$cdom.'/'.$cnum.'/'.$sequence;
+                }
+            }
         }
     }
     my @sequences = $navmap->retrieveResources($mapurl,
@@ -814,8 +821,6 @@ return &Apache::lonhtmlcommon::generate_
  
 }
 
-
-
 sub handler {
     my $r=shift;
     my $c = $r->connection();
@@ -853,7 +858,11 @@ sub handler {
         my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
         my $duedate = $courseopt->{$env{'request.course.id'}.'.0.duedate'};
         if ((!$duedate) || ($duedate > $now)) {
-            $r->print(&Apache::loncommon::start_page("Course Statistics"));
+            my $brcrum = [{href=> '/adm/statistics',
+                           text=> 'Statistics',}];
+            my $args = {bread_crumbs           => $brcrum,
+                        bread_crumbs_component => 'Statistics Main Page'};
+            $r->print(&Apache::loncommon::start_page('Course Statistics',undef,$args));
             $r->print('<h3>'.&mt('Display of statistics').'</h3>');
             if ($duedate > $now) { 
                 $r->print('<p>'.&mt('Aggregate test performance data will be available after the Concept Test end date: [_1].',