loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.332, 2004/09/29 06:06:34	version 1.333, 2004/10/26 15:03:57
Line 41 use Apache::lonnavmaps;	Line 41 use Apache::lonnavmaps;
use Apache::lonratedt;	use Apache::lonratedt;
use POSIX qw(strftime);	use POSIX qw(strftime);
use Apache::lonlocal;	use Apache::lonlocal;
use GDBM_File;


my %hash;
my $LaTeXwidth = 0;	my $LaTeXwidth = 0;


Line 1474 use Data::Dumper;	Line 1471 use Data::Dumper;
sub printHelper {	sub printHelper {
my $r = shift;	my $r = shift;

if ($ENV{'request.course.id'}) {
my $fn=$ENV{'request.course.fn'};
tie(%hash,'GDBM_File',"$fn.db",&GDBM_READER(),0640);
}

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 1963 RNDSEED	Line 1955 RNDSEED

$r->print($helper->display());	$r->print($helper->display());

Apache::lonhelper::unregisterHelperTags();	&Apache::lonhelper::unregisterHelperTags();

untie %hash;

return OK;	return OK;
}	}