loncom/interface/lonstatistics.pm - diff

Return to lonstatistics.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.148.2.6, 2010/11/09 15:01:53	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();