version 1.85, 2006/11/02 21:27:58
|
version 1.86, 2006/12/20 22:42:48
|
Line 763 ENDSMPHEAD
|
Line 763 ENDSMPHEAD
|
# ----------------------------------------------------------------- No such dir |
# ----------------------------------------------------------------- No such dir |
sub nodir { |
sub nodir { |
my ($r,$dir)=@_; |
my ($r,$dir)=@_; |
$dir=~s{^/home/\w+/public_html}{}; |
$dir=~s{^/home/$LONCAPA::username_re/public_html}{}; |
$r->print(&Apache::loncommon::start_page(undef,undef, |
$r->print(&Apache::loncommon::start_page(undef,undef, |
{'only_body' => 1, |
{'only_body' => 1, |
'bgcolor' => '#FFFFFF',}). |
'bgcolor' => '#FFFFFF',}). |