SF.net SVN: ledger-smb:[4011] branches/1.3/bin/aa.pl

[..hidden..]

Revision: 4011
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=4011&view=rev
Author:   tshvr
Date:     2011-11-17 10:15:25 +0000 (Thu, 17 Nov 2011)
Log Message:
-----------
typo error copy_to_new,comment,no second edit if separate_duties,msgid translation

Modified Paths:
--------------
    branches/1.3/bin/aa.pl

Modified: branches/1.3/bin/aa.pl
===================================================================
--- branches/1.3/bin/aa.pl	2011-11-17 10:12:13 UTC (rev 4010)
+++ branches/1.3/bin/aa.pl	2011-11-17 10:15:25 UTC (rev 4011)
@@ -1015,7 +1015,7 @@
         elsif (!$form->{id}) {
 
             for ( "post_as_new","delete","save_info",
-                  "print", 'copy', 'new_screen') {
+                  "print", 'copy_to_new', 'new_screen') {
                 delete $button{$_};
             }
 
@@ -1210,7 +1210,7 @@
                 }
             }
         }
-    }
+    }#!$display
     @taxaccounts = split / /, $form->{taxaccounts};
 
     for (@taxaccounts) {
@@ -1346,13 +1346,14 @@
 	{
         	$form->{callback}.= qq|&batch_id=$form->{batch_id}|;
 	}
-        edit();
+        if($form->{separate_duties}){edit();}
+        else {$form->redirect( $locale->text('Transaction posted!') );}
     }
     else {
         $form->error( $locale->text('Cannot post transaction!') );
     }
 
-}
+}#post end
 
 # New Function Body starts Here
 
@@ -1623,6 +1624,7 @@
     }
 
     $name = $locale->text('Customer');
+    my $msgid_vc_number="Customer Number";
     $l_name =
 qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $name|;
     $l_till =
@@ -1631,6 +1633,7 @@
 
     if ( $form->{vc} eq 'vendor' ) {
         $name   = $locale->text('Vendor');
+        $msgid_vc_number="Vendor Number";
         $l_till = "";
         $l_name =
 qq|<input name="l_name" class=checkbox type=checkbox value=Y checked> $name|;
@@ -1710,7 +1713,7 @@
 	  <th align=right>$name</th>
 	  <td colspan=3>$selectname</td>
 	</tr>
-	<tr><th align="right">|.$locale->text("[_1] Number", $name).qq|</th>
+	<tr><th align="right">|.$locale->text("$msgid_vc_number").qq|</th>
 	    <td colspan="3"><input name="meta_number" size="36">
         </tr>
 	$employee

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