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. |
# |
# |