From c61e43ab6bdd595be5b68a36bcc3a1d52b502dde Mon Sep 17 00:00:00 2001 From: einhverfr Date: Tue, 10 Jul 2007 21:54:36 +0000 Subject: Fixing partial commit due to update_defaults in legacy code git-svn-id: https://ledger-smb.svn.sourceforge.net/svnroot/ledger-smb/trunk@1377 4979c152-3d1c-0410-bac9-87ea11338e46 --- LedgerSMB/IC.pm | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) (limited to 'LedgerSMB/IC.pm') diff --git a/LedgerSMB/IC.pm b/LedgerSMB/IC.pm index c34aebbd..d3db12e8 100644 --- a/LedgerSMB/IC.pm +++ b/LedgerSMB/IC.pm @@ -204,6 +204,9 @@ sub get_part { sub save { my ( $self, $myconfig, $form ) = @_; + $form->{partnumber} = + $form->update_defaults( $myconfig, "partnumber", $dbh ) + if !$form->{partnumber}; ( $form->{inventory_accno} ) = split( /--/, $form->{IC_inventory} ); ( $form->{expense_accno} ) = split( /--/, $form->{IC_expense} ); @@ -378,9 +381,6 @@ sub save { ( $null, $partsgroup_id ) = split /--/, $form->{partsgroup}; $partsgroup_id *= 1; - $form->{partnumber} = - $form->update_defaults( $myconfig, "partnumber", $dbh ) - if !$form->{partnumber}; if ( !$form->{priceupdate} ) { $form->{priceupdate} = 'now'; -- cgit v1.2.3