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

[..hidden..]

Revision: 3347
          http://ledger-smb.svn.sourceforge.net/ledger-smb/?rev=3347&view=rev
Author:   ehuelsmann
Date:     2011-06-26 19:23:44 +0000 (Sun, 26 Jun 2011)

Log Message:
-----------
Fix r3345, passing arguments as an implicit hash instead of an explicit one.

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

Modified: trunk/bin/aa.pl
===================================================================
--- trunk/bin/aa.pl	2011-06-26 17:23:28 UTC (rev 3346)
+++ trunk/bin/aa.pl	2011-06-26 19:23:44 UTC (rev 3347)
@@ -157,9 +157,9 @@
         $form->{vc}   = 'customer';
     }
 
-    $form->create_links( { module => $form->{ARAP},
-			   myconfig => \%myconfig,
-			   vc => $form->{vc} } );
+    $form->create_links( module => $form->{ARAP},
+			 myconfig => \%myconfig,
+			 vc => $form->{vc} );
 
     $duedate     = $form->{duedate};
     $taxincluded = $form->{taxincluded};
@@ -1396,9 +1396,9 @@
 
 sub search {
 
-    $form->create_links( { module => $form->{ARAP},
-			   myconfig => \%myconfig,
-			   vc => $form->{vc} } );
+    $form->create_links( module => $form->{ARAP},
+			 myconfig => \%myconfig,
+			 vc => $form->{vc} );
 
     $form->{"select$form->{ARAP}"} = "<option>\n";
     for ( @{ $form->{"$form->{ARAP}_links"}{ $form->{ARAP} } } ) {

Modified: trunk/bin/ir.pl
===================================================================
--- trunk/bin/ir.pl	2011-06-26 17:23:28 UTC (rev 3346)
+++ trunk/bin/ir.pl	2011-06-26 19:23:44 UTC (rev 3347)
@@ -89,10 +89,10 @@
     $form->{type} = "invoice";
 
     # create links
-    $form->create_links( { module => "AP",
-			   myconfig => \%myconfig,
-			   vc => "vendor",
-			   job => 1 } );
+    $form->create_links( module => "AP",
+			 myconfig => \%myconfig,
+			 vc => "vendor",
+			 job => 1 );
 
     # currencies
     @curr = split /:/, $form->{currencies};

Modified: trunk/bin/is.pl
===================================================================
--- trunk/bin/is.pl	2011-06-26 17:23:28 UTC (rev 3346)
+++ trunk/bin/is.pl	2011-06-26 19:23:44 UTC (rev 3347)
@@ -94,10 +94,10 @@
     $form->{type} = "invoice";
 
     # create links
-    $form->create_links( { module => "AR",
-			   myconfig => \%myconfig,
-			   vc => "customer",
-			   job => 1 } );
+    $form->create_links( module => "AR",
+			 myconfig => \%myconfig,
+			 vc => "customer",
+			 job => 1 );
 
     # currencies
     @curr = split /:/, $form->{currencies};


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