--- loncom/xml/londefdef.pm 2011/10/01 03:19:06 1.434 +++ loncom/xml/londefdef.pm 2011/10/26 02:09:45 1.435 @@ -2,7 +2,7 @@ # The LearningOnline Network with CAPA # Tags Default Definition Module # -# $Id: londefdef.pm,v 1.434 2011/10/01 03:19:06 raeburn Exp $ +# $Id: londefdef.pm,v 1.435 2011/10/26 02:09:45 www Exp $ # # # Copyright Michigan State University Board of Trustees @@ -4194,7 +4194,7 @@ sub get_eps_image { close(FILE); } $src=~s|/home/httpd/html/res|/home/httpd/prtspool|; - $src=~s|/home/([^/]*)/public_html/|/home/httpd/prtspool/$1/|; + $src=~s|/home/httpd/html/priv/[^/]+/([^/]*)/|/home/httpd/prtspool/$1/|; if ($sext ne "") { # Put the ext. back in to uniquify. $src =~ s/\.eps$/$sext.eps/; } @@ -4213,7 +4213,7 @@ sub get_eps_image { print FILE "$src\n"; close FILE; $src=~s|/home/httpd/html/res|/home/httpd/prtspool|; - $src=~s|/home/([^/]*)/public_html/|/home/httpd/prtspool/$1/|; + $src=~s|/home/httpd/html/priv/[^/]+/([^/]*)/|/home/httpd/prtspool/$1/|; } my ($path,$file)=($src=~m|(.*)/([^/]*)$|); $path =~ s/ /\_/g; @@ -4232,7 +4232,7 @@ sub eps_generation { my $newsrc = $src; $newsrc =~ s/(\.bmp|\.gif|\.jpg|\.jpeg)$/\.eps/i; $newsrc=~s{/home/httpd/html/res}{}; - $newsrc=~s{/home/($LONCAPA::username_re)/public_html/}{/$1/}; + $newsrc=~s{/home/httpd/html/priv/[^/]+/($LONCAPA::username_re)/}{/$1/}; $newsrc=~s{/\./}{/}; $newsrc=~s{/([^/]+)\.(ps|eps)}{/}; if ($newsrc=~m{/home/httpd/lonUsers/}) {