--- loncom/publisher/lonpubdir.pm 2023/06/10 23:01:15 1.175
+++ loncom/publisher/lonpubdir.pm 2023/06/11 19:46:01 1.177
@@ -1,7 +1,7 @@
# The LearningOnline Network with CAPA
# Authoring Space Directory Lister
#
-# $Id: lonpubdir.pm,v 1.175 2023/06/10 23:01:15 raeburn Exp $
+# $Id: lonpubdir.pm,v 1.177 2023/06/11 19:46:01 raeburn Exp $
#
# Copyright Michigan State University Board of Trustees
#
@@ -104,9 +104,14 @@ sub handler {
"$londocroot/priv/$udom/$uname"); # expressed in kB
my $disk_quota = &Apache::loncommon::get_user_quota($uname,$udom,
$cstr,$crstype); # expressed in MB
+ my $diraction;
+ if (-d $fn) {
+ $diraction = &diractions($thisdisfn);
+ }
# 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, $diraction);
if (!-d $fn) {
if (-e $fn) {
@@ -361,7 +366,7 @@ my $result = "
+
+
+ %s
+
+
+
+
-
+END
+ $r->print(<