loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.187, 2003/05/28 21:25:33	version 1.189, 2003/06/19 14:54:51
Line 857 sub printHelper {	Line 857 sub printHelper {
# 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:\/\/[a-zA-Z.]+\/~([a-zA-Z0-9]+)\/(.*)/;	$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 {
Line 913 sub printHelper {	Line 913 sub printHelper {
if (not $helper->{VARS}->{'construction'}) {	if (not $helper->{VARS}->{'construction'}) {
$subdir='/home/httpd/html/res/'.$subdir;	$subdir='/home/httpd/html/res/'.$subdir;
}	}
	# "Remove all duplicate slashes."
	$subdir =~ s\|/+\|/\|g;

# What can be printed is a very dynamic decision based on	# What can be printed is a very dynamic decision based on
# lots of factors. So we need to dynamically build this list.	# lots of factors. So we need to dynamically build this list.