From ed753ac00b2ad817da7974c99a8cc35cfe884dea Mon Sep 17 00:00:00 2001
From: Frank Dillon <frank@plainblack.com>
Date: Wed, 18 May 2005 16:23:42 +0000
Subject: [PATCH] Added LDAP Link Form API item

---
 lib/WebGUI/Form.pm     | 51 ++++++++++++++++++++++++++
 lib/WebGUI/HTMLForm.pm | 83 ++++++++++++++++++++++++++++++++++++++++++
 2 files changed, 134 insertions(+)

diff --git a/lib/WebGUI/Form.pm b/lib/WebGUI/Form.pm
index 7f0c22094..b15658930 100644
--- a/lib/WebGUI/Form.pm
+++ b/lib/WebGUI/Form.pm
@@ -1296,6 +1296,57 @@ sub interval {
 	return $output;
 }
 
+#-------------------------------------------------------------------
+                                                                                                                                                      
+=head2 ldapLink ( hashRef )
+                                                                                                                                                       
+Returns a select list of ldap links.
+                                                                                                                                                       
+=head3 name
+                                                                                                                                                       
+The name field for this form element. Defaults to "ldapLinkId".
+                                                                                                                                                       
+=head3 value
+                                                                                                                                               
+The default value(s) for this form element. This should be passed as an array reference. 
+                                                                                                                                         
+=head3 defaultValue
+
+This will be used if no value is specified. Defaults to 0 (the WebGUI database).
+
+=head3 size 
+
+The number of characters tall this form element should be. Defaults to "1".
+
+=head3 multiple
+
+A boolean value for whether this select list should allow multiple selections. Defaults to "0".
+
+=head3 extras
+
+If you want to add anything special to this form element like javascript actions, or stylesheet information, you'd add it in here as follows:
+
+ 'onChange="this.form.submit()"'
+
+=cut
+                                                                                                                                                             
+sub ldapLink {
+	my $params = shift;
+    my $value = $params->{value} || [$params->{defaultValue}] || [0];
+    my $name = $params->{name} || "ldapLinkId";
+	my $size = $params->{size} || 1;
+	my $multiple = $params->{multiple} || 0;
+	my $extras = $params->{extras} || "";
+    return selectList({
+                name=>$name,
+                options=>WebGUI::LDAPLink::getList(),
+                value=>$value,
+				size=>$size,
+				multiple=>$multiple,
+				extras=>$extras
+                });
+}
+
 
 #-------------------------------------------------------------------
 
diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm
index 73fa9e936..1b31c690f 100644
--- a/lib/WebGUI/HTMLForm.pm
+++ b/lib/WebGUI/HTMLForm.pm
@@ -128,6 +128,10 @@ $f->dynamicField(text,
 	-intervalValue=>12,
 	-unitsValue=>"hours"
 	);
+ $f->ldapLink(
+    -name=>"ldapLink",
+	-label="LDAP Connection"
+    )
  $f->password(
 	-name=>"identifier",
 	-label=>"Password"
@@ -1626,6 +1630,85 @@ sub interval {
         $self->{_data} .= $output;
 }
 
+#-------------------------------------------------------------------
+
+=head2 ldapLink (  [name , value, label, afterEdit, extras, uiLevel, defaultValue ] )
+
+Adds a ldap link select list to the form.
+
+=head3 name
+
+The name of this form element.
+
+=head3 value
+
+The default value(s) for this form element. This should be passed as an array reference.
+
+=head3 label
+
+The left column label for this form row. Defaults to "LDAP Link".
+
+=head3 size 
+
+The number of characters tall this form element should be. Defaults to "1".
+
+=head3 multiple
+
+A boolean value for whether this select list should allow multiple selections. Defaults to "0".
+
+=head3 extras
+
+If you want to add anything special to this form element like javascript actions, or stylesheet information, you'd add it in here as follows:
+
+ 'onChange="this.form.submit()"'
+
+=head3 afterEdit
+
+A URL that will be acted upon after editing a database link. Typically there is a link next to the select list that reads "Edit this ldap link" and this is the URL to go to after editing is complete.
+
+=head3 uiLevel
+
+The UI level for this field. See the WebGUI developer's site for details. Defaults to "5".
+
+=head3 defaultValue
+
+When no other value is passed, we'll use this.
+
+=cut
+
+sub ldapLink {
+   my ($output, $subtext);
+   my ($self, @p) = @_;
+   my ($name, $value, $label, $size, $multiple, $afterEdit, $extras, $uiLevel, $defaultValue) = rearrange([qw(name value label size multiple afterEdit extras uiLevel defaultValue)], @p);
+   $size = 1 unless ($size);
+   $multiple = 0 unless ($multiple);
+   if (_uiLevelChecksOut($uiLevel)) {
+      $label = $label || WebGUI::International::get(1075);
+	  if (WebGUI::Grouping::isInGroup(3)) {
+	     if ($afterEdit) {
+            $subtext = editIcon("op=editLDAPLink&amp;llid=".$value."&amp;afterEdit=".WebGUI::URL::escape($afterEdit));
+         }
+         $subtext .= manageIcon("op=listLDAPLinks");
+	  }
+      $output = WebGUI::Form::ldapLink({
+                	"name"=>$name,
+                	"value"=>$value,
+                	"extras"=>$extras,
+					"size"=>$size,
+					"multiple"=>$multiple,
+			        "defaultValue"=>$defaultValue
+                	});
+      $output .= _subtext($subtext);
+      $output = $self->_tableFormRow($label,$output);
+   } else {
+      $output = WebGUI::Form::hidden({
+                        "name"=>$name,
+                        "value"=>$value,
+			            "defaultValue"=>$defaultValue
+                      });
+   }
+   $self->{_data} .= $output;
+}
 
 #-------------------------------------------------------------------