|
version 1.57, 2004/05/12 18:34:47
|
version 1.58, 2004/05/12 18:44:50
|
|
Line 100 END
|
Line 100 END
|
| 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 = '/home/httpd/prtspool/'.$eps_f; |
$eps_f = '/home/httpd/prtspool/'.$eps_f; |
| } elsif ($eps_f=~/\/home\/httpd\/html\/res\//) { |
} elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\//) { |
| $eps_f=~m/\/home\/httpd\/html\/res\/(.+)/; |
$eps_f=~m/$Apache::lonnet::perlvar{'lonDocRoot'}\/res\/(.+)/; |
| $eps_f = '/home/httpd/prtspool/'.$1; |
$eps_f = '/home/httpd/prtspool/'.$1; |
| } elsif ($eps_f=~/\/home\/httpd\/lonUsers\//) { |
} elsif ($eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\//) { |
| $eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/; |
$eps_f=~/$Apache::lonnet::perlvar{'lonUsersDir'}\/([^\/]+)\/\w\/\w\/\w\/(.+)/; |
| $eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; |
$eps_f = '/home/httpd/prtspool/'.$1.'/'.$2; |
| } |
} |
|
Line 119 END
|
Line 119 END
|
| if ($adv) { |
if ($adv) { |
| my $prettyname=$not_eps; |
my $prettyname=$not_eps; |
| $prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; |
$prettyname=~s|/home/([^/]+)/public_html|/priv/$1|; |
| $prettyname=~s|/home/httpd/html/|/|; |
$prettyname=~s|$Apache::lonnet::perlvar{'lonDocRoot'}/|/|; |
| &Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); } |
&Apache::lonhtmlcommon::Update_PrgWin('',\%prog_state,'Converting to EPS '.$prettyname); } |
| $done_conversion{$not_eps}=1; |
$done_conversion{$not_eps}=1; |
| $status = $image->Read($not_eps); |
$status = $image->Read($not_eps); |
![[BACK]](/icons/back.gif){kind=icon}
Return to printout.pl CVS log ![[TXT]](/icons/text.gif){kind=icon}
![[DIR]](/icons/dir.gif){kind=icon}
Up to [LON-CAPA] / loncom / interface