diff -Nur smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm --- smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2012-08-24 11:20:32.827610656 +0200 +++ smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2012-08-24 11:20:14.042552522 +0200 @@ -84,6 +84,8 @@ foreach my $share (@shares) { my $sharename = $share->key(); my $sharedesc = $share->prop('Name'); + next if (($share->prop('Hide') || 'no') eq 'yes'); + my $removable = $share->prop('Removable') || 'yes'; my $href = "shares?page=;page_stack=;wherenext="; @@ -93,8 +95,8 @@ my $actionPerm = $q->a({href => "${href}Permissions&name=$sharename"},$perm) . ' '; - my $actionRemove .= $q->a({href => "${href}Remove&name=$sharename&description=$sharedesc"}, $remove) - . ' '; + my $actionRemove .= ($removable ne 'no') ? $q->a({href => "${href}Remove&name=$sharename&description=$sharedesc"}, $remove) + . ' ' : ''; print $q->Tr ( esmith::cgi::genSmallCell($q, $sharename,"normal"),