Index: openacs-4/packages/file-storage/tcl/file-storage-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/file-storage/tcl/file-storage-procs.tcl,v
diff -u -r1.42.2.18 -r1.42.2.19
--- openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	8 Oct 2004 22:21:08 -0000	1.42.2.18
+++ openacs-4/packages/file-storage/tcl/file-storage-procs.tcl	25 Oct 2004 16:28:05 -0000	1.42.2.19
@@ -847,7 +847,11 @@
 
 	set webdav_prefix [oacs_dav::uri_prefix]
 
-	return "[ad_url]${webdav_prefix}${package_url}${url_stub}"
+	if { [security::RestrictLoginToSSLP] } {
+	    return "[security::get_secure_location]${webdav_prefix}${package_url}${url_stub}"
+	} else {
+	    return "[ad_url]${webdav_prefix}${package_url}${url_stub}"
+	}
 
     } else {