https://bugs.koozali.org/show_bug.cgi?id=12477
--- Comment #2 from bunkobugsy <[email protected]> ---
--- ./shares.pm.orig 2013-11-11 21:18:27.000000000 +0200
+++ ./shares.pm 2024-02-26 22:55:56.000000000 +0200
@@ -382,6 +382,8 @@
foreach my $user ( split ( /[,;]/, $ReadUsers ) ) {
$ReadUsers{$user} = 1;
}
+
+ my @shared = "shared";
my @groups = sort { $a->key() cmp $b->key() } $a->groups();
my @users = sort { $a->key() cmp $b->key() } $a->users();
@@ -403,6 +405,31 @@
esmith::cgi::genSmallCell($q,
$self->localise('READ_PERM'),"header")
);
+ foreach my $shared (@shared) {
+ my $write = "";
+ my $read = "";
+ my $name = "shared";
+ my $desc = "Everyone";
+ if ( $WriteGroups{$name} ) {
+ $write = "checked";
+ }
+ if ( $ReadGroups{$name} ) {
+ $read = "checked";
+ }
+
+ $out .= $q->Tr(
+ esmith::cgi::genSmallCell($q, $name, "normal"),
+ esmith::cgi::genSmallCell($q, $desc, "normal"),
+
+ esmith::cgi::genSmallCell($q,"<input type=\"checkbox\""
+ . " name=\"writegroup\""
+ . " $write value=\"$name\">",
"normal"),
+ esmith::cgi::genSmallCell($q,"<input type=\"checkbox\""
+ . " name=\"readgroup\""
+ . " $read value=\"$name\">", "normal")
+ );
+ }
+
foreach my $group (@groups) {
my $write = "";
my $read = "";
--
You are receiving this mail because:
You are the QA Contact for the bug.
You are the assignee for the bug._______________________________________________
Mail for each SME Contribs bug report
To unsubscribe, e-mail [email protected]
Searchable archive at https://lists.contribs.org/mailman/public/contribteam/
