[freeside-users] Paypal integration bugfix

[Eric]

All,

I had some trouble getting freeside to work with paypal realtime credit 
card processing.

These proved to be the fixes necessary to make it work:
--- cust_main.pm 2005-12-24 19:52:27.000000000 -0500
+++ /usr/lib/perl5/site_perl/5.8.8/FS/cust_main.pm 2006-11-11 
12:18:57.000000000 -0500
@@ -2375,7 +2375,7 @@

    my $transaction = new Business::OnlinePayment( $processor, 
@bop_options );
    $transaction->content(
-    'type'           => $method,
+    'type'           => $cardtype,
      'login'          => $login,
      'password'       => $password,
      'action'         => $action1,
@@ -2402,6 +2402,7 @@
      'referer'        => 'http://cleanwhisker.420.am/',
      'email'          => $email,
      'phone'          => $self->daytime || $self->night,
+    'IPAddress'      => $payip,
      %content, #after
    );
    $transaction->submit();

--- signup.cgi 2005-03-12 09:35:12.000000000 -0500
+++ /srv/www/htdocs/selfservice/signup.cgi 2006-11-11 12:14:24.000000000 
-0500
@@ -130,6 +130,7 @@

      $error = '';

+    $cgi->param('payip' => $cgi->remote_host());
      $cgi->param('agentnum', $agentnum) if $agentnum;
      $cgi->param('reg_code', uc(scalar($cgi->param('reg_code'))) );

@@ -193,7 +194,7 @@
                payby payinfo paycvv paydate payname invoicing_list
                referral_custnum promo_code reg_code
                pkgpart username sec_phrase _password popnum refnum
-              agentnum
+              agentnum payip
              ),
            grep { /^snarf_/ } $cgi->param
        } );

Cheers!

Eric Loos