[open-ils-commits] r19695 - trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ (erickson)

[svn at svn.open-ils.org]

Author: erickson
Date: 2011-03-10 16:25:16 -0500 (Thu, 10 Mar 2011)
New Revision: 19695

Modified:
   trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CreditCard.pm
Log:
add patron barcode to CC transaction description for payment record keeping/tracking

Modified: trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CreditCard.pm
===================================================================
--- trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CreditCard.pm	2011-03-10 20:53:08 UTC (rev 19694)
+++ trunk/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CreditCard.pm	2011-03-10 21:25:16 UTC (rev 19695)
@@ -155,7 +155,7 @@
             $argshash->{patron_id},
             {
                 flesh        => 1,
-                flesh_fields => { au => ["mailing_address"] }
+                flesh_fields => { au => ["mailing_address", "card"] }
             }
         ]
     ) or return $e->event;
@@ -197,6 +197,9 @@
     $content{FirstName}    = $content{first_name};   # kludge mcugly for PP
     $content{LastName}     = $content{last_name};
 
+    # makes patron barcode accessible in CC payment records
+    my $bc = ($patron->card) ? $patron->card->barcode : '';
+    $content{description}  = "$bc " . ($content{description} || '');
 
     # Especially for the following fields, do we need to support different
     # mapping of fields for different payment processors, particularly ones