--- rat/lonratedt.pm	2011/10/24 12:06:03	1.102
+++ rat/lonratedt.pm	2012/04/18 17:37:12	1.105
@@ -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.105 2012/04/18 17:37:12 raeburn Exp $
 #
 # Copyright Michigan State University Board of Trustees
 #
@@ -549,7 +549,7 @@ ENDJS
     &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({
         text  => 'Construction Space',
-        href  => &Apache::loncommon::authorspace(),
+        href  => &Apache::loncommon::authorspace($url),
         faq   => 6,
         bug   => 'RAT',
         help  => 'Sequence_Simple_Editor_Creation',});
@@ -645,8 +645,10 @@ ENDSMPHEAD
 # ----------------------------------------------------------------- No such dir
 sub nodir {
    my ($r,$dir)=@_;
-   $dir=~s{^/home/httpd/html/priv/[^/]+/[^/]+}{};
-   my $brcrum = [{'href' => &Apache::loncommon::authorspace(),
+   my $londocroot = $r->dir_config('lonDocRoot');
+   my ($path) = ($dir =~ m{^\Q$londocroot\E?(/priv/[^/]+/[^/]+/)});
+   $dir=~s{^\Q$londocroot/priv/\E[^/]+/[^/]+}{};
+   my $brcrum = [{'href' => &Apache::loncommon::authorspace($path),
                   'text' => 'Construction Space'}];
 #                 {'href' => '',
 #                  'text' => 'No such directory'}];
@@ -670,7 +672,7 @@ sub viewmap {
     &Apache::lonhtmlcommon::clear_breadcrumbs();
     &Apache::lonhtmlcommon::add_breadcrumb({
         text  => 'Construction Space',
-        href  => &Apache::loncommon::authorspace(),
+        href  => &Apache::loncommon::authorspace($url),
         faq   => 6,
         bug   => 'RAT',
         help  => 'Sequence_Simple_Editor_Creation',});
@@ -725,7 +727,7 @@ sub viewmap {
                 $filename = $1;
             }
             my $cstrurl = $resurl;
-            $cstrurl =~ s#^/res/[^/]+/([^/]+)/#/priv/$1/#;
+            $cstrurl =~ s{^/res/}{/priv/};
             $r->print(&Apache::loncommon::start_data_table_row()
                      .'<td>'
                      .'<img src="'.&Apache::loncommon::icon($resfilepath).'" />'