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.255 and 1.257

version 1.255, 2003/10/15 18:01:10	version 1.257, 2003/10/20 18:35:22
Line 1063 ENDPART	Line 1063 ENDPART
$result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;	$result =~ s/\\evensidemargin = -0\.57in/\\evensidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
$result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;	$result =~ s/\\oddsidemargin = -0\.57in/\\oddsidemargin= $helper->{'VARS'}->{'pagesize.lmargin'} $helper->{'VARS'}->{'pagesize.lmarginunit'} /;
}	}
if ($helper->{'VARS'}->{'TABLE_CONTENTS'} eq 'yes') {$selectionmade*=10;}
if ($helper->{'VARS'}->{'TABLE_INDEX'} eq 'yes') {
if ($selectionmade<10) {$selectionmade=100;} else {$selectionmade=10;}
}
if ($ENV{'request.role.adv'}) {$selectionmade*=10000;}
#-- writing .tex file in prtspool	#-- writing .tex file in prtspool
my $temp_file;	my $temp_file;
my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";	my $filename = "/home/httpd/prtspool/$ENV{'user.name'}_$ENV{'user.domain'}_printout_".time."_".rand(10000000).".tex";
unless ($temp_file = Apache::File->new('>'.$filename)) {	unless ($temp_file = Apache::File->new('>'.$filename)) {
$r->log_error("Couldn't open $filename for output $!");	$r->log_error("Couldn't open $filename for output $!");
return SERVER_ERROR;	return SERVER_ERROR;
}	}

	my $identifier = time.'_'.int(rand(1000));
	&Apache::lonnet::appenv('cgi.'.$identifier.'.file' => $filename,
	'cgi.'.$identifier.'.layout' => $laystyle,
	'cgi.'.$identifier.'.numcol' => $numberofcolumns,
	'cgi.'.$identifier.'.selection' => $selectionmade,
	'cgi.'.$identifier.'tableofcontents' => $helper->{'VARS'}->{'TABLE_CONTENTS'},
	'cgi.'.$identifier.'tableofindex' => $helper->{'VARS'}->{'TABLE_INDEX'},
	'cgi.'.$identifier.'role' => $ENV{'request.role.adv'});

print $temp_file $result;	print $temp_file $result;

$r->print(<<FINALEND);	$r->print(<<FINALEND);
<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$filename&$laystyle&$numberofcolumns&$selectionmade">	<meta http-equiv="Refresh" content="0; url=/cgi-bin/printout.pl?$identifier">
</body>	</body>
</html>	</html>
FINALEND	FINALEND

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

Removed from v.1.255
changed lines
	Added in v.1.257