--- loncom/interface/lonhelper.pm	2011/10/25 22:27:11	1.184
+++ loncom/interface/lonhelper.pm	2011/10/31 01:20:05	1.185
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # .helper XML handler to implement the LON-CAPA helper
 #
-# $Id: lonhelper.pm,v 1.184 2011/10/25 22:27:11 www Exp $
+# $Id: lonhelper.pm,v 1.185 2011/10/31 01:20:05 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -2975,7 +2975,8 @@ BUTTONS
 
     # If the subdirectory is in local CSTR space
     my $metadir;
-    if ($subdir =~ m|^/home/httpd/html/priv/[^/]+/[^/]+/(.*)$|) {
+    my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
+    if ($subdir =~ m{^\Q$londocroot/priv/\E[^/]+/[^/]+/(.*)$}) {
         my $innerpath=$1;
 	my ($user,$domain)= 
 	    &Apache::loncacc::constructaccess($subdir);
@@ -3086,7 +3087,7 @@ sub fileState {
     }
     my $docroot = $Apache::lonnet::perlvar{'lonDocRoot'};
     my $subdirpart = $constructionSpaceDir;
-    $subdirpart =~ s/^\/home\/httpd\/html\/priv\/\Q$udom\E\/\Q$uname\E//;
+    $subdirpart =~ s{^\Q$docroot/priv/$udom/$uname\E}{};
     my $resdir = $docroot . '/res/' . $udom . '/' . $uname .
         $subdirpart;