switch to "D" industry code and some test data from lab

[Business-OnlinePayment-VirtualNet.git] / VirtualNet.pm

diff --git a/VirtualNet.pm b/VirtualNet.pm
index 81671c0..3b5d6dd 100644 (file)
--- a/VirtualNet.pm
+++ b/VirtualNet.pm
@@ -28,7 +28,8 @@ $ETB = pack("C", 0x17 );
 #$EOT = pack("C", 0x04 );
 
 ##should be configurable **FIXME**
-my $industry_code = '0';
+#my $industry_code = '0';
+my $industry_code = 'D'; #Direct Marketing
 
 sub set_defaults {
     my $self = shift;