version 1.101, 2010/08/24 09:11:40
|
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/$LONCAPA::username_re/public_html}{}; |
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' => '', |