--- loncom/interface/lonprintout.pm 2003/05/12 20:29:39 1.163
+++ loncom/interface/lonprintout.pm 2003/05/13 20:42:39 1.165
@@ -1,7 +1,7 @@
# The LearningOnline Network
# Printout
#
-# $Id: lonprintout.pm,v 1.163 2003/05/12 20:29:39 sakharuk Exp $
+# $Id: lonprintout.pm,v 1.165 2003/05/13 20:42:39 sakharuk Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -1380,22 +1380,16 @@ ENDPART
$moreenv{'form.textwidth'}=$LaTeXwidth;
&Apache::lonnet::appenv(%moreenv);
my $texversion=&Apache::lonnet::ssi($currentURL);
- &Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter');
+ &Apache::lonnet::delenv('form.grade_target');
+ &Apache::lonnet::delenv('form.textwidth');
+ &Apache::lonnet::delenv('form.counter');
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
$moreenv{'form.grade_target'}='answer';
+ $moreenv{'form.print_answer'}='yes';
&Apache::lonnet::appenv(%moreenv);
my $answer=&Apache::lonnet::ssi($currentURL);
&Apache::lonnet::delenv('form.grade_target');
- my $start=index($answer,'
',$start);
- if ($start!=-1 && $finish!=-1) {$answer=substr($answer,$start,$finish-$start+8);}
- $answer=~s/<\/td>\s*/ \\\\ \\hline /g;
- $answer=~s/]*)>/\\vskip 0 mm \\begin{tabular}{|c|}\\hline /;
- $answer=~s/<\/table>/\\end{tabular}\\vskip 0 mm/;
- $answer=~s/\s*//;
- $answer=~s/<\/td>\s*<\/tr>/\\\\ \\hline /;
- $answer=~s/([^\#]*)<\/b>/\\verb|$1|/;
- $answer=~s/([^\#]*)<\/i>/\\textit{$1}/;
+ &Apache::lonnet::delenv('form.print_answer');
# $r->print(''.$answer.' '); return OK;
$texversion=~s/(\\end{document})/$answer$1/;
}
@@ -1435,7 +1429,8 @@ ENDPART
&Apache::lonnet::appenv(%moreenv);
#&Apache::lonnet::logthis("Trying to get $urlp with symb $master_seq[$i]");
my $texversion=&Apache::lonnet::ssi($urlp,('symb'=>$master_seq[$i]));
- &Apache::lonnet::delenv('form.grade_target','form.textwidth');
+ &Apache::lonnet::delenv('form.grade_target');
+ &Apache::lonnet::delenv('form.textwidth');
if ($urlp=~/\.page$/) {
($texversion,my $number_of_columns_page) = &page_cleanup($texversion);
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;}
@@ -1522,7 +1517,8 @@ ENDPART
$urlp =~ s|^/home/httpd/html||;
}
my $texversion=&Apache::lonnet::ssi($urlp);
- &Apache::lonnet::delenv('form.grade_target','form.textwidth');
+ &Apache::lonnet::delenv('form.grade_target');
+ &Apache::lonnet::delenv('form.textwidth');
#this chunck is responsible for printing the path to problem
my $newurlp = '';
my $HowMany = length($urlp)*2;
| |