Changeset 2125

Show
Ignore:
Timestamp:
12/30/06 13:41:04
Author:
miyagawa
Message:

allow 3000 JPY to mean --to USD

Files:

Legend:

Unmodified
Added
Removed
Modified
Copied
Moved
  • misc/currency

    r2065 r2125  
    3131$to       = uc($to); 
    3232 
     33if ($currency eq $to && $currency eq 'JPY') { 
     34    $to = "USD"; 
     35} 
     36 
    3337my $how = Finance::Currency::Convert::Yahoo::convert($quant, $currency, $to) or exit; 
    3438print comma($quant), " $currency = ", comma($how), " $to\n";