projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Kosmetik
[kivitendo-erp.git]
/
SL
/
Controller
/
Base.pm
diff --git
a/SL/Controller/Base.pm
b/SL/Controller/Base.pm
index
f8eee88
..
6d94347
100644
(file)
--- a/
SL/Controller/Base.pm
+++ b/
SL/Controller/Base.pm
@@
-30,7
+30,7
@@
sub redirect_to {
my $self = shift;
my $url = $self->url_for(@_);
my $self = shift;
my $url = $self->url_for(@_);
- print $::
cgi
->redirect($url);
+ print $::
request->{cgi}
->redirect($url);
}
sub render {
}
sub render {
@@
-45,6
+45,9
@@
sub render {
if ($options->{inline}) {
$source = \$template;
if ($options->{inline}) {
$source = \$template;
+ } elsif($options->{raw}) {
+ $source = $template;
+
} else {
$source = "templates/webpages/${template}." . $options->{type};
croak "Template file ${source} not found" unless -f $source;
} else {
$source = "templates/webpages/${template}." . $options->{type};
croak "Template file ${source} not found" unless -f $source;
@@
-77,8
+80,12
@@
sub render {
);
my $output;
);
my $output;
- my $parser = $self->_template_obj;
- $parser->process($source, \%params, \$output) || croak $parser->error;
+ if (!$options->{raw}) {
+ my $parser = $self->_template_obj;
+ $parser->process($source, \%params, \$output) || croak $parser->error;
+ } else {
+ $output = $$source;
+ }
print $output unless $options->{inline} || $options->{no_output};
print $output unless $options->{inline} || $options->{no_output};
@@
-322,6
+329,10
@@
containing the template code to interprete. Additionally the output
will not be sent to the browser. Instead it is only returned to the
caller.
will not be sent to the browser. Instead it is only returned to the
caller.
+If C<< $options->{raw} >> is trueish, the function will treat the input as
+already parsed, and will not filter the input through Template. Unlike
+C<inline>, the input is taked as a reference.
+
If C<< $options->{inline} >> is falsish then C<$template> is
interpreted as the name of a template file. It is prefixed with
"templates/webpages/" and postfixed with a file extension based on
If C<< $options->{inline} >> is falsish then C<$template> is
interpreted as the name of a template file. It is prefixed with
"templates/webpages/" and postfixed with a file extension based on