diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt index dd48f1336..82bb0717a 100644 --- a/docs/changelog/7.x.x.txt +++ b/docs/changelog/7.x.x.txt @@ -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 diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm index 11b51651a..1d3329b38 100644 --- a/lib/WebGUI/Operation/Group.pm +++ b/lib/WebGUI/Operation/Group.pm @@ -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;