version 1.102, 2011/10/24 12:06:03
|
version 1.103, 2011/10/31 01:23:26
|
Line 645 ENDSMPHEAD
|
Line 645 ENDSMPHEAD
|
# ----------------------------------------------------------------- No such dir |
# ----------------------------------------------------------------- No such dir |
sub nodir { |
sub nodir { |
my ($r,$dir)=@_; |
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(), |
my $brcrum = [{'href' => &Apache::loncommon::authorspace(), |
'text' => 'Construction Space'}]; |
'text' => 'Construction Space'}]; |
# {'href' => '', |
# {'href' => '', |