function popup($ibanField, $bicField) { $F = new HTMLForm("ibanCalc", array("land", "kontonummer", "bankleitzahl", "ibanField", "bicField")); $F->getTable()->setColWidth(1, 120); $I = new IBAN(); $l = array(); foreach ($I->Countries() as $c) { $IC = new IBANCountry($c); if (!$IC->IsSEPA()) { continue; } $l[$c] = ISO3166::getCountryToCode($c) . " ({$c})"; } asort($l); $F->setType("land", "select", "DE", $l); $F->setType("ibanField", "hidden"); $F->setType("bicField", "hidden"); $F->setValue("ibanField", $ibanField); $F->setValue("bicField", $bicField); $F->setSaveRMEPCR("Berechnen", "", "IBANCalc", "-1", "calc", "function(t){ \$j('#ibanCalcResult').html(t.responseText); }"); echo $F . "<div id=\"ibanCalcResult\"></div>"; }
$errors++; } print "Hooray! - Invalid IBAN successfully rejected.\n\n"; # Broken IIBAN $broken_iiban = 'VG96VPVG00000L2345678901'; $myIban = new IBAN($broken_iiban); $suggestions = $myIban->MistranscriptionSuggestions(); if (count($suggestions)) { print "Hooray! Successfully derived '" . implode(',', $suggestions) . "' as likely transcription error source suggestion(s) for the incorrect IBAN {$broken_iiban}.\n"; } else { print "ERROR: Not able to ascertain suggested transcription error source(s) for {$broken_iiban}.\n"; $errors++; } print "\n"; # Get list of countries $countries = $myIban->Countries(); # Loop through the registry's examples, validating foreach ($countries as $countrycode) { # instantiate $myCountry = new IBANCountry($countrycode); # start section print "[{$countrycode}: " . $myCountry->Name() . "]\n"; # output remaining country properties print "Is a SEPA member? "; if ($myCountry->IsSEPA()) { print "Yes"; } else { print "No"; } print ".\n"; # get example iban