Add support for displaying symlinked folders in file tree

webmin · Mar 19, 2023 · 4d19926 · 4d19926
1 parent bed91c3
commit 4d19926
Show file tree

Hide file tree

Showing 6 changed files with 5 additions and 4 deletions.
diff --git a/extensions/file-manager/file-manager-lib.pl b/extensions/file-manager/file-manager-lib.pl
@@ -1116,13 +1116,14 @@ sub get_tree
 
     my $wanted = sub {
         my $td = $File::Find::name;
-        if (-d $td && !-l $td) {
+        my $ltd = -l $td;
+        if (-d $td) {
             my $push_label = sub {
                 my ($td, $afic) = @_;
                 my ($pd, $cd)   = $td =~ m|^ (.+) / ([^/]+) \z|x;
                 my $pp = ($fu && $afic ne '/') ? $afic : undef;
                 my $c  = $r{$td} =
-                  { key => html_escape("$pp/$td"), title => (defined($cd) ? html_escape($cd) : html_escape($td)) };
+                  { key => html_escape("$pp/$td"), title => (defined($cd) ? html_escape($cd) : html_escape($td)), link => $ltd };
                 defined $pd ? (push @{ $r{$pd}{'children'} }, $c) : (push @r, $c);
             };
 

diff --git a/extensions/file-manager/file-manager.min.js b/extensions/file-manager/file-manager.min.js
diff --git a/extensions/file-manager/file-manager.min.js.gz b/extensions/file-manager/file-manager.min.js.gz
diff --git a/unauthenticated/css/bundle.min.css b/unauthenticated/css/bundle.min.css
diff --git a/unauthenticated/css/bundle.min.css.gz b/unauthenticated/css/bundle.min.css.gz
diff --git a/unauthenticated/js/bundle.min.js.gz b/unauthenticated/js/bundle.min.js.gz