Парсер текущих курсов валют банка Канады

Парсер на PHP текущих курсов валют банка Канады. Забирает и парсит XML-файл с курсами валют устанавливаемыми ежедневно в полдень,видимо, по времени столицы. Форматы отдаваемых данных и дополнительные функции найдете здесь http://shaman.asiadata.ru/script/currency

function currency_bdc_get_rates() {
   $url = 'http://www.bankofcanada.ca/stats/assets/rates_rss/noon/en_all.xml';
   $result = array();
   if (($datafetch = currency_http_request($url)) && ($xml = simplexml_load_string($datafetch->data)) && isset($xml->item)) {
     foreach ($xml->item as $cur) {
       $tmp = $cur->children('cb', true);
       $tmp = $tmp->statistics->exchangeRate;
       if (isset($tmp->value, $tmp->baseCurrency, $tmp->targetCurrency, $tmp->observationPeriod))  {
         $date = trim((string) $tmp->observationPeriod);
         $result[] = curency_prepare_rate(array(
           'country' => 'CA',
           'bank' => 'BDC',
           'fromvalue' => 1,
           'fromcurrency' => (string) $tmp->targetCurrency,
           'tovalue' => (double) 1.0/(double) $tmp->value,
           'tocurrency' => (string) $tmp->baseCurrency,
           'date' => substr($date, 0, 4) . substr($date, 5, 2) . substr($date, 8, 2),
         ));
       }
     }
   }
   return $result;
}

Сайт банка Канады: www.bankofcanada.ca
XML-файл с ежедневными курсами валют: http://www.bankofcanada.ca/stats/assets/rates_rss/noon/en_all.xml
Количество отдаваемых курсов валют:
сентябрь 2011 года – 57
сегодня – http://currency.servisator.ru/ru/rate/Canada