loncom/interface/lonprintout.pm - diff

Return to lonprintout.pm CVS log

Up to [LON-CAPA] / loncom / interface

version 1.159, 2003/05/08 18:41:16	version 1.160, 2003/05/08 19:16:42
Line 1749 sub printHelper {	Line 1749 sub printHelper {

# "Delete everything after the last slash."	# "Delete everything after the last slash."
$subdir =~ s\|/[^/]+$\|\|;	$subdir =~ s\|/[^/]+$\|\|;
if (not defined $helper->{VARS}->{'construction'}) {	if (not $helper->{VARS}->{'construction'}) {
$subdir = '/home/httpd/html/res'.$subdir;	$subdir='/home/httpd/html/res/'.$subdir;
} else {
$helper->{VARS}->{'construction'}=~/^([^\/]+)\/\/([^\/]+)(.)\/[^\/]$/;
$subdir = $3;
$subdir=~/\/~([^\/]+)\/(.*)$/;
$subdir = '/home/'.$1.'/public_html/'.$2;
}	}
#### $r->print('Dir: '.$subdir.' ');
#### return OK;


# What can be printed is a very dynamic decision based on	# What can be printed is a very dynamic decision based on