smeserver-shared-folders/contribs7/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	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"),