loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.657, 2017/01/30 19:45:05	version 1.659, 2017/11/12 23:06:10
Line 889 sub include_pdf {	Line 889 sub include_pdf {
my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};	my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
$file =~ s{(.*)/res/}{$londocroot/res/};	$file =~ s{(.*)/res/}{$londocroot/res/};

open(FILE,">>$Apache::lonnet::perlvar{'lonPrtDir'}/$env{'user.name'}_$env{'user.domain'}_printout.dat");	open(FILE,">>","$Apache::lonnet::perlvar{'lonPrtDir'}/$env{'user.name'}_$env{'user.domain'}_printout.dat");
print FILE ("$file\n");	print FILE ("$file\n");
close (FILE);	close (FILE);

Line 3452 ENDPART	Line 3452 ENDPART
if ($env{'request.enc'}) {	if ($env{'request.enc'}) {
$url = &Apache::lonenc::encrypted($url);	$url = &Apache::lonenc::encrypted($url);
}	}
$URLback = $url.($url =~ /\?/) ? '&':'?'.'symb='.$helper->{VARS}{'symb'};	if ($url ne '') {
	$URLback = $url.(($url =~ /\?/) ? '&':'?').'symb='.$helper->{VARS}{'symb'};
	}
}	}
#	#
# Final adjustment of the font size:	# Final adjustment of the font size: