[wiaflos-devel] COMMIT - r284 - trunk/wiaflos/client/cmdline

[svn at linuxrulz.org]

Author: nkukard
Date: 2009-05-16 14:27:07 +0000 (Sat, 16 May 2009)
New Revision: 284

Modified:
   trunk/wiaflos/client/cmdline/GL.pm
Log:
* Added start and end date to transaction listing
* Added type option to transaction listing


Modified: trunk/wiaflos/client/cmdline/GL.pm
===================================================================
--- trunk/wiaflos/client/cmdline/GL.pm	2009-05-16 14:24:55 UTC (rev 283)
+++ trunk/wiaflos/client/cmdline/GL.pm	2009-05-16 14:27:07 UTC (rev 284)
@@ -79,7 +79,7 @@
 							MenuItem 	=> "List",
 							Regex		=> "list",
 							Desc		=> "List transactions",
-							Help		=> 'list',
+							Help		=> 'list [start="<start date>"] [end="<end date>"] [type="<type>"]',
 							Function	=> \&listTransactions,
 						},
 						{
@@ -409,26 +409,27 @@
 {
 	my ($OUT, at args) = @_;
 
-	if (@args > 0) {
-		print($OUT "  => ERROR: Too many arguments provided\n");
-		return ERR_C_PARAM;
-	}
+	my $parms = parseArgs(@args);
 
-	my $res = soapCall($OUT,"GL","getGLTransactions");
+	my $detail;
+	$detail->{'StartDate'} = $parms->{'start'};
+	$detail->{'EndDate'} = $parms->{'end'};
+	$detail->{'Type'} = $parms->{'type'};
+	my $res = soapCall($OUT,"GL","getGLTransactions",$detail);
 
 	if ($res->{'Result'} == RES_OK) {
 		print $OUT swrite(<<'END', "ID", "TransDate", "Ref", "Type", "Posted");
-+===========+============+==============================================================================================+========+========+
-| @|||||||| | @||||||||| | @||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| | @||||| | @||||| |
-+===========+============+==============================================================================================+========+========+
++===========+============+===============================================================================+========+========+
+| @|||||||| | @||||||||| | @|||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||||| | @||||| | @||||| |
++===========+============+===============================================================================+========+========+
 END
 		foreach my $tran (@{$res->{'Data'}}) {
-			print $OUT swrite(<<'END', $tran->{'ID'}, $tran->{'TransactionDate'}, $tran->{'Reference'}, $tran->{'Posted'});
-| @<<<<<<<< | @<<<<<<<<< | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | @||||| | @<<<<< |
+			print $OUT swrite(<<'END', $tran->{'ID'}, $tran->{'TransactionDate'}, $tran->{'Reference'}, $tran->{'Type'}, $tran->{'Posted'});
+| @<<<<<<<< | @<<<<<<<<< | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | @||||| | @<<<<< |
 END
 			}
 			print $OUT swrite(<<'END');
-+===========+============+==============================================================================================+========+========+
++===========+============+===============================================================================+========+========+
 END
 	} else {
 		soapDebug($OUT,$res);