diff options
Diffstat (limited to 'LedgerSMB/CT.pm')
| -rwxr-xr-x | LedgerSMB/CT.pm | 12 |
1 files changed, 6 insertions, 6 deletions
diff --git a/LedgerSMB/CT.pm b/LedgerSMB/CT.pm index e40b3336..636d645f 100755 --- a/LedgerSMB/CT.pm +++ b/LedgerSMB/CT.pm @@ -208,6 +208,9 @@ sub save_customer { my $sth; my $null; + $form->{customernumber} = + $form->update_defaults( $myconfig, "customernumber", $dbh ) + if !$form->{customernumber}; # remove double spaces $form->{name} =~ s/ / /g; @@ -301,9 +304,6 @@ sub save_customer { my $language_code; ( $null, $language_code ) = split /--/, $form->{language}; - $form->{customernumber} = - $form->update_defaults( $myconfig, "customernumber", $dbh ) - if !$form->{customernumber}; $query = qq| UPDATE customer @@ -388,6 +388,9 @@ sub save_vendor { # connect to database my $dbh = $form->{dbh}; + $form->{vendornumber} = + $form->update_defaults( $myconfig, "vendornumber", $dbh ) + if !$form->{vendornumber}; my $query; my $sth; @@ -476,9 +479,6 @@ sub save_vendor { my $language_code; ( $null, $language_code ) = split /--/, $form->{language}; - $form->{vendornumber} = - $form->update_defaults( $myconfig, "vendornumber", $dbh ) - if !$form->{vendornumber}; $form->{startdate} = undef unless $form->{startdate}; $form->{enddate} = undef unless $form->{enddate}; |