From dc3065a32881d91670b72574c9b918056484a041 Mon Sep 17 00:00:00 2001 From: Colin Kuskie Date: Thu, 30 Jun 2005 23:05:45 +0000 Subject: [PATCH] convert from positional to named parameters in form --- lib/WebGUI/Auth/LDAP.pm | 13 +++++++++++-- 1 file changed, 11 insertions(+), 2 deletions(-) diff --git a/lib/WebGUI/Auth/LDAP.pm b/lib/WebGUI/Auth/LDAP.pm index 66481282d..72506a3e3 100644 --- a/lib/WebGUI/Auth/LDAP.pm +++ b/lib/WebGUI/Auth/LDAP.pm @@ -116,13 +116,22 @@ sub addUserForm { $f->selectList( -name=>"authLDAP_ldapConnection", -label=>WebGUI::International::get("ldapConnection",'AuthLDAP'), + -hoverHelp=>WebGUI::International::get("ldapConnection description",'AuthLDAP'), -options=>WebGUI::LDAPLink::getList(), -value=>[$ldapConnection], -extras=>q|onchange="this.form.authLDAP_ldapUrl.value=ldapValue[this.options[this.selectedIndex].value];"| ); } - $f->url("authLDAP_ldapUrl",WebGUI::International::get(3,'AuthLDAP'),$ldapUrl); - $f->text("authLDAP_connectDN",WebGUI::International::get(4,'AuthLDAP'),$connectDN); + $f->url( + -name => "authLDAP_ldapUrl", + -label => WebGUI::International::get(3,'AuthLDAP'), + -value => $ldapUrl, + ); + $f->text( + -name => "authLDAP_connectDN", + -label => WebGUI::International::get(4,'AuthLDAP'), + -value => $connectDN, + ); return $jscript.$f->printRowsOnly; }