SF.net SVN: ledger-smb:[4803] trunk/bin/aa.pl

[..hidden..]

Revision: 4803
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4803&view=rev
Author:   einhverfr
Date:     2012-05-29 11:49:50 +0000 (Tue, 29 May 2012)
Log Message:
-----------
fixes for unpaid transactions

Modified Paths:
--------------
    trunk/bin/aa.pl

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2012-05-29 11:22:44 UTC (rev 4802)
+++ trunk/bin/aa.pl	2012-05-29 11:49:50 UTC (rev 4803)
@@ -238,15 +238,6 @@
         }
     }
 
-    # projects
-    if ( @{ $form->{all_project} } ) {
-        $form->{selectprojectnumber} = "<option>\n";
-        for ( @{ $form->{all_project} } ) {
-            $form->{selectprojectnumber} .=
-qq|<option value="$_->{projectnumber}--$_->{id}">$_->{projectnumber}\n|;
-        }
-    }
-
     if ( @{ $form->{all_language} } ) {
         $form->{selectlanguage} = "<option>\n";
         for ( @{ $form->{all_language} } ) {
@@ -1224,8 +1215,6 @@
             $newproj =
               &rebuild_vc( $form->{vc}, $form->{ARAP}, $form->{transdate} )
               if !$newname;
-            $form->all_projects( \%myconfig, undef, $form->{transdate} )
-              if !$newproj;
 
             $form->{selectemployee} = "";
             if ( @{ $form->{all_employee} } ) {
@@ -1327,7 +1316,7 @@
       if ( $form->{currency} ne $form->{defaultcurrency} );
 
     for $i ( 1 .. $form->{paidaccounts} ) {
-        if ( $form->{"paid_$i"} ) {
+        if ( $form->{"paid_$i"} and $form->{"paid_$i"} != 0) {
             $datepaid = $form->datetonum( \%myconfig, $form->{"datepaid_$i"} );
 
             $form->isblank( "datepaid_$i",
@@ -1506,27 +1495,7 @@
         $selectname = qq|<input name=$form->{vc} size=35>|;
     }
 
-    # departments
-    if ( @{ $form->{all_department} } ) {
-        $form->{selectdepartment} = "<option>\n";
 
-        for ( @{ $form->{all_department} } ) {
-            $form->{selectdepartment} .=
-qq|<option value="$_->{description}--$_->{id}">$_->{description}\n|;
-        }
-
-        $l_department =
-          qq|<input name="l_department" class=checkbox type=checkbox value=Y> |
-          . $locale->text('Department');
-
-        $department = qq| 
-        <tr> 
-	  <th align=right nowrap>| . $locale->text('Department') . qq|</th>
-	  <td colspan=3><select name=department>$form->{selectdepartment}</select></td>
-	</tr>
-|;
-    }
-
     if ( @{ $form->{all_employee} } ) {
         $form->{selectemployee} = "<option>\n";
         for ( @{ $form->{all_employee} } ) {

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