version 1.154, 2014/05/31 13:55:17
|
version 1.155, 2014/06/20 18:00:51
|
Line 60 sub handler {
|
Line 60 sub handler {
|
my $thisdisfn=$fn; |
my $thisdisfn=$fn; |
|
|
my $docroot=$r->dir_config('lonDocRoot'); # Apache londocument root. |
my $docroot=$r->dir_config('lonDocRoot'); # Apache londocument root. |
|
if ($thisdisfn eq "$docroot/priv/$udom") { |
|
if ((-d "/home/$uname/public_html/") && (!-e "$docroot/priv/$udom/$uname")) { |
|
my ($version) = ($r->dir_config('lonVersion') =~ /^\'?(\d+\.\d+)\./); |
|
&Apache::loncommon::content_type($r,'text/html'); |
|
$r->send_http_header; |
|
|
|
&Apache::lonhtmlcommon::clear_breadcrumbs(); |
|
$r->print(&Apache::loncommon::start_page('Authoring Space'). |
|
'<div class="LC_error">'. |
|
'<br /><p>'. |
|
&mt('Your Authoring Space is currently in the location used by LON-CAPA version 2.10 and older, but your domain is using a newer LON-CAPA version ([_1]).',$version).'</p>'. |
|
'<p>'. |
|
&mt('Please ask your Domain Coordinator to move your Authoring Space to the new location.'). |
|
'</p>'. |
|
'</div>'. |
|
&Apache::loncommon::end_page()); |
|
return OK; |
|
} |
|
} |
$thisdisfn=~s/^\Q$docroot\E\/priv//; |
$thisdisfn=~s/^\Q$docroot\E\/priv//; |
|
|
my $resdir=$docroot.'/res'.$thisdisfn; # Resource directory |
my $resdir=$docroot.'/res'.$thisdisfn; # Resource directory |