Changeset 2125

Timestamp:

12/30/06 13:41:04

Author:

miyagawa

Message:

allow 3000 JPY to mean --to USD

Files:

• misc/currency (modified) (1 diff)

misc/currency

@@ -31 +31 @@
-$to       = uc($to);
-
+if ($currency eq $to && $currency eq 'JPY') {
+    $to = "USD";
+}
+
-my $how = Finance::Currency::Convert::Yahoo::convert($quant, $currency, $to) or exit;
-print comma($quant), " $currency = ", comma($how), " $to\n";