diff --git a/lib/WebGUI/Form/Control.pm b/lib/WebGUI/Form/Control.pm index 089a561e8..429fe63c6 100644 --- a/lib/WebGUI/Form/Control.pm +++ b/lib/WebGUI/Form/Control.pm @@ -165,6 +165,19 @@ sub definition { return $definition; } +#------------------------------------------------------------------- + +=head2 getName ( ) + +Returns a human readable name for this form control type. You MUST override this method with your own when creating new form controls. + +=cut + +sub getName { + return "Form control not properly created." +} + + #------------------------------------------------------------------- =head2 fixMacros ( string ) @@ -297,7 +310,6 @@ sub new { unless (exists $params{value}) { $params{value} = $params{defaultValue}; } -WebGUI::ErrorHandler::debug($class); bless \%params, $class; } @@ -362,7 +374,10 @@ sub toHtmlWithWrapper { $hoverHelp = qq| onmouseover="return escape('$hoverHelp')"| if ($hoverHelp); my $subtext = $self->{subtext}; $subtext = qq| $subtext| if ($subtext); - return ''.$self->{label}.''.$self->toHtml.$subtext."\n"; + return ' + '.$self->{label}.' + '.$self->toHtml().$subtext." + \n"; } else { return $self->toHtmlAsHidden; } diff --git a/lib/WebGUI/Form/asset.pm b/lib/WebGUI/Form/asset.pm index a48a7ca4b..1f363fa71 100644 --- a/lib/WebGUI/Form/asset.pm +++ b/lib/WebGUI/Form/asset.pm @@ -20,6 +20,7 @@ use WebGUI::Asset; use WebGUI::Form::button; use WebGUI::Form::hidden; use WebGUI::Form::text; +use WebGUI::International; use WebGUI::Session; =head1 NAME @@ -75,6 +76,19 @@ sub definition { } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("asset","Asset"); +} + + #------------------------------------------------------------------- =head2 toHtml ( ) diff --git a/lib/WebGUI/Form/button.pm b/lib/WebGUI/Form/button.pm index edcc57983..e9a12a7ff 100644 --- a/lib/WebGUI/Form/button.pm +++ b/lib/WebGUI/Form/button.pm @@ -65,6 +65,19 @@ sub definition { } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("button","WebGUI"); +} + + #------------------------------------------------------------------- =head2 toHtml ( ) diff --git a/lib/WebGUI/Form/checkList.pm b/lib/WebGUI/Form/checkList.pm index 6aee0618a..c9f48afa0 100644 --- a/lib/WebGUI/Form/checkList.pm +++ b/lib/WebGUI/Form/checkList.pm @@ -17,6 +17,7 @@ package WebGUI::Form::checkList; use strict; use base 'WebGUI::Form::Control'; use WebGUI::Form::checkbox; +use WebGUI::International; use WebGUI::Session; =head1 NAME @@ -79,6 +80,19 @@ sub definition { } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("941","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/Form/checkbox.pm b/lib/WebGUI/Form/checkbox.pm index ae94db31f..a7a8120f1 100644 --- a/lib/WebGUI/Form/checkbox.pm +++ b/lib/WebGUI/Form/checkbox.pm @@ -16,6 +16,7 @@ package WebGUI::Form::checkbox; use strict; use base 'WebGUI::Form::Control'; +use WebGUI::International; use WebGUI::Session; =head1 NAME @@ -71,6 +72,19 @@ sub definition { } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("943","WebGUI"); +} + + #------------------------------------------------------------------- =head2 toHtml ( ) diff --git a/lib/WebGUI/Form/codearea.pm b/lib/WebGUI/Form/codearea.pm index 213d9d428..3e0334308 100644 --- a/lib/WebGUI/Form/codearea.pm +++ b/lib/WebGUI/Form/codearea.pm @@ -16,6 +16,7 @@ package WebGUI::Form::codearea; use strict; use base 'WebGUI::Form::text'; +use WebGUI::International; use WebGUI::Session; use WebGUI::Style; @@ -38,6 +39,19 @@ The following methods are specifically available from this class. Check the supe =cut +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("codearea","WebGUI"); +} + + #------------------------------------------------------------------- =head2 toHtml ( ) diff --git a/lib/WebGUI/Form/color.pm b/lib/WebGUI/Form/color.pm index 972ad567e..a15976149 100644 --- a/lib/WebGUI/Form/color.pm +++ b/lib/WebGUI/Form/color.pm @@ -16,6 +16,7 @@ package WebGUI::Form::color; use strict; use base 'WebGUI::Form::Control'; +use WebGUI::International; use WebGUI::Session; use WebGUI::Style; @@ -37,6 +38,19 @@ The following methods are specifically available from this class. Check the supe =cut +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("color","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/Form/combo.pm b/lib/WebGUI/Form/combo.pm index f09b1d54d..bce7c8a28 100644 --- a/lib/WebGUI/Form/combo.pm +++ b/lib/WebGUI/Form/combo.pm @@ -39,6 +39,19 @@ The following methods are specifically available from this class. Check the supe =cut +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("combobox","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/Form/contentType.pm b/lib/WebGUI/Form/contentType.pm index 83952059f..8b44958fd 100644 --- a/lib/WebGUI/Form/contentType.pm +++ b/lib/WebGUI/Form/contentType.pm @@ -73,6 +73,19 @@ sub definition { } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("1007","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/Form/databaseLink.pm b/lib/WebGUI/Form/databaseLink.pm index 622c4cdcc..60359e0b7 100644 --- a/lib/WebGUI/Form/databaseLink.pm +++ b/lib/WebGUI/Form/databaseLink.pm @@ -18,6 +18,8 @@ use strict; use base 'WebGUI::Form::Control'; use WebGUI::DatabaseLink; use WebGUI::Form::selectList; +use WebGUI::Grouping; +use WebGUI::International; use WebGUI::Session; =head1 NAME @@ -56,6 +58,18 @@ The identifier for this field. Defaults to "databaseLinkId". 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". + +=head4 hoverHelp + +A tooltip to tell the user what to do with the field. Defaults a standard piece of help for Database Links. + =cut sub definition { @@ -68,10 +82,30 @@ sub definition { defaultValue=>{ defaultValue=>0 }, + afterEdit=>{ + defaultValue=>undef + }, + label=>{ + defaultValue=>WebGUI::International::get(1075) + }, + hoverHelp=>{ + defaultValue=>WebGUI::International::get('1075 description') + }, }); return $class->SUPER::definition($definition); } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("1075","WebGUI"); +} #------------------------------------------------------------------- @@ -90,6 +124,25 @@ sub toHtml { )->toHtml; } +#------------------------------------------------------------------- + +=head2 toHtmlWithWrapper ( ) + +=cut + +sub toHtmlWithWrapper { + my $self = shift; + if (WebGUI::Grouping::isInGroup(3)) { + my $subtext; + if ($self->{afterEdit}) { + $subtext = editIcon("op=editDatabaseLink&lid=".$self->{value}."&afterEdit=".WebGUI::URL::escape($self->{afterEdit})); + } + $subtext = .= manageIcon("op=listDatabaseLinks"); + $self->{subtext} = $subtext . $self->{subtext}; + } + return $self->SUPER::toHtmlWithWrapper; +} + 1; diff --git a/lib/WebGUI/Form/date.pm b/lib/WebGUI/Form/date.pm index 102efbd4b..e45a6fac5 100644 --- a/lib/WebGUI/Form/date.pm +++ b/lib/WebGUI/Form/date.pm @@ -17,6 +17,7 @@ package WebGUI::Form::date; use strict; use base 'WebGUI::Form::text'; use WebGUI::DateTime; +use WebGUI::International; use WebGUI::Session; use WebGUI::Style; @@ -86,6 +87,19 @@ sub definition { return $class->SUPER::definition($definition); } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("479","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/Form/dateTime.pm b/lib/WebGUI/Form/dateTime.pm index 7b977557e..5c4a18e2a 100644 --- a/lib/WebGUI/Form/dateTime.pm +++ b/lib/WebGUI/Form/dateTime.pm @@ -17,6 +17,7 @@ package WebGUI::Form::dateTime; use strict; use base 'WebGUI::Form::text'; use WebGUI::DateTime; +use WebGUI::International; use WebGUI::Session; use WebGUI::Style; @@ -79,6 +80,19 @@ sub definition { return $class->SUPER::definition($definition); } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("972","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/Form/email.pm b/lib/WebGUI/Form/email.pm index 9724dd8a9..b6898b276 100644 --- a/lib/WebGUI/Form/email.pm +++ b/lib/WebGUI/Form/email.pm @@ -16,6 +16,7 @@ package WebGUI::Form::email; use strict; use base 'WebGUI::Form::text'; +use WebGUI::International; use WebGUI::Session; use WebGUI::Style; @@ -37,6 +38,19 @@ The following methods are specifically available from this class. Check the supe =cut +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("480","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/Form/hidden.pm b/lib/WebGUI/Form/hidden.pm index ec7b2f709..01f3f92a6 100644 --- a/lib/WebGUI/Form/hidden.pm +++ b/lib/WebGUI/Form/hidden.pm @@ -16,6 +16,7 @@ package WebGUI::Form::hidden; use strict; use base 'WebGUI::Form::Control'; +use WebGUI::International; use WebGUI::Session; =head1 NAME @@ -36,6 +37,19 @@ The following methods are specifically available from this class. Check the supe =cut +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("hidden","WebGUI"); +} + + #------------------------------------------------------------------- =head2 toHtml ( ) diff --git a/lib/WebGUI/Form/selectList.pm b/lib/WebGUI/Form/selectList.pm index 09229b14a..9680c0277 100644 --- a/lib/WebGUI/Form/selectList.pm +++ b/lib/WebGUI/Form/selectList.pm @@ -16,6 +16,7 @@ package WebGUI::Form::selectList; use strict; use base 'WebGUI::Form::Control'; +use WebGUI::International; use WebGUI::Session; =head1 NAME @@ -92,6 +93,19 @@ sub definition { } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("484","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/Form/text.pm b/lib/WebGUI/Form/text.pm index ec6512db6..5662660f9 100644 --- a/lib/WebGUI/Form/text.pm +++ b/lib/WebGUI/Form/text.pm @@ -16,6 +16,7 @@ package WebGUI::Form::text; use strict; use base 'WebGUI::Form::Control'; +use WebGUI::International; use WebGUI::Session; =head1 NAME @@ -71,6 +72,20 @@ sub definition { } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("475","WebGUI"); +} + + + #------------------------------------------------------------------- =head2 toHtml ( ) diff --git a/lib/WebGUI/Form/textarea.pm b/lib/WebGUI/Form/textarea.pm index 62cd21420..a125b2c33 100644 --- a/lib/WebGUI/Form/textarea.pm +++ b/lib/WebGUI/Form/textarea.pm @@ -16,6 +16,7 @@ package WebGUI::Form::textarea; use strict; use base 'WebGUI::Form::Control'; +use WebGUI::International; use WebGUI::Session; =head1 NAME @@ -80,6 +81,20 @@ sub definition { } +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("476","WebGUI"); +} + + + #------------------------------------------------------------------- =head2 toHtml ( ) diff --git a/lib/WebGUI/Form/zipcode.pm b/lib/WebGUI/Form/zipcode.pm index 9b8cc7d5f..ab2bb2be1 100644 --- a/lib/WebGUI/Form/zipcode.pm +++ b/lib/WebGUI/Form/zipcode.pm @@ -16,6 +16,7 @@ package WebGUI::Form::zipcode; use strict; use base 'WebGUI::Form::text'; +use WebGUI::International; use WebGUI::Session; use WebGUI::Style; @@ -64,6 +65,20 @@ sub definition { return $class->SUPER::definition($definition); } + +#------------------------------------------------------------------- + +=head2 getName () + +Returns the human readable name or type of this form control. + +=cut + +sub getName { + return WebGUI::International::get("944","WebGUI"); +} + + #------------------------------------------------------------------- =head2 getValueFromPost ( ) diff --git a/lib/WebGUI/HTMLForm.pm b/lib/WebGUI/HTMLForm.pm index 6e26c33ce..dae0199b2 100644 --- a/lib/WebGUI/HTMLForm.pm +++ b/lib/WebGUI/HTMLForm.pm @@ -262,6 +262,7 @@ Dynamically creates functions on the fly for all the different form control type sub AUTOLOAD { our $AUTOLOAD; + my $self = shift; my $name = (split /::/, $AUTOLOAD)[-1]; my @params = @_; my $cmd = "use WebGUI::Form::".$name; @@ -271,791 +272,23 @@ sub AUTOLOAD { return undef; } my $class = "WebGUI::Form::".$name; - return $class->new(@params)->toHtmlWithWrapper; + $self->{_data} .= $class->new(@params)->toHtmlWithWrapper; } - - #------------------------------------------------------------------- -=head2 asset ( name, label, value, class, extras, subtext, defaultValue, uiLevel ) +=head2 DESTROY () -Returns an asset picker control. - -=head3 name - -The name of this field. Defaults to "asset". - -=head3 label - -A label to display next to this field. - -=head3 value - -The asset ID to assign to this control. - -=head3 class - -Limit the assets picked to a specific class such as "WebGUI::Asset::File" - -=head3 extras - -Add extra attributes to the form element like javascript event handlers. - -=head3 subtext - -A small message to appear under the form element with additional instructions. - -=head3 defaultValue - -If value is not specified we'll use this instead. - -=head3 uiLevel - -What UI level is required to see this control. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. +Disposes of the form object. =cut -sub asset { - my ($self, @p) = @_; - my ($name, $label, $value, $class, $extras, $subtext, $defaultValue, $uiLevel, $hoverHelp) = rearrange([qw(name label value class extras subtext defaultValue uiLevel hoverHelp)], @p); - my $output; - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::asset({ - "name"=>$name, - "value"=>$value, - "class"=>$class, - "extras"=>$extras, - "defaultValue"=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - "defaultValue"=>$defaultValue - }); - } - $self->{_data} .= $output; +sub DESTROY { + my $self = shift; + $self = undef; } -#------------------------------------------------------------------- - -=head2 button ( value [, label, extras, subtext, defaultValue ] ) - -Adds a button row to this form. Use it in combination with scripting code to make the button perform an action. - -=head3 value - -The button text for this button. - -=head3 label - -The left column label for this form row. - -=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: - - 'onClick="alert(\'Hello there!\')"' - -=head3 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 defaultValue - -If no value is specified, a default value to use. Defaults to "save". - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub button { - my ($output); - my ($self, @p) = @_; - my ($value, $label, $extras, $subtext, $defaultValue, $hoverHelp) = rearrange([qw(value label extras subtext defaultValue hoverHelp)], @p); - $output = WebGUI::Form::button({ - "value"=>$value, - "extras"=>$extras, - "defaultValue"=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - $self->{_data} .= $output; -} - -#------------------------------------------------------------------- - -=head2 checkbox ( name [, label, checked, subtext, value, extras, uiLevel, defaultValue ] ) - -Adds a checkbox row to this form. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 checked - -If you'd like this box to be defaultly checked, set this to "1". - -=head3 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 value - -The default value for this form element. - -=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 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -When no value is specified, we'll use this. Defaults to "1". - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub checkbox { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $checked, $subtext, $value, $extras, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name label checked subtext value extras uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::checkbox({ - "name"=>$name, - "value"=>$value, - "checked"=>$checked, - "extras"=>$extras, - "defaultValue"=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - if ($checked) { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - "defaultValue"=>$defaultValue - }); - } - } - $self->{_data} .= $output; -} - -#------------------------------------------------------------------- - -=head2 checkList ( name, options [ , label, value, vertical, extras, subtext, uiLevel, defaultValue ] ) - -Adds a checkbox list row to this form. - -=head3 name - -The name field for this form element. - -=head3 options - -The list of options for this list. Should be passed as a hash reference. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default value(s) for this form element. This should be passed as an array reference. - -=head3 vertical - -If set to "1" the radio button elements will be laid out horizontally. 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 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -When no other value is passed, use this. Should be passed as an array reference. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub checkList { - my ($output); - my ($self, @p) = @_; - my ($name, $options, $label, $value, $vertical, $extras, $subtext, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name options label value vertical extras subtext uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::checkList({ - "name"=>$name, - "options"=>$options, - "value"=>$value, - "vertical"=>$vertical, - "extras"=>$extras - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hiddenList({ - "name"=>$name, - "options"=>$options, - "value"=>$value, - "defaultValue"=>$defaultValue - }); - } - $self->{_data} .= $output; -} - - - -#------------------------------------------------------------------- - -=head2 codearea ( name [, label, value, subtext, extras, wrap, rows, columns, uiLevel, defaultValue ] ) - -Adds a codearea row to this form. A code area is different than a standard text area in that it stretches to fill more area of the screen, and allows for text editor type keystrokes such as tabs. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default value for this form element. - -=head3 subtext - -Extra text to describe this form element or to provide special instructions. - -=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 wrap - -The method for wrapping text in the text area. Defaults to "virtual". There should be almost no reason to specify this. - -=head3 rows - -The number of characters tall this form element should be. There should be no reason for anyone to specify this. - -=head3 columns - -The number of characters wide this form element should be. There should be no reason for anyone to specify this. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -If no value is specified, this will be used. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub codearea { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $value, $subtext, $extras, $wrap, $rows, $columns, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name label value subtext extras wrap rows columns uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::codearea({ - "name"=>$name, - "value"=>$value, - "wrap"=>$wrap, - "columns"=>$columns, - "rows"=>$rows, - "extras"=>$extras, - defaultValue =>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} - -#------------------------------------------------------------------- - -=head2 color ( name, [, label, value, subtext, uiLevel, defaultValue ] ) - -Adds a hex color picker field. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 value - -The value for this form element. Should be passed as a scalar containing a hex color like this: #000000 - -=head3 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -When no other value is present, will use this. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub color { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $value, $subtext, $uiLevel, $defaultValue, $hoverHelp) = rearrange([qw(name label value subtext uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::color({ - "name"=>$name, - "value"=>$value, - "defaultValue"=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - "defaultValue",$defaultValue - }); - } - $self->{_data} .= $output; -} - - -#------------------------------------------------------------------- - -=head2 combo ( name, options [, label, value, size, multiple, extras, subtext, uiLevel, defaultValue ] ) - -Adds a combination select list / text box row to this form. If the text box is filled out it will have a value stored in "name"_new where name is the first field passed into this method. - -=head3 name - -The name field for this form element. - -=head3 options - -The list of options for this select list. Should be passed as a hash reference. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default value(s) for this form element. This should be passed as an array reference. - -=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 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -When no other value is present, will use this. Should be passed as an array reference. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub combo { - my ($output); - my ($self, @p) = @_; - my ($name, $options, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name options label value size multiple extras subtext uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::combo({ - "name"=>$name, - "options"=>$options, - "value"=>$value, - "size"=>$size, - "multiple"=>$multiple, - "extras"=>$extras, - "defaultValue"=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hiddenList({ - "name"=>$name, - "options"=>$options, - "value"=>$value, - "defaultValue",$defaultValue - }); - } - $self->{_data} .= $output; -} - -#------------------------------------------------------------------- - -=head2 contentType ( name, types [, label, value, extras, subtext, uiLevel, defaultValue ] ) - -Adds a content type select list field to this form. - -=head3 name - -The name field for this form element. - -=head3 types - -An array reference of field types to be displayed. The valid types are "code", "mixed", "html", and "text". Defaults to all types. - -=head3 label - -The left column label for this form row. Defaults to "Content Type". - -=head3 value - -The default value for this form element. - -=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 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "3". - -=head3 defaultValue - -When no value is specified, we'll use this. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub contentType { - my ($output); - my ($self, @p) = @_; - my ($name, $types, $label, $value, $extras, $subtext, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name types label value extras subtext uiLevel defaultValue hoverHelp)], @p); - $uiLevel = 3 if ($uiLevel eq ""); - if (_uiLevelChecksOut($uiLevel)) { - $label = WebGUI::International::get(1007) unless ($label); - $output = WebGUI::Form::fieldType({ - "name"=>$name, - "types"=>$types, - "value"=>$value, - "extras"=>$extras, - defaultValue=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} - - -#------------------------------------------------------------------- - -=head2 databaseLink ( [name , value, label, afterEdit, extras, uiLevel, defaultValue ] ) - -Adds a database link select list to the form. - -=head3 name - -The name of this form element. - -=head3 value - -The default value for this form element. - -=head3 label - -The left column label for this form row. Defaults to "Database Link". - -=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 database link" and this is the URL to go to after editing is complete. - -=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 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. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub databaseLink { - my ($output, $subtext); - my ($self, @p) = @_; - my ($name, $value, $label, $afterEdit, $extras, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name value label afterEdit extras uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $label = $label || WebGUI::International::get(1075); - $hoverHelp = $hoverHelp || WebGUI::International::get('1075 description'); - if (WebGUI::Grouping::isInGroup(3)) { - if ($afterEdit) { - $subtext = editIcon("op=editDatabaseLink&lid=".$value."&afterEdit=".WebGUI::URL::escape($afterEdit)); - } - $subtext .= manageIcon("op=listDatabaseLinks"); - } - $output = WebGUI::Form::databaseLink({ - "name"=>$name, - "value"=>$value, - "extras"=>$extras, - "defaultValue"=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - "defaultValue"=>$defaultValue - }); - } - $self->{_data} .= $output; -} - - - -#------------------------------------------------------------------- - -=head2 date ( name [, label, value, extras, subtext, size, noDate, uiLevel, defaultValue ] ) - -Adds a date row to this form. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default date. Pass as an epoch value. - -=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 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 size - -The number of characters wide this form element should be. There should be no reason for anyone to specify this. - -=head3 noDate - -By default a date is placed in the "value" field. Set this to "1" to turn off the default date. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -When no value is specified, use this. Defaults to today. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub date { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $value, $extras, $subtext, $size, $noDate, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name label value extras subtext size noDate uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::date({ - "name"=>$name, - "value"=>$value, - "noDate"=>$noDate, - "size"=>$size, - "extras"=>$extras, - defaultValue=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>epochToSet($value), - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} - - - -#------------------------------------------------------------------- - -=head2 dateTime ( name [, label, value, subtext, uiLevel, dateExtras, timeExtras, defaultValue ] ) - -Adds a date time row to this form. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default date and time. Pass as an epoch value. Defaults to today and now. - -=head3 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 extras - -Extra parameters such as javascript or style sheet information that you wish to add to the form element. - -=head3 defaultValue - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub dateTime { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $value, $subtext, $uiLevel, $extras, $defaultValue, $hoverHelp) = - rearrange([qw(name label value subtext uiLevel extras defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::dateTime({ - "name"=>$name, - "value"=>$value, - "extras"=>$extras, - defaultValue=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>epochToSet($value,1), - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} - #------------------------------------------------------------------- @@ -1099,82 +332,6 @@ sub dynamicField { $self->{_data} .= $output; } -#------------------------------------------------------------------- - -=head2 email ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] ) - -Adds an email address row to this form. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default value for this form element. - -=head3 maxlength - -The maximum number of characters to allow in this form element. - -=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 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 size - -The number of characters wide this form element should be. There should be no reason for anyone to specify this. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -When no other value is specified, this will be used. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub email { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::email({ - "name"=>$name, - "value"=>$value, - "maxlength"=>$maxlength, - "size"=>$size, - "extras"=>$extras, - "defaultValue" => $defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} - #------------------------------------------------------------------- @@ -1542,35 +699,6 @@ sub group { $self->{_data} .= $output; } -#------------------------------------------------------------------- - -=head2 hidden ( name, value [, defaultValue ] ) - -Adds a hidden row to this form. - -=head3 name - -The name field for this form element. - -=head3 value - -The default value for this form element. - -=head3 defaultValue - -If no value is specified, this will be used instead. - -=cut - -sub hidden { - my ($self, @p) = @_; - my ($name, $value, $defaultValue) = rearrange([qw(name value defaultValue)], @p); - $self->{_data} .= WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - defaultValue=>$defaultValue - }); -} #------------------------------------------------------------------- @@ -2335,92 +1463,6 @@ sub readOnly { $self->{_data} .= $output; } -#------------------------------------------------------------------- - -=head2 selectList ( name, options [, label, value, size, multiple, extras, subtext, uiLevel, sortByValue, defaultValue ] ) - -Adds a select list row to this form. - -=head3 name - -The name field for this form element. - -=head3 options - -The list of options for this select list. Should be passed as a hash reference. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default value(s) for this form element. This should be passed as an array reference. - -=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 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 sortByValue - -A boolean value for whether the values in the options hash should be sorted. - -=head3 defaultValue - -If no value is specified, this will be used. Pass as an array reference. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub selectList { - my ($output); - my ($self, @p) = @_; - my ($name, $options, $label, $value, $size, $multiple, $extras, $subtext, $uiLevel, $sortByValue, $defaultValue, $hoverHelp) = - rearrange([qw(name options label value size multiple extras subtext uiLevel sortByValue defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::selectList({ - "name"=>$name, - "options"=>$options, - "value"=>$value, - "multiple"=>$multiple, - "size"=>$size, - "extras"=>$extras, - "sortByValue"=>$sortByValue, - defaultValue=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hiddenList({ - "name"=>$name, - "options"=>$options, - "value"=>$value, - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} #------------------------------------------------------------------- @@ -2553,163 +1595,6 @@ sub template { #------------------------------------------------------------------- -=head2 text ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue, hoverHelp ] ) - -Adds a text row to this form. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default value for this form element. - -=head3 maxlength - -The maximum number of characters to allow in this form element. - -=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 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 size - -The number of characters wide this form element should be. There should be no reason for anyone to specify this. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -This will be used if no value is specified. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub text { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue, $hoverHelp) = - rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::text({ - "name"=>$name, - "value"=>$value, - "size"=>$size, - "maxlength"=>$maxlength, - "extras"=>$extras, - defaultValue=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} - -#------------------------------------------------------------------- - -=head2 textarea ( name [, label, value, subtext, extras, wrap, rows, columns, uiLevel, defaultValue ] ) - -Adds a text area row to this form. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default value for this form element. - -=head3 subtext - -Extra text to describe this form element or to provide special instructions. - -=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 wrap - -The method for wrapping text in the text area. Defaults to "virtual". There should be almost no reason to specify this. - -=head3 rows - -The number of characters tall this form element should be. There should be no reason for anyone to specify this. - -=head3 columns - -The number of characters wide this form element should be. There should be no reason for anyone to specify this. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -This will be used if no value is specified. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub textarea { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $value, $subtext, $extras, $wrap, $rows, $columns, $uiLevel, $defaultValue,$hoverHelp) = - rearrange([qw(name label value subtext extras wrap rows columns uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::textarea({ - "name"=>$name, - "value"=>$value, - "wrap"=>$wrap, - "columns"=>$columns, - "rows"=>$rows, - "extras"=>$extras, - defaultValue =>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output,$hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} - -#------------------------------------------------------------------- - =head2 timeField ( name [, label, value, extras, subtext, size, noDate, uiLevel, defaultValue ] ) Adds a date row to this form. @@ -3008,81 +1893,6 @@ sub yesNo { $self->{_data} .= $output; } -#------------------------------------------------------------------- - -=head2 zipcode ( name [, label, value, maxlength, extras, subtext, size, uiLevel, defaultValue ] ) - -Adds a zip code row to this form. - -=head3 name - -The name field for this form element. - -=head3 label - -The left column label for this form row. - -=head3 value - -The default value for this form element. - -=head3 maxlength - -The maximum number of characters to allow in this form element. - -=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 subtext - -Extra text to describe this form element or to provide special instructions. - -=head3 size - -The number of characters wide this form element should be. There should be no reason for anyone to specify this. - -=head3 uiLevel - -The UI level for this field. See the WebGUI developer's site for details. Defaults to "0". - -=head3 defaultValue - -Used if value not specified. - -=head3 hoverHelp - -A string of text or HTML to be displayed when a user's mouse hover's over a field label. It is meant to describe to the user what to use the field for. - -=cut - -sub zipcode { - my ($output); - my ($self, @p) = @_; - my ($name, $label, $value, $maxlength, $extras, $subtext, $size, $uiLevel, $defaultValue,$hoverHelp) = - rearrange([qw(name label value maxlength extras subtext size uiLevel defaultValue hoverHelp)], @p); - if (_uiLevelChecksOut($uiLevel)) { - $output = WebGUI::Form::zipcode({ - "name"=>$name, - "value"=>$value, - "size"=>$size, - "maxlength"=>$maxlength, - "extras"=>$extras, - defaultValue=>$defaultValue - }); - $output .= _subtext($subtext); - $output = $self->_tableFormRow($label,$output, $hoverHelp); - } else { - $output = WebGUI::Form::hidden({ - "name"=>$name, - "value"=>$value, - defaultValue=>$defaultValue - }); - } - $self->{_data} .= $output; -} diff --git a/lib/WebGUI/i18n/English/WebGUI.pm b/lib/WebGUI/i18n/English/WebGUI.pm index 9c5375dfb..14ccc6810 100644 --- a/lib/WebGUI/i18n/English/WebGUI.pm +++ b/lib/WebGUI/i18n/English/WebGUI.pm @@ -3301,6 +3301,36 @@ Privileges and styles assigned to pages in the package will not be copied when t context => q|option for Rich Editor in profile| }, + 'color' => { + message => q|Color|, + lastUpdated =>0, + context => q|Field type name| + }, + + 'combobox' => { + message => q|Combo Box|, + lastUpdated =>0, + context => q|Field type name| + }, + + 'hidden' => { + message => q|Hidden|, + lastUpdated =>0, + context => q|Field type name| + }, + + 'codearea' => { + message => q|Code Area|, + lastUpdated =>0, + context => q|Field type name| + }, + + 'button' => { + message => q|Button|, + lastUpdated =>0, + context => q|Field type name| + }, + 'cancel' => { message => q|cancel|, lastUpdated =>1092930637,