version 1.13, 2002/01/22 10:42:57
|
version 1.15, 2002/02/21 04:13:20
|
Line 96 ENDPART
|
Line 96 ENDPART
|
my $filename; |
my $filename; |
|
|
if ($choice eq 'Standard LaTeX output for current document') { |
if ($choice eq 'Standard LaTeX output for current document') { |
$_ = $ENV{'form.url'}; |
my %moreenv; |
if (/\.problem/) { |
my $currequest=$ENV{'request.filename'}; |
my %moreenv; |
$moreenv{'form.grade_target'}='tex'; |
$moreenv{'form.grade_target'}='tex'; |
$moreenv{'request.filename'}=$ENV{'form.url'}; |
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
my $texversion=&Apache::lonnet::ssi($ENV{'form.url'}); |
my $texversion=&Apache::lonnet::ssi($ENV{'form.url'}); |
&Apache::lonnet::delenv('form.grade_target'); |
&Apache::lonnet::delenv('form.grade_target'); |
$texversion =~ s!\.gif!\.eps!; |
%moreenv = (); |
$result .= $texversion; |
$moreenv{'request.filename'}=$currequest; |
} else { |
&Apache::lonnet::appenv(%moreenv); |
my $file=&Apache::lonnet::filelocation("",$ENV{'form.url'}); |
$result .= $texversion; |
my $filecontents=&Apache::lonnet::getfile($file); |
|
$result = &Apache::lonxml::xmlparse('tex',$filecontents,'',%mystyle); |
|
} |
|
} elsif ($choice eq 'Standard LaTeX output for the primary sequence') { |
} elsif ($choice eq 'Standard LaTeX output for the primary sequence') { |
my @master_seq = (); |
my @master_seq = (); |
my $keyword = 0; |
my $keyword = 0; |