X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=FS%2FFS%2Fpayby.pm;h=2b548107caf49aa8b9061c009c3b16a1948c1ae3;hb=6af1b1bfa25e5ececef5e0dcd38b55917121cee2;hp=4425df0402f728178f8b853819693024215d719a;hpb=87d6769f31ddd6826211db1a9784ca8dc2297391;p=freeside.git

diff --git a/FS/FS/payby.pm b/FS/FS/payby.pm
index 4425df040..2b548107c 100644
--- a/FS/FS/payby.pm
+++ b/FS/FS/payby.pm
@@ -1,9 +1,10 @@
 package FS::payby;
 
 use strict;
-use vars qw(%hash);
+use vars qw(%hash @EXPORT_OK);
 use Tie::IxHash;
 
+
 =head1 NAME
 
 FS::payby - Object methods for payment type records
@@ -90,6 +91,11 @@ tie %hash, 'Tie::IxHash',
     shortname => 'Complimentary',
     longname  => 'Complimentary',
   },
+  'DCLN' => {  # This is only an event.
+    tinyname  => 'declined',
+    shortname => 'Declined payment',
+    longname  => 'Declined payment',
+  },
 ;
 
 sub payby {
@@ -101,6 +107,11 @@ sub payby2longname {
   map { $_ => $hash{$_}->{longname} } $self->payby;
 }
 
+sub payby2bop {
+  { 'CARD' => 'CC'.
+    'CHEK' => 'ECHECK',};
+}
+
 sub cust_payby {
   my $self = shift;
   grep { ! exists $hash{$_}->{cust_main} } $self->payby;
@@ -111,11 +122,33 @@ sub cust_payby2longname {
   map { $_ => $hash{$_}->{longname} } $self->cust_payby;
 }
 
+sub payinfo_check{
+  my($payby, $payinforef) = @_;
+
+  if ($payby eq 'CARD') {
+    $$payinforef =~ s/\D//g;
+    if ($$payinforef){
+      $$payinforef =~ /^(\d{13,16})$/
+        or return "Illegal (mistyped?) credit card number (payinfo)";
+      $$payinforef = $1;
+      validate($$payinforef) or return "Illegal credit card number";
+      return "Unknown card type" if cardype($$payinforef) eq "Unknown";
+    } else {
+      $$payinforef="N/A";
+    }
+  } else {
+    $$payinforef =~ /^([\w \!\@\#\$\%\&\(\)\-\+\;\:\'\"\,\.\?\/\=]*)$/
+    or return "Illegal text (payinfo)";
+    $$payinforef = $1;
+  }
+}
+
 =back
 
 =head1 BUGS
 
-This should eventually be an actual database table.
+This should eventually be an actual database table, and all tables that
+currently have a char payby field should have a foreign key into here instead.
 
 =head1 SEE ALSO