SF.net SVN: ledger-smb: [299] trunk/bin/pos.pl

[..hidden..]

Revision: 299
          http://svn.sourceforge.net/ledger-smb/?rev=299&view=rev
Author:   einhverfr
Date:     2006-10-24 21:45:23 -0700 (Tue, 24 Oct 2006)

Log Message:
-----------
Added cc track fields.  Will look into obfuscation later but this meets PCI-DSS by itself

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

Modified: trunk/bin/pos.pl
===================================================================
--- trunk/bin/pos.pl	2006-10-25 04:12:28 UTC (rev 298)
+++ trunk/bin/pos.pl	2006-10-25 04:45:23 UTC (rev 299)
@@ -460,11 +460,15 @@
     $column_data{source} = qq|<td><input name="source_$i" size=10 value="$form->{"source_$i"}"></td>|;
     $column_data{memo} = qq|<td>$memoselect</td>|;
     $column_data{memo} =~ s/MEMONAME/memo_$i/;
-    if ($form->{"memo_$i"}){
-	my $memval = $form->{"memo_$i"};
-	$column_data{memo} =~ s/(option value="$memval")/$1 SELECTED/;
+    if (!$form->{"memo_$i"}){
+	$form->{"memo_$i"} = $pos_source_default;
     }
+    my $memval = $form->{"memo_$i"};
+    $column_data{memo} =~ s/(option value="$memval")/$1 SELECTED/;
 
+    $column_data{cctrack} = qq|<td><input type="text" name="cctrack_$i"
+	value="|.$form->{"cctrack_$i"}.qq|" size="3"></td>|;
+
     if ($pos_config{"coa_prefix"}){
       if (!$form->{"AR_paid_$i"}){
          $form->{"AR_paid_$i"} = 


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