loncom/interface/lonindexer.pm - diff

Return to lonindexer.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.135, 2005/06/17 20:15:51	version 1.138, 2006/02/07 19:46:30
Line 347 END	Line 347 END
}	}

# ---------------------------------------------------------------- Print Header	# ---------------------------------------------------------------- Print Header
my $html='<html>';#&Apache::lonxml::xmlbegin();	my $html=&Apache::lonxml::xmlbegin();
$r->print(<<ENDHEADER);	$r->print(<<ENDHEADER);
$html	$html
<head>	<head>
Line 1073 sub display_line {	Line 1073 sub display_line {
close(FH);	close(FH);
} else {	} else {
$output=&Apache::lonnet::ssi_body($filelink);	$output=&Apache::lonnet::ssi_body($filelink);
open(FH,">$cache");	if ($output=~/LONCAPAACCESSCONTROLERRORSCREEN/) {
print FH $output;	$output='';
close(FH);	} else {
	open(FH,">$cache");
	print FH $output;
	close(FH);
	}
}	}
$output='<font size="-2">'.$output.'</font>';	$output='<font size="-2">'.$output.'</font>';
} elsif ($embstyle eq 'img') {	} elsif ($embstyle eq 'img') {
Line 1237 sub cleanup {	Line 1241 sub cleanup {
if (tied(%hash)){	if (tied(%hash)){
&Apache::lonnet::logthis('Cleanup indexer: hash');	&Apache::lonnet::logthis('Cleanup indexer: hash');
}	}
	return OK;
}	}