fix payby2bop brokenness

1 files changed, 5 insertions, 5 deletions

diff --git a/FS/FS/payby.pm b/FS/FS/payby.pm
index 98b8301..8f7f1ae 100644
--- a/FS/FS/payby.pm
+++ b/FS/FS/payby.pm
@@ -1,7 +1,7 @@
 package FS::payby;
 
 use strict;
-use vars qw(%hash @EXPORT_OK);
+use vars qw(%hash %payby2bop);
 use Tie::IxHash;
 
 
@@ -107,10 +107,10 @@ sub payby2longname {
   map { $_ => $hash{$_}->{longname} } $self->payby;
 }
 
-sub payby2bop {
-  { 'CARD' => 'CC'.
-    'CHEK' => 'ECHECK',};
-}
+%payby2bop = (
+  'CARD' => 'CC',
+  'CHEK' => 'ECHECK',
+);
 
 sub cust_payby {
   my $self = shift;