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

[svn at linuxrulz.org]

Author: nkukard
Date: 2008-08-17 13:14:06 +0000 (Sun, 17 Aug 2008)
New Revision: 235

Modified:
   trunk/wiaflos/client/cmdline/GL.pm
Log:
* Show transaction ID in list of GL account entries instead of entry ID


Modified: trunk/wiaflos/client/cmdline/GL.pm
===================================================================
--- trunk/wiaflos/client/cmdline/GL.pm	2008-08-17 09:50:06 UTC (rev 234)
+++ trunk/wiaflos/client/cmdline/GL.pm	2008-08-17 13:14:06 UTC (rev 235)
@@ -205,7 +205,7 @@
 
 		foreach my $entry (@sorted) {
 			$balance->badd($entry->{'Amount'});
-			print $OUT swrite(<<'END', $entry->{'ID'}, $entry->{'TransactionDate'}, $entry->{'Reference'} ? $entry->{'Reference'} : $entry->{'TransactionReference'}, sprintf('%8.2f',$entry->{'Amount'}),sprintf('%8.2f',$balance));
+			print $OUT swrite(<<'END', $entry->{'TransactionID'}, $entry->{'TransactionDate'}, $entry->{'Reference'} ? $entry->{'Reference'} : $entry->{'TransactionReference'}, sprintf('%8.2f',$entry->{'Amount'}),sprintf('%8.2f',$balance));
 | @<<<<<<<< | @<<<<<<<<< | @<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<<< | @>>>>>>>>>>> | @>>>>>>>>>>>>> |
 END
 		}