Bei der Liste der Einkaufsrechnungen den Typ anzeigen: "R" für Einkaufsrechnungen...

[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;
 
-require "$form->{path}/common.pl";
+require "bin/mozilla/common.pl";
 
 # 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 {
-  if ($form->{save_nextsub}) {
-    &{ $form->{save_nextsub} }();
-  } else {
-    die "save_nextsub not defined";
-  }
+  call_sub($form->{save_nextsub});
 }
 
 sub edit {
-  if ($form->{edit_nextsub}) {
-    &{ $form->{edit_nextsub} }();
-  } else {
-    die "edit_nextsub not defined";
-  }
+  call_sub($form->{edit_nextsub});
 }
 
 sub display_template {
@@ -110,7 +98,7 @@ sub display_template_form {
 
   my %options;
 
-  my @hidden = qw(login path password type format);
+  my @hidden = qw(login password type format);
 
   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)) {
-      next unless (!ref($setup) || $setup->{$format});
+      next if ref($setup) && !$setup->{$format};
 
       push(@values,
            { "value"   => $file,