Index: openacs-4/packages/acs-tcl/tcl/admin-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-tcl/tcl/admin-procs.tcl,v
diff -u -N -r1.12 -r1.13
--- openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	18 Sep 2003 13:44:30 -0000	1.12
+++ openacs-4/packages/acs-tcl/tcl/admin-procs.tcl	3 Oct 2003 09:21:39 -0000	1.13
@@ -8,16 +8,10 @@
 
 }
 
-proc_doc ad_ssl_available_p {} {
+ad_proc -deprecated -warn ad_ssl_available_p {} {
     Returns 1 if this AOLserver has the SSL module installed.
 } {
-    if { [ns_config ns/server/[ns_info server]/modules nsssl] != "" ||
-         [ns_config ns/server/[ns_info server]/modules nsssle] != "" ||
-         [ns_config ns/server/[ns_info server]/modules nsopenssl] != "" } {
-	return 1
-    } else {
-	return 0
-    }
+    return [security::https_available_p]
 }
 
 proc_doc ad_restrict_to_https {conn args why} {