loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.207, 2003/08/01 19:22:47	version 1.208.2.1, 2003/08/13 19:52:05
Line 465 sub page_format {	Line 465 sub page_format {
sub get_name {	sub get_name {
my ($uname,$udom)=@_;	my ($uname,$udom)=@_;
if (!defined($uname)) { $uname=$ENV{'user.name'}; }	if (!defined($uname)) { $uname=$ENV{'user.name'}; }
if (!defined($udom)) { $uname=$ENV{'user.domain'}; }	if (!defined($udom)) { $udom=$ENV{'user.domain'}; }
my $plainname=&Apache::loncommon::plainname($uname,$udom);	my $plainname=&Apache::loncommon::plainname($uname,$udom);
if ($plainname=~/^\s*$/) { $plainname=$uname; }	if ($plainname=~/^\s*$/) { $plainname=$uname; }
return &Apache::lonxml::latex_special_symbols($plainname,undef,undef,	return &Apache::lonxml::latex_special_symbols($plainname,undef,undef,
Line 958 sub printHelper {	Line 958 sub printHelper {
# This will persistently load in the data we want from the	# This will persistently load in the data we want from the
# very first screen.	# very first screen.
# Detect whether we're coming from construction space	# Detect whether we're coming from construction space
if ($ENV{'form.postdata'} =~ /http:\/\// ) {	if ($ENV{'form.postdata'}=~/^(?:http:\/\/[^\/]+\/\|\/\|)\~([^\/]+)\/(.*)$/) {
$ENV{'form.postdata'} =~ /http:\/\/[^\/]+\/~([^\/]+)\/(.*)/;
$helper->{VARS}->{'filename'} = "/home/$1/public_html/$2";	$helper->{VARS}->{'filename'} = "/home/$1/public_html/$2";
$helper->{VARS}->{'construction'} = 1;	$helper->{VARS}->{'construction'} = 1;
} else {	} else {