|
version 1.163, 2003/05/12 20:29:39
|
version 1.164, 2003/05/13 15:28:32
|
|
Line 1383 ENDPART
|
Line 1383 ENDPART
|
| &Apache::lonnet::delenv('form.grade_target','form.textwidth','form.counter'); |
&Apache::lonnet::delenv('form.grade_target','form.textwidth','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','form.print_answer'); |
| my $start=index($answer,'<table',0); |
my $start=index($answer,'\vskip 0 mm',0); |
| my $finish=index($answer,'</table>',$start); |
my $finish=rindex $answer,'\vskip 0 mm' ; |
| if ($start!=-1 && $finish!=-1) {$answer=substr($answer,$start,$finish-$start+8);} |
if ($start!=-1 && $finish!=-1) {$answer=substr($answer,$start,$finish-$start+12);} |
| $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/; |
| } |
} |
![[BACK]](/icons/back.gif){kind=icon}
Return to lonprintout.pm CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface