--- loncom/xml/londefdef.pm 2011/09/15 19:08:15 1.433 +++ 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.433 2011/09/15 19:08:15 raeburn Exp $ +# $Id: londefdef.pm,v 1.435 2011/10/26 02:09:45 www Exp $ # # # Copyright Michigan State University Board of Trustees @@ -2885,10 +2885,7 @@ sub start_applet { &Apache::lonxml::extlink($archive); my $currentstring = ''; if ($target eq 'web' || $target eq 'webgrade') { - $currentstring = &Apache::lonenc::encrypt_ref($token, - {'code'=>$code, - 'archive'=>$archive} - ); + $currentstring = $token->[4]; } elsif ($target eq 'tex') { # Turn off some stuff we can't be inside thank you LaTeX @@ -4197,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/; } @@ -4216,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; @@ -4235,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/}) {