[LON-CAPA-cvs] cvs: loncom /publisher lonpublisher.pm

[raeburn]

raeburn		Mon Nov  7 18:29:17 2011 EDT

  Modified files:              
    /loncom/publisher	lonpublisher.pm 
  Log:
  - use values from Apache::lonnet::perlvar in place of static strings.
  
  
Index: loncom/publisher/lonpublisher.pm
diff -u loncom/publisher/lonpublisher.pm:1.275 loncom/publisher/lonpublisher.pm:1.276
--- loncom/publisher/lonpublisher.pm:1.275	Mon Oct 31 17:27:10 2011
+++ loncom/publisher/lonpublisher.pm	Mon Nov  7 18:29:17 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Publication Handler
 #
-# $Id: lonpublisher.pm,v 1.275 2011/10/31 17:27:10 raeburn Exp $
+# $Id: lonpublisher.pm,v 1.276 2011/11/07 18:29:17 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -1880,7 +1880,7 @@
     $thisdisfn=~s/\/+/\//g;
     my $thisdisresdir=$thisdisfn;
     $thisdisresdir=~s/^\/priv\//\/res\//;
-    my $resdir='/home/httpd/html'.$thisdisresdir;
+    my $resdir = $r->dir_config('lonDocRoot').$thisdisresdir;
     $r->print(&Apache::lonhtmlcommon::start_pick_box()
              .&Apache::lonhtmlcommon::row_title(&mt('Directory'))
             .'<span class="LC_filename">'.$thisdisfn.'</span>'