Merge branch 'master', remote branch 'origin'

[kivitendo-erp.git] / bin / mozilla / arap.pl
diff --git a/bin/mozilla/arap.pl b/bin/mozilla/arap.pl

index e894f97..fe5fa2d 100644 (file)
--- a/bin/mozilla/arap.pl
+++ b/bin/mozilla/arap.pl
@@ -78,6 +78,7 @@ sub check_name {
  
        $form->{"${name}_id"} = $new_id;
  
+      _reset_salesman_id();
        IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
        IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
  
@@ -119,6 +120,7 @@ sub check_name {
          $form->{$name}        = $form->{name_list}[0]->{name};
          $form->{"old$name"}   = qq|$form->{$name}--$form->{"${name}_id"}|;
  
+        _reset_salesman_id();
          IS->get_customer(\%myconfig, \%$form) if ($name eq 'customer');
          IR->get_vendor(\%myconfig, \%$form) if ($name eq 'vendor');
  
@@ -169,8 +171,6 @@ sub select_name {
    my $title = $locale->text('Select from one of the names below');
  
    print qq|
-<body>
-
  <form method=post action=$form->{script}>
  
  <table width=100%>
@@ -249,8 +249,6 @@ sub select_name {
  <input class=submit type=submit name=action value="|
      . $locale->text('Continue') . qq|">
  </form>
-
-</body>
  |;
  
    $main::lxdebug->leave_sub();
@@ -270,6 +268,8 @@ sub name_selected {
    # index for new item
    my $i = $form->{ndx};
  
+  _reset_salesman_id();
+
    $form->{ $form->{vc} }    = $form->{"new_name_$i"};
    $form->{"$form->{vc}_id"} = $form->{"new_id_$i"};
    $form->{"old$form->{vc}"} =
@@ -290,6 +290,14 @@ sub name_selected {
    $main::lxdebug->leave_sub();
  }
  
+# Reset the $::form field 'salesman_id' to the ID of the currently
+# logged in user. Useful when changing to a customer/vendor that has
+# no salesman listed in their master data.
+sub _reset_salesman_id {
+  my $current_employee   = SL::DB::Manager::Employee->current;
+  $::form->{salesman_id} = $current_employee->id if $current_employee && exists $::form->{salesman_id};
+}
+
  sub check_project {
    $main::lxdebug->enter_sub();