projekt kivitendo

sub post_as_new {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

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

  $form->{postasnew} = 1;

  # saving the history

  if(!exists $form->{addition} && $form->{id} ne "") {

    # does this work? post_as_new for ap doesn't immediately save the

    # invoice, because the invnumber has to be entered by hand.

    # And the value of $form->{postasnew} isn't checked when calling post

    $form->{snumbers}  = qq|invnumber_| . $form->{invnumber};

    $form->{addition}  = "POSTED AS NEW";

    $form->{what_done} = "invoice";

    $form->save_history;

  }

  # /saving the history

  &post;

  $main::lxdebug->leave_sub();

}

sub post_as_new {

  $main::lxdebug->enter_sub();

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

  my $form     = $main::form;

  my %myconfig = %main::myconfig;

  $form->{postasnew} = 1;

  # saving the history

  if(!exists $form->{addition} && $form->{id} ne "") {

    $form->{snumbers}  = qq|invnumber_| . $form->{invnumber};

    $form->{what_done} = "invoice";

    $form->{addition}  = "POSTED AS NEW";

    $form->save_history;

  }

  # /saving the history

  &post;

  $main::lxdebug->leave_sub();

}

sub post_as_new {

  $main::lxdebug->enter_sub();

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

  my $form     = $main::form;

  $form->{id} = 0;

  &add;

  $main::lxdebug->leave_sub();

}

sub post_as_new {

  $main::lxdebug->enter_sub();

  my $form     = $main::form;

  _check_io_auth();

  $form->{postasnew} = 1;

  map { delete $form->{$_} } qw(printed emailed queued);

  &post;

  $main::lxdebug->leave_sub();

}