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

working on adding codearea form field type

Browse source
This commit is contained in:
JT Smith 2004-12-28 06:08:55 +00:00
parent a287beda58
commit cbb4f662c4
5 changed files with 105 additions and 4 deletions
Download patch file Download diff file Expand all files Collapse all files

15
lib/WebGUI/Form.pm
View file

@ -237,6 +237,15 @@ sub checkList {
return $output;
}
sub codearea {
my $params = shift;
WebGUI::Style::setScript($session{config}{extrasURL}.'/TabFix.js',{type=>"text/javascript"});
$params->{extras} = 'style="width: 99%; min-width: 440px; height: 400px" onkeypress="TabFix_keyPress(event.type)" onkeydown="TabFix_keyDown(event.type)"';
my $output = textarea($params);
return $output;
}
#-------------------------------------------------------------------
=head2 combo ( hashRef )
@ -426,9 +435,9 @@ sub date {
my $params = shift;
my $value = epochToSet($params->{value}||$params->{defaultValue}) unless ($params->{noDate} && $params->{value} eq '');
my $size = $params->{size} || 10;
WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/calendar.js',{ language=>'javascript' });
WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/lang/calendar-en.js',{ language=>'javascript' });
WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/calendar-setup.js',{ language=>'javascript' });
WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/calendar.js',{ type=>'text/javascript' });
WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/lang/calendar-en.js',{ type=>'text/javascript' });
WebGUI::Style::setScript($session{config}{extrasURL}.'/calendar/calendar-setup.js',{ type=>'text/javascript' });
WebGUI::Style::setLink($session{config}{extrasURL}.'/calendar/calendar-win2k-1.css', { rel=>"stylesheet", type=>"text/css", media=>"all" });
return text({
name=>$params->{name},

27
lib/WebGUI/HTMLForm.pm
View file

@ -405,6 +405,33 @@ sub checkList {
$self->{_data} .= $output;
}
sub codearea {
my ($output);
my ($self, @p) = @_;
my ($name, $label, $value, $subtext, $extras, $wrap, $rows, $columns, $uiLevel, $defaultValue) =
rearrange([qw(name label value subtext extras wrap rows columns uiLevel defaultValue)], @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);
} 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 ] )

2
lib/WebGUI/Operation/Template.pm
View file

@ -124,7 +124,7 @@ sub www_editTemplate {
}
$f->hidden("tid",$session{form}{tid});
$f->text("name",WebGUI::International::get(528),$template{name});
$f->textarea(
$f->codearea(
-name=>"template",
-label=>WebGUI::International::get(504),
-value=>$template{template},