BOP Cardcom, RT13058

diff --git a/Cardcom.pm b/Cardcom.pm
index 2159033..cd8b2a8 100644 (file)
--- a/Cardcom.pm
+++ b/Cardcom.pm
@@ -21,7 +21,6 @@ sub set_defaults {
 }
 
 # XXX?
-# -CVV
 # -Identity number
 # -Configurable currency
 # -Configurable deal code
@@ -33,6 +32,7 @@ sub submit {
         card_number => 'cardnumber',
         amount      => 'Sum',
         login       => 'Username',
+        cvv2        => 'cvv',
     );
 
     die "invalid action" unless 
@@ -96,6 +96,7 @@ sub fields {
           cardvaliditymonth
           Username
           languages
+          cvv
         );
 }
 

diff --git a/Makefile.PL b/Makefile.PL
index 5e9573c..6d53229 100644 (file)
--- a/Makefile.PL
+++ b/Makefile.PL
@@ -5,19 +5,10 @@ WriteMakefile(
     'NAME'         => 'Business::OnlinePayment::Cardcom',
     'VERSION_FROM' => 'Cardcom.pm', # finds $VERSION
     'AUTHOR'       => 'Erik Levinson <levinse@freeside.biz>',
-    #'NORECURS'     => 1, # dont descend into subdirectories
     'PREREQ_PM'    => {
                         'Business::OnlinePayment' => 0,
-
-                        # for HTTPS (maybe it should be a separate dist?)
-                        'URI::Escape' => 0,
                         'Tie::IxHash' => 0,
-                       
-                        # 'Net::SSLeay' => 0,
-                        # or 'Crypt::SSLeay' => 0,
-                        #    'URI
-
+                        'Net::HTTPS::Any' => 0,
                       },
-    #'dist'         => {CI => 'ci -l'},
 );