projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Rundungsfehler bei periodischen Rechnungen mit Einzelpreisen ...
[kivitendo-erp.git]
/
SL
/
Form.pm
diff --git
a/SL/Form.pm
b/SL/Form.pm
index
ed31ddf
..
9f0cf11
100644
(file)
--- a/
SL/Form.pm
+++ b/
SL/Form.pm
@@
-40,6
+40,7
@@
package Form;
use Carp;
use Data::Dumper;
use Carp;
use Data::Dumper;
+use Carp;
use CGI;
use Cwd;
use Encode;
use CGI;
use Cwd;
use Encode;
@@
-307,8
+308,7
@@
sub error {
$self->show_generic_error($msg);
} else {
$self->show_generic_error($msg);
} else {
- print STDERR "Error: $msg\n";
- ::end_of_request();
+ confess "Error: $msg\n";
}
$main::lxdebug->leave_sub();
}
$main::lxdebug->leave_sub();
@@
-594,8
+594,11
@@
sub _prepare_html_template {
if (-f "templates/webpages/${file}.html") {
$file = "templates/webpages/${file}.html";
if (-f "templates/webpages/${file}.html") {
$file = "templates/webpages/${file}.html";
+ } elsif (ref $file eq 'SCALAR') {
+ # file is a scalarref, use inline mode
} else {
my $info = "Web page template '${file}' not found.\n";
} else {
my $info = "Web page template '${file}' not found.\n";
+ $::form->header;
print qq|<pre>$info</pre>|;
::end_of_request();
}
print qq|<pre>$info</pre>|;
::end_of_request();
}