From: Moritz Bunkus Date: Thu, 13 Sep 2007 15:42:35 +0000 (+0000) Subject: Die Option zum Setzen des Tag-Stils etwas verallgemeinert und dokumentiert. X-Git-Tag: release-2.6.0beta1~495 X-Git-Url: http://wagnertech.de/git?a=commitdiff_plain;h=5ada8632263f93bfaa78d9136cc815fbeee95ead;p=kivitendo-erp.git Die Option zum Setzen des Tag-Stils etwas verallgemeinert und dokumentiert. --- diff --git a/SL/Template.pm b/SL/Template.pm index 3439f52a3..f6afe692a 100644 --- a/SL/Template.pm +++ b/SL/Template.pm @@ -400,6 +400,52 @@ sub parse_first_line { return 1; } +sub _parse_config_option { + my $self = shift; + my $line = shift; + + $line =~ s/^\s*//; + $line =~ s/\s*$//; + + my ($key, $value) = split m/\s*=\s*/, $line, 2; + + if ($key eq 'tag-style') { + $self->set_tag_style(split(m/\s+/, $value, 2)); + } +} + +sub _parse_config_lines { + my $self = shift; + my $lines = shift; + + my ($comment_start, $comment_end) = ("", ""); + + if (ref $self eq 'LaTeXTemplate') { + $comment_start = '\s*%'; + } elsif (ref $self eq 'HTMLTemplate') { + $comment_start = '\s*