adding LDAP link to group

This commit is contained in:
Frank Dillon 2006-06-23 01:50:21 +00:00
parent 6e734b900f
commit 76af04f71b

View file

@ -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"));