loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.169, 2003/05/14 17:33:59	version 1.170, 2003/05/14 18:06:36
Line 1388 ENDPART	Line 1388 ENDPART
$form{'rndseed'}=$rndseed;	$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/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
}	}
$result .= $texversion;	$result .= $texversion;
if ($currentURL=~m/\.page\s*$/) {	if ($currentURL=~m/\.page\s*$/) {
Line 1891 CHOOSE_FROM_SUBDIR	Line 1891 CHOOSE_FROM_SUBDIR
$paramHash->{CHOICES} = $printChoices;	$paramHash->{CHOICES} = $printChoices;
Apache::lonhelper::choices->new();	Apache::lonhelper::choices->new();

if ($ENV{'request.role.adv'}) {	if (($ENV{'request.role.adv'} and &Apache::lonnet::allowed('vgr',$ENV{'request.course.id'})) or
	($helper->{VARS}->{'construction'} eq '1')) {
$paramHash = Apache::lonhelper::getParamHash();	$paramHash = Apache::lonhelper::getParamHash();
$paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />";	$paramHash->{MESSAGE_TEXT} = "<br /><big><b><i>Next option is available only for advanced users:</i></b></big><br />";
Apache::lonhelper::message->new();	Apache::lonhelper::message->new();