projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Scriptname steht nicht mehr in $form
[kivitendo-erp.git]
/
SL
/
Form.pm
diff --git
a/SL/Form.pm
b/SL/Form.pm
index
6fa5132
..
b0e25d7
100644
(file)
--- a/
SL/Form.pm
+++ b/
SL/Form.pm
@@
-1259,20
+1259,23
@@
sub parse_template {
$self->{OUT} = ">$self->{tmpfile}";
}
$self->{OUT} = ">$self->{tmpfile}";
}
+ my $result;
+
if ($self->{OUT}) {
if ($self->{OUT}) {
- open(OUT, "$self->{OUT}") or $self->error("$self->{OUT} : $!");
+ open OUT, "$self->{OUT}" or $self->error("$self->{OUT} : $!");
+ $result = $template->parse(*OUT);
+ close OUT;
+
} else {
} else {
- open(OUT, ">-") or $self->error("STDOUT : $!");
$self->header;
$self->header;
+ $result = $template->parse(*STDOUT);
}
}
- if (!$
template->parse(*OUT)
) {
+ if (!$
result
) {
$self->cleanup();
$self->error("$self->{IN} : " . $template->get_error());
}
$self->cleanup();
$self->error("$self->{IN} : " . $template->get_error());
}
- close(OUT);
-
if ($template->uses_temp_file() || $self->{media} eq 'email') {
if ($self->{media} eq 'email') {
if ($template->uses_temp_file() || $self->{media} eq 'email') {
if ($self->{media} eq 'email') {