X-Git-Url: http://Server1/repobrowser/?a=blobdiff_plain;ds=inline;f=cgi-files%2FModules%2FPresentation%2FHTML4S.pm;h=3e7e92c4d193ef99e4d7eee3ebc8cc0812701389;hb=e98d8e14ef7407ac692cd7c428aaeb7966c76bc2;hp=74d70041d087176f400e8cea0a2504e46087a9eb;hpb=fae62c16cf66ea474ae619b0abf1b5e4af048978;p=kiriwrite%2F.git
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 . "
";
+ addlinebreak();
}
$tagdata = $tagdata . "\r\n";
@@ -1242,7 +1242,7 @@ sub addtextbox{
}
$tagdata = $tagdata . ">";
- $tagdata = $tagdata . $value;
+ $tagdata = $tagdata . $class->convert($value, "content");
$tagdata = $tagdata . "" . "\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 . "" . $class->convert($text, "content") . "";
+ $tagdata = $tagdata . "" . $class->convert($text, "content") . "";
} else {
$tagdata = $tagdata . "" . $class->convert($text, "content") . "";
}