Bug #24979 for Business-Tax-VAT-Validation: Please support BG and RO

A patch to support these 2 countries is included. Specification for exemption ID's for these 2 nations was found at http://www.mfcr.cz/cps/rde/xchg/SID-53EDF4E6-D30A851D/cds/xsl/4235_7451.html?year=

--- lib/Business/Tax/VAT/Validation.pm Mon Feb 19 01:54:49 2007 +++ lib/Business/Tax/VAT/Validation.pm.new Thu Feb 22 12:13:21 2007 @@ -97,13 +97,14 @@ my $class = shift; my %arg = @_; my $self = { - members => 'AT|BE|CY|CZ|DE|DK|EE|EL|ES|FI|FR|GB|HU|IE|IT|LT|LU|LV|MT|NL|PL|PT|SE|SI|SK', + members => 'AT|BE|BG|CY|CZ|DE|DK|EE|EL|ES|FI|FR|GB|HU|IE|IT|LT|LU|LV|MT|NL|PL|PT|RO|SE|SI|SK', #baseurl => 'http://europa.eu.int/comm/taxation_customs/vies/cgi-bin/viesquer', # Obsolete since v0.06 baseurl => 'http://ec.europa.eu/taxation_customs/vies/cgi-bin/viesquer', error => '', re => { AT => 'U[0-9]{8}', BE => '[01]?[0-9]{9}', + BG => '[0-9]{9,10}', CY => '[0-9]{8}[A-Za-z]', CZ => '[0-9]{8,10}', DE => '[0-9]{9}', @@ -124,6 +125,7 @@ NL => '[0-9]{9}B[0-9]{2}', PL => '[0-9]{10}', PT => '[0-9]{9}', + RO => '[0-9]{1,10}', SE => '[0-9]{10}01', SI => '[0-9]{8}', SK => '[0-9]{10}', @@ -188,9 +190,9 @@ Valid MS values are : - AT, BE, CY, CZ, DE, DK, EE, EL, ES, FI, - FR, GB, HU, IE, IT, LU, LV, MT, NL, PL, - PT, SE, SI, SK + AT, BE, BG, CY, CZ, DE, DK, EE, EL, ES, + FI, FR, GB, HU, IE, IT, LU, LV, MT, NL, + PL, PT, RO, SE, SI, SK =cut