projekt kivitendo

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my $locale   = $main::locale;

  $main::auth->assert('config');

  print qq|

<input name=callback type=hidden value="| . H($form->{callback}) . qq|">

<br>|;

  if ((!$form->{id}) || ($form->{id} && $form->{orphaned}) || (($form->{type} eq "account") && (!$form->{new_chart_valid}))) {

    print qq|

<input type=submit class=submit name=action value="|

    . $locale->text('Save') . qq|">

|;

}

  if ($form->{id} && $form->{orphaned}) {

    print qq|<input type=submit class=submit name=action value="|

      . $locale->text('Delete') . qq|">|;

  }

  if ($form->{id} && $form->{type} eq "account") {

    print qq|

    <input class=submit type=submit name=action value="|

      . $locale->text('Save as new') . qq|">|;

  }

  print qq|

</form>

</body>

</html>

|;

  $main::lxdebug->leave_sub();