--- loncom/publisher/lonpubdir.pm 2019/08/11 15:15:43 1.172 +++ loncom/publisher/lonpubdir.pm 2022/05/27 04:24:55 1.174 @@ -1,7 +1,7 @@ # The LearningOnline Network with CAPA # Authoring Space Directory Lister # -# $Id: lonpubdir.pm,v 1.172 2019/08/11 15:15:43 raeburn Exp $ +# $Id: lonpubdir.pm,v 1.174 2022/05/27 04:24:55 raeburn Exp $ # # Copyright Michigan State University Board of Trustees # @@ -67,9 +67,7 @@ sub handler { $r->send_http_header; &Apache::lonhtmlcommon::clear_breadcrumbs(); - my $js = ''; - $r->print(&Apache::loncommon::start_page('Authoring Space', $js). + $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).'

'. @@ -108,7 +106,7 @@ sub handler { $cstr,$crstype); # expressed in MB # Put out the start of page. - &startpage($r, $uname, $udom, $thisdisfn, $current_disk_usage, $disk_quota, $crsauthor); + &startpage($r, $uname, $udom, $thisdisfn, $current_disk_usage, $disk_quota, $crsauthor); if (!-d $fn) { if (-e $fn) { @@ -572,29 +570,29 @@ sub dircontrols { -
+
-
+
-
+
$lt{'updc'} - - + +
-
+
$lt{'crea'} @@ -682,26 +680,26 @@ END sub resourceactions { my ($r,$uname,$udom,$thisdisfn) = @_; $r->print(< + -
+
-
+
-
+
-
+
-
+
END @@ -779,7 +777,7 @@ sub putdirectory { } else { $actionitem = '
'. + '" action="/adm/publish">'. '