loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

Diff for /loncom/interface/lonprintout.pm between versions 1.166 and 1.169

version 1.166, 2003/05/14 13:10:11	version 1.169, 2003/05/14 17:33:59
Line 486 ENDPART	Line 486 ENDPART
}	}
$moreenv{'request.filename'}=$ENV{'form.url'};	$moreenv{'request.filename'}=$ENV{'form.url'};
my %form;	my %form;
$from{'textwidth'}=$LaTeXwidth;	$form{'textwidth'}=$LaTeXwidth;
$form{'grade_target'}='tex';	$form{'grade_target'}='tex';
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
my $texversion=&Apache::lonnet::ssi($ENV{'form.url'},%form);	my $texversion=&Apache::lonnet::ssi($ENV{'form.url'},%form);
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');
&Apache::lonnet::delenv('request.filename');	&Apache::lonnet::delenv('request.filename');
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{'print_answer'}='yes';	$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/;

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>

Removed from v.1.166
changed lines
	Added in v.1.169