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; |
} |
} |
|
|