smeserver-shared-folders/contribs9/smeserver-shared-folders-0.1-hide_and_non_removable.patch

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)
                       . '&nbsp;';
 
-        my $actionRemove .= $q->a({href => "${href}Remove&name=$sharename&description=$sharedesc"}, $remove) 
-                  . '&nbsp';
+        my $actionRemove .= ($removable ne 'no') ? $q->a({href => "${href}Remove&name=$sharename&description=$sharedesc"}, $remove) 
+                  . '&nbsp' : '';
 
         print $q->Tr (
             esmith::cgi::genSmallCell($q, $sharename,"normal"),
1	vip-ire	1.1	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
2			--- smeserver-shared-folders-0.1/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2012-08-24 11:20:32.827610656 +0200
3			+++ 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
4			@@ -84,6 +84,8 @@
5			foreach my $share (@shares) {
6			my $sharename = $share->key();
7			my $sharedesc = $share->prop('Name');
8			+ next if (($share->prop('Hide') \|\| 'no') eq 'yes');
9			+ my $removable = $share->prop('Removable') \|\| 'yes';
10
11			my $href = "shares?page=;page_stack=;wherenext=";
12
13			@@ -93,8 +95,8 @@
14			my $actionPerm = $q->a({href => "${href}Permissions&name=$sharename"},$perm)
15			. ' ';
16
17			- my $actionRemove .= $q->a({href => "${href}Remove&name=$sharename&description=$sharedesc"}, $remove)
18			- . '&nbsp';
19			+ my $actionRemove .= ($removable ne 'no') ? $q->a({href => "${href}Remove&name=$sharename&description=$sharedesc"}, $remove)
20			+ . '&nbsp' : '';
21
22			print $q->Tr (
23			esmith::cgi::genSmallCell($q, $sharename,"normal"),