generate_ps generate_pdf do_print
csv_from_fixed
ocr_image
+ bytes_substr
);
$DEBUG = 0;
@lines;
}
+=item bytes_substr STRING, OFFSET[, LENGTH[, REPLACEMENT] ]
+
+A replacement for "substr" that counts raw bytes rather than logical
+characters. Unlike "bytes::substr", will suppress fragmented UTF-8 characters
+rather than output them. Unlike real "substr", is not an lvalue.
+
+=cut
+
+sub bytes_substr {
+ my ($string, $offset, $length, $repl) = @_;
+ my $bytes = substr(
+ Encode::encode('utf8', $string),
+ $offset,
+ $length,
+ Encode::encode('utf8', $repl)
+ );
+ my $chk = $DEBUG ? Encode::FB_WARN : Encode::FB_QUIET;
+ return Encode::decode('utf8', $bytes, $chk);
+}
+
=back
=head1 BUGS
use Date::Parse 'str2time';
use Tie::IxHash;
use FS::Conf;
+use FS::Misc 'bytes_substr';
my $conf;
my ($bin, $merchantID, $terminalID, $username, $password, $with_recurringInd);
my @cust_pay_batch = @{(shift)};
my $count = 1;
my $output;
- my $xml = new XML::Writer(OUTPUT => \$output, DATA_MODE => 1, DATA_INDENT => 2);
+ my $xml = XML::Writer->new(
+ OUTPUT => \$output,
+ DATA_MODE => 1,
+ DATA_INDENT => 2,
+ ENCODING => 'utf-8'
+ );
+ $xml->xmlDecl(); # it is in the spec
$xml->startTag('transRequest', RequestCount => scalar(@cust_pay_batch) + 1);
$xml->startTag('batchFileID');
$xml->dataElement(userID => $username);
ecpBankAcctType => $paytype{lc($_->cust_main->paytype)},
ecpDelvMethod => 'A',
),
- avsZip => substr($_->zip, 0, 10),
- avsAddress1 => substr($_->address1, 0, 30),
- avsAddress2 => substr($_->address2, 0, 30),
- avsCity => substr($_->city, 0, 20),
- avsState => substr($_->state, 0, 2),
- avsName => substr($_->first. ' '. $_->last, 0, 30),
+ avsZip => bytes_substr($_->zip, 0, 10),
+ avsAddress1 => bytes_substr($_->address1, 0, 30),
+ avsAddress2 => bytes_substr($_->address2, 0, 30),
+ avsCity => bytes_substr($_->city, 0, 20),
+ avsState => bytes_substr($_->state, 0, 2),
+ avsName => bytes_substr($_->first. ' '. $_->last, 0, 30),
( $paymentech_countries{ $_->country }
? ( avsCountryCode => $_->country )
: ()
}
1;
-