1 |
unnilennium |
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-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". |