X-Git-Url: https://git.octo.it/?a=blobdiff_plain;f=licom.cgi;h=2e46d19bedd65ddd6ea16efafb6fccc63c9b68da;hb=0bfd28f200d96adda48e595db0b85a534cc03c8b;hp=015c34b43c5a8589f7565fb74248676d47902f83;hpb=4c5254efaa25f9fbb401ea66cee3430bcde41bd2;p=licom.git
diff --git a/licom.cgi b/licom.cgi
index 015c34b..2e46d19 100755
--- a/licom.cgi
+++ b/licom.cgi
@@ -123,7 +123,7 @@ sub action_browse
my $group_esc = uri_escape ($group_name);
my $desc = $group->description ();
- print qq#\t\t\t
$group_name ($members Members)#;
+ print qq#\t\t\t$group_name ($members Member#, ($members == 1 ? ')' : 's)');
print qq(
\n\t\t\t\t$desc) if ($desc);
print "\n";
}
@@ -296,6 +296,25 @@ EOF
"\t\t\t\n";
}
}
+
+ my @groups = LiCoM::Group->load_by_member ($cn);
+ if (@groups)
+ {
+ my $num = scalar (@groups);
+ print "\t\t\t\n",
+ "\t\t\t\tGroup", ($num == 1 ? '' : 's'), " | \n";
+ for (my $i = 0; $i < $num; $i++)
+ {
+ my $group = $groups[$i];
+ my $group_name = $group->name ();
+ my $group_esc = uri_escape ($group_name);
+
+ print "\t\t\t
\n" if ($i != 0);
+ print qq(\t\t\t\t$group_name | \n),
+ "\t\t\t
\n";
+ }
+ }
+
print <