X-Git-Url: http://git.freeside.biz/gitweb/?a=blobdiff_plain;f=IPPay.pm;h=3d1582d838b0d690f7c4ab480663d19a43b441f1;hb=327f376d26a38ae2f1a02ca9a53fad43464b087b;hp=496048364f5458e31f53a3faf02f0462e625a6fc;hpb=a5b53c10d1014b408075e2fe1cc31ea4042ecafc;p=Business-OnlinePayment-IPPay.git

diff --git a/IPPay.pm b/IPPay.pm
index 4960483..3d1582d 100644
--- a/IPPay.pm
+++ b/IPPay.pm
@@ -11,7 +11,7 @@ use Business::OnlinePayment::HTTPS;
 use vars qw($VERSION $DEBUG @ISA $me);
 
 @ISA = qw(Business::OnlinePayment::HTTPS);
-$VERSION = '0.08';
+$VERSION = '0.09_02';
 $VERSION = eval $VERSION; # modperlstyle: convert the string into a number
 
 $DEBUG = 0;
@@ -177,7 +177,7 @@ sub submit {
   $self->is_success(0);
   $self->map_fields();
 
-  my @required_fields = qw(action login type);
+  my @required_fields = qw(action login password type);
 
   my $action = lc($self->{_content}->{action});
   my $type = $self->transaction_type();
@@ -366,7 +366,7 @@ sub submit {
                           UserHost            => 'UserHost',
                           UDField1            => 'UDField1',
                           UDField2            => 'UDField2',
-                          UDField3            => 'UDField3',
+                          UDField3            => \"$me $VERSION", #'UDField3',
                           ActionCode          => 'ActionCode',
                           IndustryInfo        => \%industryinfo,
                           ShippingInfo        => \%shippinginfo,
@@ -588,7 +588,6 @@ from content(%content):
       UserHost            => 'UserHost',
       UDField1            => 'UDField1',
       UDField2            => 'UDField2',
-      UDField3            => 'UDField3',
       ActionCode          => 'ActionCode',
       IndustryInfo
         Type                => 'IndustryInfo',