# --------\r
# + v0.1 08/26/2004 Business::OnlinePayment implementation\r
# + v0.2 09/13/2004\r
-# + v0.3 unreleased\r
+# + v0.3 03/25/2006\r
#\r
# Copyright (C) 2002 Electric Pulp. <info@electricpulp.com>\r
-# Copyright (C) 2004 Ivan Kohler\r
+# Copyright (C) 2004-2006 Ivan Kohler\r
#\r
# This program is free software; you can redistribute it and/or modify\r
# it under the terms of the GNU General Public License as published by\r
use vars qw($VERSION @ISA $DEBUG);\r
\r
@ISA = qw(Business::OnlinePayment::HTTPS);\r
-$VERSION = '0.03';\r
+$VERSION = '0.04';\r
$DEBUG = 0;\r
\r
sub set_defaults {\r
if ( $self->transaction_type =~ /^D[DVCH]$/ ) { #echeck\r
\r
#check number kludge... "periodic bill payments" don't have check #s!\r
- $self->{_content}{ec_serial_number} = 'RECURRIN'\r
- #$self->{_content}{ec_serial_number} = '00000000'\r
+ #$self->{_content}{ec_serial_number} = 'RECURRIN'\r
+ $self->{_content}{ec_serial_number} = '00000000'\r
if ! length($self->{_content}{ec_serial_number})\r
&& $self->{_content}{ec_payment_type} =~ /^(PPD)?$/i;\r
\r