Index: openacs-4/packages/acs-templating/tcl/data-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-templating/tcl/data-procs.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-templating/tcl/data-procs.tcl	9 May 2001 05:15:58 -0000	1.2
+++ openacs-4/packages/acs-templating/tcl/data-procs.tcl	19 Jan 2002 03:55:16 -0000	1.3
@@ -89,35 +89,6 @@
   return 1
 }
 
-ad_proc -public template::data::validate::currency { value_ref message_ref } {
-
-    upvar 2 $message_ref message $value_ref value
-
-    ns_log Notice "In template::data::validate::currency"
-
-    # a currency is a 6 element list supporting, for example, the following forms: "$2.03" "Rs 50.42" "12.52L" "Y5,13c"
-    # equivalent of date::unpack
-    set leading_symbol  [lindex 0 $value]
-    set whole_part      [lindex 1 $value]
-    set seperator       [lindex 2 $value]
-    set fractional_part [lindex 3 $value]
-    set trailing_money  [lindex 4 $value]
-    set format          [lindex 5 $value]
-
-    set format_whole_part      [lindex 1 $format]
-    set format_fractional_part [lindx 3 $format]
-
-    set whole_part_valid_p [expr [data::validate integer whole_part message] && { [string length $whole_part] < $format_whole_part } ]
-    set fractional_part_valid_p [expr [data::validate integer fractional_part message] && { [string length $fractional_part] < $format_fractional_part }]
-
-    if { ! $whole_part_valid_p || ! $fractional_part_valid_p } {
-	set message "Invalid currency {[join $value ""]}"
-	return 0
-    } else {
-	return 1
-    }
-}    
-
 ad_proc -public template::data::transform { type value_ref } {
 
   set proc_name [info procs ::template::data::transform::$type]