require password

2 files changed, 3 insertions, 2 deletions

diff --git a/Changes b/Changes
index ae941b8..510cee5 100644
--- a/Changes
+++ b/Changes
@@ -2,6 +2,7 @@ Revision history for Perl extension Business::OnlinePayment::IPPay.
 
 0.09  unreleased
         - Set UDField3 per IPPay request
+        - Require password
 
 0.08  Fri Dec 14 12:54:14 PST 2012
         - Pass ACH account type
diff --git a/IPPay.pm b/IPPay.pm
index f396076..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.09_01';
+$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();