From ab0fa3fef68013cd7514662d767c269ea7a9eef6 Mon Sep 17 00:00:00 2001
From: Graham Knop <graham@plainblack.com>
Date: Mon, 20 Aug 2007 18:55:14 +0000
Subject: [PATCH] fix CS post title form field too large

---
 docs/changelog/7.x.x.txt    | 1 +
 lib/WebGUI/Form/Textarea.pm | 2 +-
 2 files changed, 2 insertions(+), 1 deletion(-)

diff --git a/docs/changelog/7.x.x.txt b/docs/changelog/7.x.x.txt
index 22ddf1119..00c7b8f88 100644
--- a/docs/changelog/7.x.x.txt
+++ b/docs/changelog/7.x.x.txt
@@ -3,6 +3,7 @@
     http://www.webgui.org/bugs/tracker/changing-group-detail-adds-number-to-group-name
  - fix: bug in EMS purge
  - fix: bug in poll where you can't edit it to have less answers
+ - fix: CS post title form field sized too large
 
 7.4.3
  - Data Forms set reply to to the same as the from field
diff --git a/lib/WebGUI/Form/Textarea.pm b/lib/WebGUI/Form/Textarea.pm
index eb3594cc1..e9e4d60eb 100644
--- a/lib/WebGUI/Form/Textarea.pm
+++ b/lib/WebGUI/Form/Textarea.pm
@@ -114,7 +114,7 @@ sub toHtml {
 	my $height = $self->get('height') || 150;
 	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>|);
+    $style->setRawHeadTags(qq|<style type="text/css">\ntextarea#|.$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>';