version 1.163, 2003/05/12 20:29:39
|
version 1.165, 2003/05/13 20:42:39
|
Line 1380 ENDPART
|
Line 1380 ENDPART
|
$moreenv{'form.textwidth'}=$LaTeXwidth; |
$moreenv{'form.textwidth'}=$LaTeXwidth; |
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
my $texversion=&Apache::lonnet::ssi($currentURL); |
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') { |
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
$moreenv{'form.grade_target'}='answer'; |
$moreenv{'form.grade_target'}='answer'; |
|
$moreenv{'form.print_answer'}='yes'; |
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
my $answer=&Apache::lonnet::ssi($currentURL); |
my $answer=&Apache::lonnet::ssi($currentURL); |
&Apache::lonnet::delenv('form.grade_target'); |
&Apache::lonnet::delenv('form.grade_target'); |
my $start=index($answer,'<table',0); |
&Apache::lonnet::delenv('form.print_answer'); |
my $finish=index($answer,'</table>',$start); |
|
if ($start!=-1 && $finish!=-1) {$answer=substr($answer,$start,$finish-$start+8);} |
|
$answer=~s/<\/td>\s*<td>/ \\\\ \\hline /g; |
|
$answer=~s/<table([^>]*)>/\\vskip 0 mm \\begin{tabular}{|c|}\\hline /; |
|
$answer=~s/<\/table>/\\end{tabular}\\vskip 0 mm/; |
|
$answer=~s/<tr>\s*<td>//; |
|
$answer=~s/<\/td>\s*<\/tr>/\\\\ \\hline /; |
|
$answer=~s/<b>([^\#]*)<\/b>/\\verb|$1|/; |
|
$answer=~s/<i>([^\#]*)<\/i>/\\textit{$1}/; |
|
# $r->print('<pre>'.$answer.'</pre>'); return OK; |
# $r->print('<pre>'.$answer.'</pre>'); return OK; |
$texversion=~s/(\\end{document})/$answer$1/; |
$texversion=~s/(\\end{document})/$answer$1/; |
} |
} |
Line 1435 ENDPART
|
Line 1429 ENDPART
|
&Apache::lonnet::appenv(%moreenv); |
&Apache::lonnet::appenv(%moreenv); |
#&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,('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$/) { |
if ($urlp=~/\.page$/) { |
($texversion,my $number_of_columns_page) = &page_cleanup($texversion); |
($texversion,my $number_of_columns_page) = &page_cleanup($texversion); |
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} |
if ($number_of_columns_page > $number_of_columns) {$number_of_columns=$number_of_columns_page;} |
Line 1522 ENDPART
|
Line 1517 ENDPART
|
$urlp =~ s|^/home/httpd/html||; |
$urlp =~ s|^/home/httpd/html||; |
} |
} |
my $texversion=&Apache::lonnet::ssi($urlp); |
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 |
#this chunck is responsible for printing the path to problem |
my $newurlp = ''; |
my $newurlp = ''; |
my $HowMany = length($urlp)*2; |
my $HowMany = length($urlp)*2; |