SF.net SVN: ledger-smb:[4730] trunk/LedgerSMB/Scripts/business_unit.pm

[..hidden..]

Revision: 4730
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4730&view=rev
Author:   einhverfr
Date:     2012-05-19 08:30:50 +0000 (Sat, 19 May 2012)
Log Message:
-----------
Business units parent id dropdown now works

Modified Paths:
--------------
    trunk/LedgerSMB/Scripts/business_unit.pm

Modified: trunk/LedgerSMB/Scripts/business_unit.pm
===================================================================
--- trunk/LedgerSMB/Scripts/business_unit.pm	2012-05-19 08:25:40 UTC (rev 4729)
+++ trunk/LedgerSMB/Scripts/business_unit.pm	2012-05-19 08:30:50 UTC (rev 4730)
@@ -70,9 +70,11 @@
 sub edit {
     my ($request) = @_;
     $request->{control_code} = '';
-    $request->{class_id} = 0 unless $request->{class_id} = 0;
+    $request->{class_id} = 0 unless $request->{class_id} != 0;
     my $b_unit = LedgerSMB::DBObject::Business_Unit->new(%$request);
     my $bu = $b_unit->get($request->{id});
+    @{$bu->{parent_options}} = $b_unit->list($bu->{class_id});
+    
     _display($bu);
 }
 

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.