oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added group id and name to all group operations

Browse source
This commit is contained in:
Yung Han Khoe 2008-05-30 16:59:51 +00:00
parent 65a6de8038
commit c15681bd17
2 changed files with 37 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

3
docs/changelog/7.x.x.txt
View file

@ -6,6 +6,8 @@
- Depricated $session->errorHandler in favor of $session->log.
- AssetProxy macro can now use asset id as a parameter like so:
^AssetProxy(abcdefghijklmnopqrstuv,assetId);
- AssetProxy macro now only shows an 'invalid url' error when Admin mode is
on. An error is always sent to the log (Yung Han Khoe).
- Exposed keywords API to all assets through edit screen. Now keywords are
searchable and add metatags for all assets.
- fix: template variable isUncommitted is not documented in the help
@ -79,6 +81,7 @@
- Added better handling of Pending albums and photos
- added: Database link access for SQL Macro (Yung Han Khoe)
- Added UserList wobject (United Knowledge and Yung Han Khoe)
- All group operations now show group id and name (Yung Han Khoe)
7.5.10
- fix: Syntax error in GetCsMail

38
lib/WebGUI/Operation/Group.pm
View file

@ -588,6 +588,7 @@ sub www_emailGroup {
return $session->privilege->adminOnly() unless (canEditGroup($session,$session->form->process("gid")));
my ($output,$f);
my $i18n = WebGUI::International->new($session);
my $group = WebGUI::Group->new($session,$session->form->process("gid"));
$f = WebGUI::HTMLForm->new($session);
$f->hidden(
-name => "op",
@ -597,6 +598,14 @@ sub www_emailGroup {
-name => "gid",
-value => $session->form->process("gid")
);
$f->readOnly(
-label => $i18n->get(379),
-value => $group->getId,
);
$f->readOnly(
-label => $i18n->get(84),
-value => $group->name,
);
$f->email(
-name=>"from",
-value=>$session->setting->get("companyEmail"),
@ -696,17 +705,29 @@ sub www_listGroups {
#-------------------------------------------------------------------
sub www_manageGroupsInGroup {
my $session = shift;
return $session->privilege->adminOnly() unless (canEditGroup($session,$session->form->process("gid")));
my $f = WebGUI::HTMLForm->new($session);
my $i18n = WebGUI::International->new($session);
my $group = WebGUI::Group->new($session,$session->form->process("gid"));
return $session->privilege->adminOnly() unless (canEditGroup($session,$session->form->process("gid")));
my $f = WebGUI::HTMLForm->new($session);
$f->submit;
$f->hidden(
-name => "op",
-value => "addGroupsToGroupSave"
);
$f->hidden(
$f->hidden(
-name => "gid",
-value => $session->form->process("gid")
);
$f->readOnly(
-label => $i18n->get(379),
-value => $group->getId,
);
$f->readOnly(
-label => $i18n->get(84),
-value => $group->name,
);
my @groups;
my $group = WebGUI::Group->new($session,$session->form->process("gid"));
my $groupsIn = $group->getGroupsIn(1);
@ -730,7 +751,7 @@ sub www_manageGroupsInGroup {
#-------------------------------------------------------------------
sub www_manageUsersInGroup {
my $session = shift;
return $session->privilege->adminOnly() unless (canEditGroup($session,$session->form->process("gid")));
return $session->privilege->adminOnly() unless (canEditGroup($session,$session->form->process("gid")));
my $i18n = WebGUI::International->new($session);
my $output = WebGUI::Form::formHeader($session,)
.WebGUI::Form::hidden($session,{
@ -778,6 +799,15 @@ sub www_manageUsersInGroup {
-value => "addUsersToGroupSave"
);
my $group = WebGUI::Group->new($session,$session->form->process("gid"));
$f->readOnly(
-label => $i18n->get(379),
-value => $group->getId,
);
$f->readOnly(
-label => $i18n->get(84),
-value => $group->name,
);
my $existingUsers = $group->getUsers;
push(@{$existingUsers},"1");
my %users;