Skip Menu |

This queue is for tickets about the Business-IBAN CPAN distribution.

Maintainer(s)' notes

Please contact me if you want to take over this module, I don't have time to update it unfortunately.

Report information
The Basics
Id: 49863
Status: new
Priority: 0/
Queue: Business-IBAN

People
Owner: Nobody in particular
Requestors: mg [...] fork.pl
Cc:
AdminCc:

Bug Information
Severity: Important
Broken in: (no value)
Fixed in: (no value)



Checksum calculation drops leading zero, just look at attached example.
Subject: ibantest.pl
use Business::IBAN; my $bban = "105000995383300000000006"; my $iban = Business::IBAN->new(); my $full = $iban->getIBAN({ ISO => "PL", BBAN => $bban, }); print "$full\n"; # simple way: use bignum; my $pl = "2521"; my $s = $bban.$pl."00"; printf "IBAN PL%02d%s\n", 98-($s % 97), $bban;