--- loncom/interface/lonstatistics.pm 2010/11/09 15:01:53 1.148.2.6 +++ 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.6 2010/11/09 15:01:53 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();