loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.168, 2003/05/14 13:33:27	version 1.169, 2003/05/14 17:33:59
Line 1375 ENDPART	Line 1375 ENDPART
my %form;	my %form;
$form{'grade_target'}='tex';	$form{'grade_target'}='tex';
$form{'textwidth'}=$LaTeXwidth;	$form{'textwidth'}=$LaTeXwidth;
	my $rndseed=time;
	$form{'rndseed'}=$rndseed;
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
my $texversion=&Apache::lonnet::ssi($currentURL,%form);	my $texversion=&Apache::lonnet::ssi($currentURL,%form);
&Apache::lonnet::delenv('form.counter');	&Apache::lonnet::delenv('form.counter');
Line 1383 ENDPART	Line 1385 ENDPART
my %form;	my %form;
$form{'grade_target'}='answer';	$form{'grade_target'}='answer';
$form{'answer_output_mode'}='tex';	$form{'answer_output_mode'}='tex';
	$form{'rndseed'}=$rndseed;
my $answer=&Apache::lonnet::ssi($currentURL,%form);	my $answer=&Apache::lonnet::ssi($currentURL,%form);
# $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/;