loncom/interface/printout.pl - diff

Return to printout.pl CVS log

Up to [LON-CAPA] / loncom / interface

version 1.124, 2007/04/23 20:06:00	version 1.125, 2007/05/10 09:53:39
Line 217 print "<a href=\"$backref\"><b>Return</b	Line 217 print "<a href=\"$backref\"><b>Return</b
# $eps_f =~ s/\.[^.]*$/\.eps/i;	# $eps_f =~ s/\.[^.]*$/\.eps/i;
if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {	if ($eps_f=~/\/home\/([^\/]+)\/public_html\//) {
$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;	$eps_f=~s/\/home\/([^\/]+)\/public_html/$1/;
$eps_f = $perlvar{'lonPrtDir'}.$eps_f;	$eps_f = $perlvar{'lonPrtDir'}.'/'.$eps_f;
} elsif ($eps_f=~/$perlvar{'lonDocRoot'}\/res\//) {	} elsif ($eps_f=~/$perlvar{'lonDocRoot'}\/res\//) {
$eps_f=~m/$perlvar{'lonDocRoot'}\/res\/(.+)/;	$eps_f=~m/$perlvar{'lonDocRoot'}\/res\/(.+)/;
$eps_f = $perlvar{'lonPrtDir'}.$1;	$eps_f = $perlvar{'lonPrtDir'}.'/'.$1;
} elsif ($eps_f=~/$perlvar{'lonUsersDir'}\//) {	} elsif ($eps_f=~/$perlvar{'lonUsersDir'}\//) {
$eps_f=~/$perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;	$eps_f=~/$perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/;
$eps_f = $perlvar{'lonPrtDir'}.$1.'/'.$2;	$eps_f = $perlvar{'lonPrtDir'}.'/'.$1.'/'.$2;
}	}
$eps_f =~ s/ /\_/g; # Spaces are problematic for system commands and LaTeX.	$eps_f =~ s/ /\_/g; # Spaces are problematic for system commands and LaTeX.
#	#