[LON-CAPA-cvs] cvs: loncom /interface lonmenu.pm

[raeburn]

raeburn		Sun Oct 30 22:15:20 2011 EDT

  Modified files:              
    /loncom/interface	lonmenu.pm 
  Log:
    - use lonDocRoot perlvar in place of static string: '/home/httpd/html'.
  
  
Index: loncom/interface/lonmenu.pm
diff -u loncom/interface/lonmenu.pm:1.354 loncom/interface/lonmenu.pm:1.355
--- loncom/interface/lonmenu.pm:1.354	Mon Oct 24 23:29:33 2011
+++ loncom/interface/lonmenu.pm	Sun Oct 30 22:15:20 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Routines to control the menu
 #
-# $Id: lonmenu.pm,v 1.354 2011/10/24 23:29:33 www Exp $
+# $Id: lonmenu.pm,v 1.355 2011/10/30 22:15:20 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -575,9 +575,9 @@
 # We are in construction space
 #
 
-
+            my $londocroot = $Apache::lonnet::perlvar{'lonDocRoot'};
 	    my ($udom,$uname,$thisdisfn) =
-		($env{'request.filename'}=~m|^/home/httpd/html/priv/([^/]+)/([^/]+)/(.*)$|);
+		($env{'request.filename'}=~m{^\Q$londocroot/priv/\E([^/]+)/([^/]+)/(.*)$});
             my $currdir = '/priv/'.$udom.'/'.$uname.'/'.$thisdisfn;
             if ($currdir =~ m-/$-) {
                 $is_const_dir = 1;