More alterations made.

[kiriwrite/.git] / cgi-files / Modules / Presentation / HTML4S.pm

diff --git a/cgi-files/Modules/Presentation/HTML4S.pm b/cgi-files/Modules/Presentation/HTML4S.pm
index 74d7004..3e7e92c 100644 (file)
--- 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>";
        }