+ join('', map "<$_>$fields{$_}</$_>", keys %fields );
+
+ if ( $action =~ /^(purchase|preauth|ind_refund)$/ ) {
+ tie my %avs_fields, 'Tie::IxHash', $self->get_fields( $self->avs_fields );
+ $post_data .=
+ '<avs_info>'.
+ join('', map "<$_>$avs_fields{$_}</$_>", keys %avs_fields ).
+ '</avs_info>'
+ if grep $_, values %avs_fields;
+
+ tie my %cvd_fields, 'Tie::IxHash', $self->get_fields( $self->cvd_fields );
+ $post_data .=
+ '<cvd_info>'.
+ join('', map "<$_>$cvd_fields{$_}</$_>", keys %cvd_fields ).
+ '</cvd_info>'
+ if grep $_, values %cvd_fields;
+ }
+
+ $post_data .=