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

fix: XHTML 1.0 strict, FileUploadControl.js, resizable textarea

Browse source
This commit is contained in:
JT Smith 2007-08-14 17:10:19 +00:00
parent 8b8feb6af3
commit 81fd7c6194
5 changed files with 138 additions and 87 deletions
Download patch file Download diff file Expand all files Collapse all files

7
lib/WebGUI/Form/Textarea.pm
View file

@ -112,11 +112,12 @@ sub toHtml {
my $value = $self->fixMacros($self->fixTags($self->fixSpecialCharacters($self->get("value"))));
my $width = $self->get('width') || 400;
my $height = $self->get('height') || 150;
my $style = "width: ".$width."px; height: ".$height."px; ".$self->get("style");
my $out = '<textarea rows="#" cols="#" id="'.$self->get('id').'" name="'.$self->get("name").'" style="'.$style.'" '.$self->get("extras").'>'.$value.'</textarea>';
my ($style, $url) = $self->session->quick(qw(style url));
my $styleAttribute = "width: ".$width."px; height: ".$height."px; ".$self->get("style");
$style->setRawHeadTags(qq|<style type="text/css">\n#|.$self->get('id').qq|{ $styleAttribute }\n</style>|);
my $out = '<textarea id="'.$self->get('id').'" name="'.$self->get("name").'" '.$self->get("extras").' rows="#" cols="#">'.$value.'</textarea>';
if ($self->get("resizable")) {
$out = '<div style="border: 0px; width: '.$width.'px; height: '.$height.'px;" class="yresizable-pinned" id="'.$self->get('id').'_wrapper">'.$out.'</div>';
my ($style, $url) = $self->session->quick(qw(style url));
$style->setScript($url->extras("yui/build/yahoo/yahoo-min.js"), {type=>"text/javascript"});
$style->setScript($url->extras("yui/build/event/event-min.js"), {type=>"text/javascript"});
$style->setScript($url->extras("yui/build/dom/dom-min.js"), {type=>"text/javascript"});