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>";
}
} 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
$myIban = new IBAN($myCountry->IBANExample());
# output example iban properties one by one
print "Example IBAN: " . $myIban->HumanFormat() . "\n";
print " - country " . $myIban->Country() . "\n";
print " - checksum " . $myIban->Checksum() . "\n";
print " - bban " . $myIban->BBAN() . "\n";
print " - bank " . $myIban->Bank() . "\n";
print " - branch " . $myIban->Branch() . "\n";
print " - account " . $myIban->Account() . "\n";