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.202 and 1.203

version 1.202, 2003/07/10 20:39:08	version 1.203, 2003/07/14 14:30:35
Line 627 ENDPART	Line 627 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{'problem_split'}=$parmhash{'problem_stream_switch'};
	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
my $rndseed=time;	my $rndseed=time;
$form{'rndseed'}=$rndseed;	$form{'rndseed'}=$rndseed;
&Apache::lonnet::appenv(%moreenv);	&Apache::lonnet::appenv(%moreenv);
Line 665 ENDPART	Line 666 ENDPART
$form{'grade_target'}='tex';	$form{'grade_target'}='tex';
$form{'textwidth'}=$LaTeXwidth;	$form{'textwidth'}=$LaTeXwidth;
$form{'problem_split'}=$parmhash{'problem_stream_switch'};	$form{'problem_split'}=$parmhash{'problem_stream_switch'};
	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
my $flag_latex_header_remove = 'NO';	my $flag_latex_header_remove = 'NO';
my $flag_page_in_sequence = 'NO';	my $flag_page_in_sequence = 'NO';
my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};	my @master_seq=split /\\|\\|\\|/, $helper->{'VARS'}->{'RESOURCES'};
Line 756 ENDPART	Line 758 ENDPART
if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {	if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
my %form;	my %form;
$form{'answer_output_mode'}='tex';	$form{'answer_output_mode'}='tex';
	$form{'latex_type'}=$helper->{'VARS'}->{'LATEX_TYPE'};
my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form);	my $ansrendered = &Apache::loncommon::get_student_answers($curresline,$username,$userdomain,$ENV{'request.course.id'},%form);
$rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;	$rendered=~s/(\\keephidden{ENDOFPROBLEM})/$ansrendered$1/;
}	}
Line 805 ENDPART	Line 808 ENDPART
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;
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 1158 CHOOSE_FROM_SUBDIR	Line 1162 CHOOSE_FROM_SUBDIR
['Print with answers', 'no'] ];	['Print with answers', 'no'] ];
Apache::lonhelper::choices->new();	Apache::lonhelper::choices->new();
}	}
	if ($ENV{'request.role.adv'}) {
	$paramHash = Apache::lonhelper::getParamHash();
	$paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Another option available only for advanced users:</i></b></big><br />";
	Apache::lonhelper::message->new();
	$paramHash = Apache::lonhelper::getParamHash();
	$paramHash->{'variable'} = 'LATEX_TYPE';
	$helper->declareVar('LATEX_TYPE');
	if ($helper->{VARS}->{'construction'} eq '1') {
	$paramHash->{CHOICES} = [
	['Print in standard LaTeX mode', 'standard'],
	['Print in LaTeX batchmode', 'batchmode'], ];
	} else {
	$paramHash->{CHOICES} = [
	['Print in LaTeX batchmode', 'batchmode'],
	['Print in standard LaTeX mode', 'standard'] ];
	}
	Apache::lonhelper::choices->new();
	}

Apache::lonprintout::page_format_state->new("FORMAT");	Apache::lonprintout::page_format_state->new("FORMAT");

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

Removed from v.1.202
changed lines
	Added in v.1.203