Changeset 2125
- Timestamp:
- 12/30/06 13:41:04
- Files:
-
- misc/currency (modified) (1 diff)
Legend:
- Unmodified
- Added
- Removed
- Modified
- Copied
- Moved
misc/currency
r2065 r2125 31 31 $to = uc($to); 32 32 33 if ($currency eq $to && $currency eq 'JPY') { 34 $to = "USD"; 35 } 36 33 37 my $how = Finance::Currency::Convert::Yahoo::convert($quant, $currency, $to) or exit; 34 38 print comma($quant), " $currency = ", comma($how), " $to\n";