# Copyright (c) 2003 bivio Software, Inc. All Rights Reserved. # # Visit http://www.bivio.biz for more info. # # This library is free software; you can redistribute it and/or modify # it under the terms of the GNU Lesser General Public License as # published by the Free Software Foundation; either version 2.1 of the # License, or (at your option) any later version. # # This library is distributed in the hope that it will be useful, but # WITHOUT ANY WARRANTY; without even the implied warranty of # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU # Lesser General Public License for more details. # # You should have received a copy of the GNU Lesser General Public # License along with this library; If not, you may get a copy from: # http://www.opensource.org/licenses/lgpl-license.html # # $Id: ECSecureSourceProcessor.pm,v 2.3 2010/05/10 15:24:30 moeller Exp $ package Bivio::Biz::Action::ECSecureSourceProcessor; use strict; use Bivio::Base 'Action.ECCreditCardProcessor'; our($VERSION) = sprintf('%d.%02d', q$Revision: 2.3 $ =~ /\d+/g); sub internal_get_additional_form_data { # (self, proto, Model.ECPayment) : string my($proto, $payment) = @_; return $payment->req->with_realm($payment->get('user_id'), sub { my($user) = $payment->new_other('User')->load; my($address) = $payment->new_other('Address')->load; my($phone) = $payment->new_other('Phone')->load; return [ map([$_->[0] => b_use('Bivio::HTML')->escape_uri($_->[1])], [x_First_Name => $user->get('first_name')], [x_Last_Name => $user->get('last_name')], [x_Address => $address->get('street1')], [x_City => $address->get('city')], [x_State => $address->get('state')], [x_Country => $address->get('country')], [x_Phone => $phone->get('phone')], [x_Email => b_use('UI.Text') ->get_value('support_email', $payment->req)], ), ]; }); } 1;