Index: openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl,v
diff -u -N -r1.17.2.2 -r1.17.2.3
--- openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	16 Sep 2013 10:03:21 -0000	1.17.2.2
+++ openacs-4/packages/acs-tcl/tcl/widgets-procs.tcl	24 Sep 2013 19:39:53 -0000	1.17.2.3
@@ -264,34 +264,6 @@
     }
 }
 
-ad_proc currency_widget {{default ""} {select_name "currency_code"} {size_subtag "size=\"4\""}} "Returns a currency selection box" {
-
-    set widget_value "<select name=\"$select_name\" $size_subtag>\n"
-    if { $default eq "" } {
-        if { [parameter::get -parameter SomeAmericanReadersP] } {
-	    append widget_value "<option value=\"\">Currency</option>
-<option value=\"USD\" selected=\"selected\">United States Dollar</option>\n"
-	} else {
-	    append widget_value "<option value=\"\" selected=\"selected\">Currency</option>\n"
-	}
-    }
-    db_foreach currency_info {
-	select currency_name, iso 
-	from currency_codes 
-	where supported_p='t'
-	order by currency_name 
-    } {
-	if { $default == $iso } {
-	    append widget_value "<option value=\"$iso\" selected=\"selected\">$currency_name</option>\n" 
-        } else {            
-            append widget_value "<option value=\"$iso\">$currency_name</option>\n"
-        }
-    }
-    
-    append widget_value "</select>\n"
-    return $widget_value
-}
-
 ad_proc ad_html_colors {} "Returns an array of HTML colors and names." {
     return {
 	{ Black 0 0 0 }