projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
typo
[kivitendo-erp.git]
/
bin
/
mozilla
/
amtemplates.pl
diff --git
a/bin/mozilla/amtemplates.pl
b/bin/mozilla/amtemplates.pl
index
d13046d
..
77f7659
100644
(file)
--- a/
bin/mozilla/amtemplates.pl
+++ b/
bin/mozilla/amtemplates.pl
@@
-38,32
+38,20
@@
use Data::Dumper;
1;
1;
-require "
$form->{path}
/common.pl";
+require "
bin/mozilla
/common.pl";
# end of main
sub display {
# end of main
sub display {
- if ($form->{display_nextsub}) {
- &{ $form->{display_nextsub} }();
- } else {
- die "display_nextsub not defined";
- }
+ call_sub($form->{display_nextsub});
}
sub save {
}
sub save {
- if ($form->{save_nextsub}) {
- &{ $form->{save_nextsub} }();
- } else {
- die "save_nextsub not defined";
- }
+ call_sub($form->{save_nextsub});
}
sub edit {
}
sub edit {
- if ($form->{edit_nextsub}) {
- &{ $form->{edit_nextsub} }();
- } else {
- die "edit_nextsub not defined";
- }
+ call_sub($form->{edit_nextsub});
}
sub display_template {
}
sub display_template {
@@
-110,7
+98,7
@@
sub display_template_form {
my %options;
my %options;
- my @hidden = qw(login pa
th pa
ssword type format);
+ my @hidden = qw(login password type format);
if (($form->{"type"} ne "stylesheet") && !$form->{"edit"}) {
$options{"SHOW_EDIT_OPTIONS"} = 1;
if (($form->{"type"} ne "stylesheet") && !$form->{"edit"}) {
$options{"SHOW_EDIT_OPTIONS"} = 1;
@@
-150,7
+138,7
@@
sub display_template_form {
my (@values, $file, $setup);
while (($file, $setup) = each(%formname_setup)) {
my (@values, $file, $setup);
while (($file, $setup) = each(%formname_setup)) {
- next
unless (!ref($setup) || $setup->{$format})
;
+ next
if ref($setup) && !$setup->{$format}
;
push(@values,
{ "value" => $file,
push(@values,
{ "value" => $file,