loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.568.4.2, 2010/02/25 04:55:30	version 1.568.4.3, 2010/12/05 17:25:10
Line 2944 sub handler {	Line 2944 sub handler {

my ($helper,$is_custom);	my ($helper,$is_custom);
if ((&Apache::loncommon::needs_gci_custom()) &&	if ((&Apache::loncommon::needs_gci_custom()) &&
($env{'request.role.domain'} eq 'gcitest')) {	($env{'request.role.domain'} =~ /^\w+citest$/)) {
if ($r->header_only) {	if ($r->header_only) {
if ($env{'browser.mathml'}) {	if ($env{'browser.mathml'}) {
&Apache::loncommon::content_type($r,'text/xml');	&Apache::loncommon::content_type($r,'text/xml');
Line 2981 sub handler {	Line 2981 sub handler {
} else {	} else {
my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};	my $cnum = $env{'course.'.$env{'request.course.id'}.'.num'};
my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};	my $cdom = $env{'course.'.$env{'request.course.id'}.'.domain'};
my @allres=$navmap->retrieveResources('/uploaded/'.$cdom.'/'.$cnum.'/default_1261144274.sequence');	my $sequence = &Apache::loncommon::get_citest_map($cdom);
	my @allres;
	if ($sequence) {
	@allres=$navmap->retrieveResources('/uploaded/'.$cdom.'/'.$cnum.'/'.$sequence);
foreach my $resource (@allres) {	foreach my $resource (@allres) {
next if ($resource->is_map());	next if ($resource->is_map());
my $symb = $resource->symb();	my $symb = $resource->symb();