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

added most of the rest of the form controls

Browse source
This commit is contained in:
JT Smith 2005-07-27 23:03:46 +00:00
parent ce6ee697f9
commit b86148acaa
12 changed files with 35 additions and 1870 deletions
Download patch file Download diff file Expand all files Collapse all files

16
lib/WebGUI/Form/databaseLink.pm
View file

@ -22,6 +22,7 @@ use WebGUI::Grouping;
use WebGUI::Icon;
use WebGUI::International;
use WebGUI::Session;
use WebGUI::URL;
=head1 NAME
@ -61,11 +62,7 @@ A database link id. Defaults to "0", which is the WebGUI database.
=head4 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 database link" and this is the URL to go to after editing is complete.
=head4 label
A label displayed next to the field when toHtmlWithWrapper() is called. Defaults to "Database Link".
A URL that will be acted upon after editing a database link.
=head4 hoverHelp
@ -86,9 +83,6 @@ sub definition {
afterEdit=>{
defaultValue=>undef
},
label=>{
defaultValue=>WebGUI::International::get(1075)
},
hoverHelp=>{
defaultValue=>WebGUI::International::get('1075 description')
},
@ -121,7 +115,8 @@ sub toHtml {
return WebGUI::Form::selectList->new(
name=>$self->{name},
options=>WebGUI::DatabaseLink::getList(),
value=>[$self->{value}]
value=>[$self->{value}],
extras=>$self->{extras}
)->toHtml;
}
@ -140,7 +135,7 @@ sub toHtmlWithWrapper {
if ($self->{afterEdit}) {
$subtext = editIcon("op=editDatabaseLink&lid=".$self->{value}."&afterEdit=".WebGUI::URL::escape($self->{afterEdit}));
}
$subtext = .= manageIcon("op=listDatabaseLinks");
$subtext .= manageIcon("op=listDatabaseLinks");
$self->{subtext} = $subtext . $self->{subtext};
}
return $self->SUPER::toHtmlWithWrapper;
@ -148,5 +143,6 @@ sub toHtmlWithWrapper {
1;