version 1.231, 2003/09/06 17:22:27
|
version 1.232, 2003/09/09 13:31:08
|
Line 715 ENDPART
|
Line 715 ENDPART
|
my %form; |
my %form; |
$form{'grade_target'}='tex'; |
$form{'grade_target'}='tex'; |
$form{'textwidth'}=$LaTeXwidth; |
$form{'textwidth'}=$LaTeXwidth; |
|
$form{'problem_split'}=$parmhash{'problem_stream_switch'}; |
|
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
$form{'rndseed'}=$rndseed; |
$form{'rndseed'}=$rndseed; |
my $texversion=&Apache::lonnet::ssi($urlp,%form); |
my $texversion=&Apache::lonnet::ssi($urlp,%form); |
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') { |
my %form; |
my %form; |
$form{'grade_target'}='answer'; |
$form{'grade_target'}='answer'; |
$form{'answer_output_mode'}='tex'; |
$form{'answer_output_mode'}='tex'; |
$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'}; |
|
$form{'rndseed'}=$rndseed; |
$form{'rndseed'}=$rndseed; |
|
if ($urlp=~/\/res\//) {$ENV{'request.state'}='published';} |
|
####my $answer=' SSSSSS '.$ENV{'request.state'}.' FFFFFFF '; |
my $answer=&Apache::lonnet::ssi($urlp,%form); |
my $answer=&Apache::lonnet::ssi($urlp,%form); |
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/; |
} |
} |
Line 734 ENDPART
|
Line 737 ENDPART
|
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') { |
$texversion=&IndexCreation($texversion,$urlp); |
$texversion=&IndexCreation($texversion,$urlp); |
} |
} |
if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URL'} eq 'yes') { |
if ($helper->{'VARS'}->{'CONSTR_RESOURSE_URpL'} eq 'yes') { |
$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /; |
$texversion=~s/(\\addcontentsline\{toc\}\{subsection\}\{[^\}]*\})/$1 URL: \\verb|$urlp| \\strut\\\\\\strut /; |
} |
} |
$result.=$texversion; |
$result.=$texversion; |