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-04-22 17:36:53.000000000 +0200 |
3 |
+++ smeserver-shared-folders-0.1_mod/root/usr/lib/perl5/site_perl/esmith/FormMagick/Panel/shares.pm 2012-04-22 17:41:15.000000000 +0200 |
4 |
@@ -352,6 +352,7 @@ |
5 |
my $share = $a->get($sharename); |
6 |
return $self->error('SHARE_NOT_FOUND') unless ($share); |
7 |
|
8 |
+ my $desc = $share->prop('Name') || $sharename; |
9 |
my $WriteGroups = $share->prop('WriteGroups') || ''; |
10 |
my $ReadGroups = $share->prop('ReadGroups') || ''; |
11 |
my $WriteUsers = $share->prop('WriteUsers') || ''; |
12 |
@@ -382,6 +383,13 @@ |
13 |
my @groups = sort { $a->key() cmp $b->key() } $a->groups(); |
14 |
my @users = sort { $a->key() cmp $b->key() } $a->users(); |
15 |
|
16 |
+ $out .= qq(<tr><td class="sme-noborders-label">) . |
17 |
+ $self->localise('NAME_LABEL') . qq(</td>\n); |
18 |
+ $out .= qq(<td class="sme-noborders-content">$sharename</td>); |
19 |
+ $out .= qq(<tr><td class="sme-noborders-label">) . |
20 |
+ $self->localise('DESCRIPTION') . qq(</td>\n); |
21 |
+ $out .= qq(<td class="sme-noborders-content">$desc</td>); |
22 |
+ |
23 |
$out .= "<tr><td class=\"sme-noborders-label\">" . |
24 |
$self->localise('PERMISSIONS') . |
25 |
"</td><td>\n". |