X-Git-Url: http://wagnertech.de/git?a=blobdiff_plain;f=SL%2FForm.pm;h=1c03e107ffa8f629ad223c599510c26e3608dcb1;hb=0f2d4920a798878ab2ff60ba11b190854c23c5fb;hp=8670d604cecc34fbf642755de6aa3c80cbab8032;hpb=72539cb39a3d19f930a8e0e41e46bf41afe9a8f1;p=kivitendo-erp.git
diff --git a/SL/Form.pm b/SL/Form.pm
index 8670d604c..1c03e107f 100644
--- a/SL/Form.pm
+++ b/SL/Form.pm
@@ -37,6 +37,8 @@
package Form;
+use HTML::Template;
+
sub _input_to_hash {
$main::lxdebug->enter_sub();
@@ -140,8 +142,7 @@ sub new {
$self->{action} = lc $self->{action};
$self->{action} =~ s/( |-|,|#)/_/g;
- $self->{version} = "2.2.0";
- $self->{dbversion} = "2.2.0";
+ $self->{version} = "2.3.0";
$main::lxdebug->leave_sub();
@@ -196,7 +197,7 @@ sub quote {
my ($self, $str) = @_;
if ($str && !ref($str)) {
- $str =~ s/"/"/g;
+ $str =~ s/\"/"/g;
}
$str;
@@ -207,7 +208,7 @@ sub unquote {
my ($self, $str) = @_;
if ($str && !ref($str)) {
- $str =~ s/"/"/g;
+ $str =~ s/"/\"/g;
}
$str;
@@ -243,17 +244,7 @@ sub error {
$msg =~ s/\n/
/g;
$self->header;
-
- print qq|
-
$msg - - -