Index: openacs-4/packages/authorize-gateway/tcl/authorize-gateway-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/authorize-gateway/tcl/authorize-gateway-procs.tcl,v
diff -u -r1.6 -r1.7
--- openacs-4/packages/authorize-gateway/tcl/authorize-gateway-procs.tcl	4 Sep 2008 12:31:17 -0000	1.6
+++ openacs-4/packages/authorize-gateway/tcl/authorize-gateway-procs.tcl	7 Sep 2008 22:18:36 -0000	1.7
@@ -765,8 +765,10 @@
 
     # The dqd_md5 functions is provided by Rob Mayoff's dqd_utils
     # module for AOLServer. (http://dqd.com/~mayoff/aolserver/)
+    # We are replacing dqd_md5 with tcllib's md5::md5 -hex
 
-    set md5_hash [string tolower [dqd_md5 "[ad_parameter md5_secret -default [ad_parameter -package_id [apm_package_id_from_key authorize-gateway] md5_secret]][ad_parameter authorize_login -default [ad_parameter -package_id [apm_package_id_from_key authorize-gateway] authorize_login]]$response_transaction_id[format "%0.2f" $amount]"]]
+
+    set md5_hash [string tolower [md5::md5 -hex "[ad_parameter md5_secret -default [ad_parameter -package_id [apm_package_id_from_key authorize-gateway] md5_secret]][ad_parameter authorize_login -default [ad_parameter -package_id [apm_package_id_from_key authorize-gateway] authorize_login]]$response_transaction_id[format "%0.2f" $amount]"]]
     if {$md5_hash == [string tolower $response_md5_hash]} {
 
 	# The response is authentic. Now decode the response code