version 1.162, 2003/05/12 18:47:07
|
version 1.163, 2003/05/12 20:29:39
|
Line 1381 ENDPART
|
Line 1381 ENDPART
|
&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','form.textwidth','form.counter'); |
|
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
|
$moreenv{'form.grade_target'}='answer'; |
|
&Apache::lonnet::appenv(%moreenv); |
|
my $answer=&Apache::lonnet::ssi($currentURL); |
|
&Apache::lonnet::delenv('form.grade_target'); |
|
my $start=index($answer,'<table',0); |
|
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; |
|
$texversion=~s/(\\end{document})/$answer$1/; |
|
} |
$result .= $texversion; |
$result .= $texversion; |
if ($currentURL=~m/\.page\s*$/) { |
if ($currentURL=~m/\.page\s*$/) { |
($result,$number_of_columns) = &page_cleanup($result); |
($result,$number_of_columns) = &page_cleanup($result); |
Line 1587 sub handler {
|
Line 1605 sub handler {
|
foreach $key (keys %{$helper->{'VARS'}}) { |
foreach $key (keys %{$helper->{'VARS'}}) { |
$r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />'); |
$r->print(' '.$key.'->'.$helper->{'VARS'}->{$key}.'<-<br />'); |
} |
} |
return OK; |
# return OK; |
|
|
|
|
&output_data_new($r,$helper); |
&output_data_new($r,$helper); |
Line 1893 CHOOSE_FROM_SUBDIR
|
Line 1911 CHOOSE_FROM_SUBDIR
|
$paramHash->{'variable'} = 'ANSWER_TYPE'; |
$paramHash->{'variable'} = 'ANSWER_TYPE'; |
$helper->declareVar('ANSWER_TYPE'); |
$helper->declareVar('ANSWER_TYPE'); |
$paramHash->{CHOICES} = [ |
$paramHash->{CHOICES} = [ |
['Print without answer', '1'], |
['Print without answer', 'yes'], |
['Print with answers', '0'] ]; |
['Print with answers', 'no'] ]; |
Apache::lonhelper::choices->new(); |
Apache::lonhelper::choices->new(); |
} |
} |
|
|