oqapi/webgui
2
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

Added LDAP Link Form API item

Browse source
This commit is contained in:
Frank Dillon 2005-05-18 16:23:42 +00:00
parent 6d52ec055f
commit ed753ac00b
2 changed files with 134 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

51
lib/WebGUI/Form.pm
View file

@ -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
});
}
#-------------------------------------------------------------------

83
lib/WebGUI/HTMLForm.pm
View file

@ -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&llid=".$value."&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;
}
#-------------------------------------------------------------------