X-Git-Url: http://Server1/repobrowser/?p=kiriwrite%2F.git;a=blobdiff_plain;f=cgi-files%2FModules%2FPresentation%2FHTML4S.pm;h=3e7e92c4d193ef99e4d7eee3ebc8cc0812701389;hp=74d70041d087176f400e8cea0a2504e46087a9eb;hb=1553f195cb1ca50f1409afec52b29002e03b4511;hpb=be683aa626f39218c9ee5e3e0523069a5243dd83

diff --git a/cgi-files/Modules/Presentation/HTML4S.pm b/cgi-files/Modules/Presentation/HTML4S.pm
index 74d7004..3e7e92c 100644
--- a/cgi-files/Modules/Presentation/HTML4S.pm
+++ b/cgi-files/Modules/Presentation/HTML4S.pm
@@ -44,7 +44,7 @@ sub new{
 # 										#
 # Usage:									#
 #										#
-# $presmodule = Modules::Output::HTML4S->new();					#
+# $presmodule = Kiriwrite::Presentation::HTML4S->new();				#
 #################################################################################
 	
 	# Get the perl module name.
@@ -736,7 +736,7 @@ sub addcheckbox{
 	}
 
 	if ($linebreak eq 1){
-		$tagdata = $tagdata . "<br>";
+		addlinebreak();
 	}
 
 	$tagdata = $tagdata . "\r\n";
@@ -1242,7 +1242,7 @@ sub addtextbox{
 	}	
 
 	$tagdata = $tagdata . ">";
-	$tagdata = $tagdata . $value;
+	$tagdata = $tagdata . $class->convert($value, "content");
 	$tagdata = $tagdata . "</textarea>" . "\r\n";
 
 	# Append the tag data to the page data.
@@ -1785,7 +1785,7 @@ sub addboldtext{
 	# Add some bold text.
 
 	if ($style ne ""){
-		$tagdata = $tagdata . "<span class=\"\">" . $class->convert($text, "content") . "</span>";
+		$tagdata = $tagdata . "<span class=\"" . $style . "\">" . $class->convert($text, "content") . "</span>";
 	} else {
 		$tagdata = $tagdata . "<b>" . $class->convert($text, "content") . "</b>";
 	}