loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.173, 2003/05/15 13:32:02	version 1.174, 2003/05/15 14:16:47
Line 1041 sub character_chart {	Line 1041 sub character_chart {
sub page_format {	sub page_format {
my ($papersize,$layout,$numberofcolumns) = @_;	my ($papersize,$layout,$numberofcolumns) = @_;
my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);	my ($textwidth,$textheight,$oddoffset,$evenoffset) = (0,0,0,0);


if ($papersize=~/Letter/) {	if ($papersize=~/Letter/) {
if ($layout eq 'CAPA') {	if ($layout eq 'CAPA') {
if ($numberofcolumns == 1) {	if ($numberofcolumns == 1) {
Line 1524 ENDPART	Line 1526 ENDPART
$urlp =~ s\|^/home/httpd/html\|\|;	$urlp =~ s\|^/home/httpd/html\|\|;
}	}
my $texversion=&Apache::lonnet::ssi($urlp,%form);	my $texversion=&Apache::lonnet::ssi($urlp,%form);
	if($helper->{'VARS'}->{'ANSWER_TYPE'} eq 'no') {
	my $rndseed=time;
	$form{'rndseed'}=$rndseed;
	my %form;
	$form{'grade_target'}='answer';
	$form{'answer_output_mode'}='tex';
	$form{'rndseed'}=$rndseed;
	my $answer=&Apache::lonnet::ssi($urlp,%form);
	$texversion=~s/(\\keephidden{ENDOFPROBLEM})/$answer$1/;
	}
#this chunck is responsible for printing the path to problem	#this chunck is responsible for printing the path to problem
my $newurlp = '';	my $newurlp = '';
my $HowMany = length($urlp)*2;	my $HowMany = length($urlp)*2;