Changes made in preperation for Kiriwrite 0.4.0

[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..44801ee 100644 (file)
--- a/cgi-files/Modules/Presentation/HTML4S.pm
+++ b/cgi-files/Modules/Presentation/HTML4S.pm
@@ -21,7 +21,7 @@
 
 # Define the package (perl module) name.
 
-package Kiriwrite::Presentation::HTML4S;
+package Modules::Presentation::HTML4S;
 
 # Enable strict and use warnings.
 
@@ -44,7 +44,7 @@ sub new{
 #                                                                              #
 # Usage:                                                                       #
 #                                                                              #
-# $presmodule = Modules::Output::HTML4S->new();                                        #
+# $presmodule = Kiriwrite::Presentation::HTML4S->new();                                #
 #################################################################################
        
        # Get the perl module name.
@@ -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>";
        }