projects
/
kivitendo-erp.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Umstellung Form::throw_on_error auf Verwendung von Exception::Lite anstelle von Hashrefs
[kivitendo-erp.git]
/
SL
/
OE.pm
diff --git
a/SL/OE.pm
b/SL/OE.pm
index
7f0c8e3
..
28e3975
100644
(file)
--- a/
SL/OE.pm
+++ b/
SL/OE.pm
@@
-559,18
+559,18
@@
sub save {
}
}
}
}
- $self->save_periodic_invoices_config(dbh => $dbh,
- oe_id => $form->{id},
- config_yaml => $form->{periodic_invoices_config})
- if ($form->{type} eq 'sales_order');
-
$form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?
"quonumber" : "ordnumber"};
$form->{saved_xyznumber} = $form->{$form->{type} =~ /_quotation$/ ?
"quonumber" : "ordnumber"};
- Common::webdav_folder($form)
if ($main::webdav)
;
+ Common::webdav_folder($form);
my $rc = $dbh->commit;
my $rc = $dbh->commit;
+ $self->save_periodic_invoices_config(dbh => $dbh,
+ oe_id => $form->{id},
+ config_yaml => $form->{periodic_invoices_config})
+ if ($form->{type} eq 'sales_order');
+
$main::lxdebug->leave_sub();
return $rc;
$main::lxdebug->leave_sub();
return $rc;
@@
-655,7
+655,7
@@
sub _close_quotations_rfqs {
sub delete {
$main::lxdebug->enter_sub();
sub delete {
$main::lxdebug->enter_sub();
- my ($self, $myconfig, $form
, $spool
) = @_;
+ my ($self, $myconfig, $form) = @_;
# connect to database
my $dbh = $form->dbconnect_noauto($myconfig);
# connect to database
my $dbh = $form->dbconnect_noauto($myconfig);
@@
-705,6
+705,7
@@
sub delete {
$dbh->disconnect;
if ($rc) {
$dbh->disconnect;
if ($rc) {
+ my $spool = $::lx_office_conf{paths}->{spool};
foreach $spoolfile (@spoolfiles) {
unlink "$spool/$spoolfile" if $spoolfile;
}
foreach $spoolfile (@spoolfiles) {
unlink "$spool/$spoolfile" if $spoolfile;
}
@@
-992,7
+993,7
@@
sub retrieve {
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
$form->{exchangerate} = $form->get_exchangerate($dbh, $form->{currency}, $form->{transdate}, ($form->{vc} eq 'customer') ? "buy" : "sell");
- Common::webdav_folder($form)
if ($main::webdav)
;
+ Common::webdav_folder($form);
$self->load_periodic_invoice_config($form);
$self->load_periodic_invoice_config($form);