Testfall Kosmetik (Alignment)

[mfinanz.git] / bin / mozilla / gl.pl

diff --git a/bin/mozilla/gl.pl b/bin/mozilla/gl.pl
index c2a2f02d57d07abc42d5892665d909d73e6c3f22..f62b74b1f2c07ce8f80a14bc4eea42eeeb059fdd 100644 (file)
--- a/bin/mozilla/gl.pl
+++ b/bin/mozilla/gl.pl
@@ -96,6 +96,7 @@ sub load_record_template {
   $template->substitute_variables;
 
   # Clean the current $::form before rebuilding it from the template.
+  my $form_defaults = delete $::form->{form_defaults};
   delete @{ $::form }{ grep { !m{^(?:script|login)$}i } keys %{ $::form } };
 
   my $dummy_form = {};
@@ -138,6 +139,8 @@ sub load_record_template {
     $::form->{"${_}_${row}"}              = $item->$_ for qw(source memo project_id);
   }
 
+  $::form->{$_} = $form_defaults->{$_} for keys %{ $form_defaults // {} };
+
   flash('info', $::locale->text("The record template '#1' has been loaded.", $template->template_name));
 
   update(
@@ -305,10 +308,10 @@ sub edit {
 
   $form->{show_details} = $myconfig{show_form_details} unless defined $form->{show_details};
 
-  if ($form->{reference} && $::instance_conf->get_webdav) {
+  if ($form->{id} && $::instance_conf->get_webdav) {
     my $webdav = SL::Webdav->new(
       type     => 'general_ledger',
-      number   => $form->{reference},
+      number   => $form->{id},
     );
     my $webdav_path = $webdav->webdav_path;
     my @all_objects = $webdav->get_all_objects;
@@ -1263,7 +1266,7 @@ sub post {
   post_transaction();
   if ($::instance_conf->get_webdav) {
     SL::Webdav->new(type     => 'general_ledger',
-                    number   => $form->{reference},
+                    number   => $form->{id},
                    )->webdav_path;
   }