From 76af04f71b5e808479a38d3c3cfee70c65ea9301 Mon Sep 17 00:00:00 2001
From: Frank Dillon <frank@plainblack.com>
Date: Fri, 23 Jun 2006 01:50:21 +0000
Subject: [PATCH] adding LDAP link to group

---
 lib/WebGUI/Operation/Group.pm | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/lib/WebGUI/Operation/Group.pm b/lib/WebGUI/Operation/Group.pm
index 60ba71d22..089e6b93d 100644
--- a/lib/WebGUI/Operation/Group.pm
+++ b/lib/WebGUI/Operation/Group.pm
@@ -377,6 +377,17 @@ sub www_editGroup {
 		-label=>$i18n->get(1005),
 		-hoverHelp=>$i18n->get('1005 description'),
 		);
+		
+    tie my %links, "Tie::IxHash";
+	%links = %{WebGUI::LDAPLink->getList($session)};
+	%links = (""=>$i18n->get("noldaplink"),%links);
+	$f->selectBox(
+	                -name=>"ldapLinkId",
+					-label=>$i18n->get("ldapConnection","AuthLDAP"),
+					-hoverHelp=>$i18n->get("ldapConnection description","AuthLDAP"),
+					-options=>\%links,
+					-value=>[$g->ldapLinkId]
+				  );
 	$f->text(
 	       -name=>"ldapGroup",
 		   -label=>$i18n->get("LDAPLink_ldapGroup","AuthLDAP"),
@@ -427,6 +438,7 @@ sub www_editGroupSave {
 	$g->databaseLinkId($session->form->process("databaseLinkId"));
 	$g->dbQuery($session->form->process("dbQuery"));
 	$g->groupCacheTimeout($session->form->interval("groupCacheTimeout"));
+	$g->ldapLinkId($session->form->selectBox("ldapLinkId"));
 	$g->ldapGroup($session->form->text("ldapGroup"));
 	$g->ldapGroupProperty($session->form->text("ldapGroupProperty"));
 	$g->ldapRecursiveProperty($session->form->text("ldapRecursiveProperty"));