From eaad439ce941021a92d74ef3a7d73a836acaedfa Mon Sep 17 00:00:00 2001 From: erickson Date: Thu, 10 Mar 2011 21:25:16 +0000 Subject: [PATCH] add patron barcode to CC transaction description for payment record keeping/tracking git-svn-id: svn://svn.open-ils.org/ILS/trunk@19695 dcc99617-32d9-48b4-a31d-7c20da2025e4 --- .../lib/OpenILS/Application/Circ/CreditCard.pm | 5 ++++- 1 files changed, 4 insertions(+), 1 deletions(-) diff --git a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CreditCard.pm b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CreditCard.pm index 647cc26..5704684 100644 --- a/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CreditCard.pm +++ b/Open-ILS/src/perlmods/lib/OpenILS/Application/Circ/CreditCard.pm @@ -155,7 +155,7 @@ sub process_payment { $argshash->{patron_id}, { flesh => 1, - flesh_fields => { au => ["mailing_address"] } + flesh_fields => { au => ["mailing_address", "card"] } } ] ) or return $e->event; @@ -197,6 +197,9 @@ sub prepare_bop_content { $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 -- 1.7.2.5