[prev in list] [next in list] [prev in thread] [next in thread] 

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: loncom /interface domainprefs.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2011-10-30 22:19:15
Message-ID: cvsraeburn1320013155 () cvsserver
[Download RAW message or body]

raeburn		Sun Oct 30 22:19:15 2011 EDT

  Modified files:              
    /loncom/interface	domainprefs.pm 
  Log:
  - use lonDocRoot perlvar in place of static string: '/home/httpd/html'.
  
  
Index: loncom/interface/domainprefs.pm
diff -u loncom/interface/domainprefs.pm:1.157 loncom/interface/domainprefs.pm:1.158
--- loncom/interface/domainprefs.pm:1.157	Sun Oct 23 23:46:02 2011
+++ loncom/interface/domainprefs.pm	Sun Oct 30 22:19:15 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Handler to set domain-wide configuration settings
 #
-# $Id: domainprefs.pm,v 1.157 2011/10/23 23:46:02 www Exp $
+# $Id: domainprefs.pm,v 1.158 2011/10/30 22:19:15 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -4934,7 +4934,7 @@
 # See if there is anything left
     unless ($fname) { return ('error: no uploaded file'); }
     $fname="$subdir/$fname";
-    my $filepath='/home/httpd/html/priv/'.$dom.'/'.$confname;
+    my $filepath=$r->dir_config('lonDocRoot')."/priv/$dom/$confname";
     my ($fnamepath,$file,$fetchthumb);
     $file=$fname;
     if ($fname=~m|/|) {


_______________________________________________
LON-CAPA-cvs mailing list
LON-CAPA-cvs@mail.lon-capa.org
http://mail.lon-capa.org/mailman/listinfo/lon-capa-cvs
[prev in list] [next in list] [prev in thread] [next in thread]