[BACK]Return to lonstatistics.pm CVS log [TXT] [DIR] Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonstatistics.pm between versions 1.148.2.5 and 1.148.2.7

version 1.148.2.5, 2010/09/12 17:40:33 version 1.148.2.7, 2010/12/05 17:27:30
Line 460  sub selected_sequences_with_assessments Line 460  sub selected_sequences_with_assessments
     if (&Apache::loncommon::needs_gci_custom()) {      if (&Apache::loncommon::needs_gci_custom()) {
         my $cid = $env{'request.course.id'};          my $cid = $env{'request.course.id'};
         if ($cid) {          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,      my @sequences = $navmap->retrieveResources($mapurl,
Line 814  return &Apache::lonhtmlcommon::generate_ Line 821  return &Apache::lonhtmlcommon::generate_
     
 }  }
   
   
   
 sub handler {  sub handler {
     my $r=shift;      my $r=shift;
     my $c = $r->connection();      my $c = $r->connection();
Line 853  sub handler { Line 858  sub handler {
         my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);          my $courseopt=&Apache::lonnet::get_courseresdata($cnum,$cdom);
         my $duedate = $courseopt->{$env{'request.course.id'}.'.0.duedate'};          my $duedate = $courseopt->{$env{'request.course.id'}.'.0.duedate'};
         if ((!$duedate) || ($duedate > $now)) {          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>');              $r->print('<h3>'.&mt('Display of statistics').'</h3>');
             if ($duedate > $now) {               if ($duedate > $now) { 
                 $r->print('<p>'.&mt('Aggregate test performance data will be available after the Concept Test end date: [_1].',                  $r->print('<p>'.&mt('Aggregate test performance data will be available after the Concept Test end date: [_1].',
Removed from v.1.148.2.5  
changed lines
  Added in v.1.148.2.7

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>