loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.183, 2003/05/15 21:51:00	version 1.184, 2003/05/27 19:00:35
Line 500 sub latex_corrections {	Line 500 sub latex_corrections {


sub output_data {	sub output_data {
my ($r,$helper) = @_;	my ($r,$helper,$rparmhash) = @_;
	my %parmhash = %$rparmhash;
$r->print(<<ENDPART);	$r->print(<<ENDPART);
<html>	<html>
<head>	<head>
Line 599 ENDPART	Line 600 ENDPART
$form{'grade_target'}='tex';	$form{'grade_target'}='tex';
$form{'textwidth'}=$LaTeXwidth;	$form{'textwidth'}=$LaTeXwidth;
$form{'symb'}=$master_seq[$i];	$form{'symb'}=$master_seq[$i];
	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");	#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
my $texversion=&Apache::lonnet::ssi($urlp,%form);	my $texversion=&Apache::lonnet::ssi($urlp,%form);
if ($urlp=~/\.page$/) {	if ($urlp=~/\.page$/) {
Line 797 sub handler {	Line 799 sub handler {
# $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');	# $r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />');
# }	# }
# return OK;	# return OK;

&output_data($r,$helper);	my %parmhash=&Apache::lonnet::coursedescription($ENV{'request.course.id'});
	# $r->print('<br /> START '.$ENV{'request.course.fn'}.' FINISH <br />');
	# my $key;
	# foreach $key (keys %parmhash) {
	# $r->print(' '.$key.'->'.$parmhash{$key}.'<-<br />');
	# }
	# return OK;


	&output_data($r,$helper,\%parmhash);
return OK;	return OK;
}	}