Revision 382e874c
Von Sven Schöling vor mehr als 14 Jahren hinzugefügt
| bin/mozilla/is.pl | ||
|---|---|---|
|
|
||
|
use strict;
|
||
|
|
||
|
my $edit;
|
||
|
my $print_post;
|
||
|
|
||
|
1;
|
||
|
|
||
|
# end of main
|
||
| ... | ... | |
|
|
||
|
if(!exists $form->{addition}) {
|
||
|
$form->{snumbers} = qq|invnumber_| . $form->{invnumber};
|
||
|
$form->{addition} = $print_post ? "PRINTED AND POSTED" :
|
||
|
$form->{storno} ? "STORNO" :
|
||
|
"POSTED";
|
||
|
$form->{addition} = $form->{print_and_post} ? "PRINTED AND POSTED" :
|
||
|
$form->{storno} ? "STORNO" :
|
||
|
"POSTED";
|
||
|
$form->save_history($form->dbconnect(\%myconfig));
|
||
|
}
|
||
|
|
||
|
$form->redirect( $form->{label} . " $form->{invnumber} " . $locale->text('posted!'))
|
||
|
unless $print_post;
|
||
|
# macnetix: after invoice->Post, redirect to edit.
|
||
|
if (!$form->{no_redirect_after_post}) {
|
||
|
$form->{action} = 'edit';
|
||
|
$form->{script} = 'is.pl';
|
||
|
$form->{saved_message} = $form->{label} . " $form->{invnumber} " . $locale->text('posted!');
|
||
|
$form->{callback} = build_std_url(qw(action edit id saved_message));
|
||
|
$form->redirect;
|
||
|
}
|
||
|
|
||
|
$main::lxdebug->leave_sub();
|
||
|
}
|
||
| ... | ... | |
|
|
||
|
$main::auth->assert('invoice_edit');
|
||
|
|
||
|
my $old_form = new Form;
|
||
|
$print_post = 1;
|
||
|
$form->{print_and_post} = 1;
|
||
|
my $old_form = new Form;
|
||
|
$form->{no_redirect_after_post} = 1;
|
||
|
$form->{print_and_post} = 1;
|
||
|
&post();
|
||
|
|
||
|
&edit();
|
||
| ... | ... | |
|
$main::auth->assert('invoice_edit');
|
||
|
|
||
|
if (!$form->{id}) {
|
||
|
$print_post = 1;
|
||
|
$form->{no_redirect_after_post} = 1;
|
||
|
|
||
|
my $saved_form = save_form();
|
||
|
|
||
Auch abrufbar als: Unified diff
Globale Variablen entfernt/umgewandelt.
Conflicts: