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

List:       lon-capa-cvs
Subject:    [LON-CAPA-cvs] cvs: rat / lonratedt.pm
From:       raeburn <raeburn () source ! lon-capa ! org>
Date:       2011-10-31 1:23:26
Message-ID: cvsraeburn1320024206 () cvsserver
[Download RAW message or body]

raeburn		Mon Oct 31 01:23:26 2011 EDT

  Modified files:              
    /rat	lonratedt.pm 
  Log:
  - use lonDocRoot perlvar in place of static string: '/home/httpd/html'.
  
  
Index: rat/lonratedt.pm
diff -u rat/lonratedt.pm:1.102 rat/lonratedt.pm:1.103
--- rat/lonratedt.pm:1.102	Mon Oct 24 12:06:03 2011
+++ rat/lonratedt.pm	Mon Oct 31 01:23:26 2011
@@ -1,7 +1,7 @@
 # The LearningOnline Network with CAPA
 # Edit Handler for RAT Maps
 #
-# $Id: lonratedt.pm,v 1.102 2011/10/24 12:06:03 www Exp $
+# $Id: lonratedt.pm,v 1.103 2011/10/31 01:23:26 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -645,7 +645,8 @@
 # ----------------------------------------------------------------- No such dir
 sub nodir {
    my ($r,$dir)=@_;
-   $dir=~s{^/home/httpd/html/priv/[^/]+/[^/]+}{};
+   my $londocroot = $r->dir_config('lonDocRoot');
+   $dir=~s{^\Q$londocroot/priv/\E[^/]+/[^/]+}{};
    my $brcrum = [{'href' => &Apache::loncommon::authorspace(),
                   'text' => 'Construction Space'}];
 #                 {'href' => '',


_______________________________________________
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]