--- loncom/publisher/lonpubdir.pm 2014/05/31 13:55:17 1.154 +++ loncom/publisher/lonpubdir.pm 2014/06/20 18:00:51 1.155 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Authoring Space Directory Lister # -# $Id: lonpubdir.pm,v 1.154 2014/05/31 13:55:17 raeburn Exp $ +# $Id: lonpubdir.pm,v 1.155 2014/06/20 18:00:51 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -60,6 +60,25 @@ sub handler { my $thisdisfn=$fn; 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'). + '
'. + '

'. + &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).'

'. + '

'. + &mt('Please ask your Domain Coordinator to move your Authoring Space to the new location.'). + '

'. + '
'. + &Apache::loncommon::end_page()); + return OK; + } + } $thisdisfn=~s/^\Q$docroot\E\/priv//; my $resdir=$docroot.'/res'.$thisdisfn; # Resource directory