diff options
| -rwxr-xr-x | InternetSecure.pm | 12 |
1 files changed, 12 insertions, 0 deletions
diff --git a/InternetSecure.pm b/InternetSecure.pm index 58a6ce7..b90f187 100755 --- a/InternetSecure.pm +++ b/InternetSecure.pm @@ -43,6 +43,18 @@ sub set_defaults { )); } +# OnlinePayment's get_fields now filters out undefs in 3.x. :( +# +sub get_fields { + my ($self, @fields) = @_; + + my %content = $self->content; + + my %new = map +($_ => $content{$_}), @fields; + + return %new; +} + # OnlinePayment's remap_fields is buggy, so we simply rewrite it # sub remap_fields { |