SF.net SVN: ledger-smb:[4418] trunk/bin

[..hidden..]

Revision: 4418
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4418&view=rev
Author:   einhverfr
Date:     2012-03-09 03:24:56 +0000 (Fri, 09 Mar 2012)
Log Message:
-----------
Invoice/Order business reporting unit settings now work over the update routine.  Now to save/retrieve

Modified Paths:
--------------
    trunk/bin/io.pl
    trunk/bin/is.pl

Modified: trunk/bin/io.pl
===================================================================
--- trunk/bin/io.pl	2012-03-08 15:31:48 UTC (rev 4417)
+++ trunk/bin/io.pl	2012-03-09 03:24:56 UTC (rev 4418)
@@ -348,19 +348,20 @@
 		$taxchecked="checked";
 
 	}
-
         for my $cls(@{$form->{bu_class}}){
             if (scalar @{$form->{b_units}->{"$cls->{id}"}}){
                 $column_data{"b_unit_$cls->{id}"} = 
                    qq|<td><select name="b_unit_$cls->{id}_$i">
                            <option></option>|;
-                my $selected = "";
                 for my $bu (@{$form->{b_units}->{"$cls->{id}"}}){
+                   my $selected = "";
                    if ($bu->{id} eq $form->{"b_unit_$cls->{id}_$i"}){
                        $selected = "SELECTED='SELECTED'";
                    }
                    $column_data{"b_unit_$cls->{id}"} .= qq|
-                       <option value="$bu->{id}">$bu->{control_code}</option>|;
+                       <option value="$bu->{id}" $selected >
+                               $bu->{control_code}
+                       </option>|;
                 }
                 $column_data{"b_unit_$cls->{id}"} .= qq|
                      </select></td>|;

Modified: trunk/bin/is.pl
===================================================================
--- trunk/bin/is.pl	2012-03-08 15:31:48 UTC (rev 4417)
+++ trunk/bin/is.pl	2012-03-09 03:24:56 UTC (rev 4418)
@@ -1057,7 +1057,7 @@
 }
 
 sub update {
-    on_update();#TODO meaning ?
+    on_update(); # Used for overrides for POS invoices --CT
     $form->{taxes} = {};
     $form->{exchangerate} =
       $form->parse_amount( \%myconfig, $form->{exchangerate} );

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