From 5dd350ca0131a78482da550001f54d55dbadf420 Mon Sep 17 00:00:00 2001 From: Frank Dillon Date: Thu, 19 May 2005 00:19:31 +0000 Subject: [PATCH] Added properties to bind groups and groups of groups in LDAP to a WebGUI Group --- lib/WebGUI/Operation/Group.pm | 21 ++++++++++++++++++++- 1 file changed, 20 insertions(+), 1 deletion(-) diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm index d1b44837e..48f62b1ea 100644 --- a/lib/WebGUI/Operation/Group.pm +++ b/lib/WebGUI/Operation/Group.pm @@ -336,6 +336,22 @@ sub www_editGroup { -value=>$g->dbQuery, -label=>WebGUI::International::get(1005) ); + $f->text( + -name=>"ldapGroup", + -label=>WebGUI::International::get("LDAPLink_ldapGroup"), + -value=>$g->ldapGroup + ); + $f->text( + -name=>"ldapGroupProperty", + -label=>WebGUI::International::get("LDAPLink_ldapGroupProperty"), + -value=>$g->ldapGroupProperty, + -defaultValue=>"member" + ); + $f->text( + -name=>"ldapRecursiveProperty", + -label=>WebGUI::International::get("LDAPLink_ldapRecursiveProperty"), + -value=>$g->ldapRecursiveProperty + ); $f->interval( -name=>"dbCacheTimeout", -label=>WebGUI::International::get(1004), @@ -365,7 +381,10 @@ sub www_editGroupSave { $g->databaseLinkId($session{form}{databaseLinkId}); $g->dbQuery($session{form}{dbQuery}); $g->dbCacheTimeout(WebGUI::FormProcessor::interval("dbCacheTimeout")); - return www_listGroups(); + $g->ldapGroup(WebGUI::FormProcessor::text("ldapGroup")); + $g->ldapGroupProperty(WebGUI::FormProcessor::text("ldapGroupProperty")); + $g->ldapRecursiveProperty(WebGUI::FormProcessor::text("ldapRecursiveProperty")); + return www_listGroups(); } #-------------------------------------------------------------------