Index: openacs-4/packages/acs-content-repository/tcl/acs-content-repository-init.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/acs-content-repository-init.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/acs-content-repository/tcl/acs-content-repository-init.tcl	13 May 2001 01:55:59 -0000	1.2
+++ openacs-4/packages/acs-content-repository/tcl/acs-content-repository-init.tcl	26 Sep 2001 12:09:27 -0000	1.3
@@ -12,3 +12,10 @@
 }
 
 ad_schedule_proc [expr 15 * 60] acs_cr_scheduled_release_exec
+
+nsv_set CR_LOCATIONS . ""
+if ![nsv_exists CR_LOCATIONS CR_FILES] {
+
+    nsv_set CR_LOCATIONS CR_FILES "[file dirname [string trimright [ns_info tcllib] "/"]]/content-repository-content-files"
+
+}
Index: openacs-4/packages/acs-content-repository/tcl/content-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-content-repository/tcl/content-procs.tcl,v
diff -u -r1.4 -r1.5
--- openacs-4/packages/acs-content-repository/tcl/content-procs.tcl	6 May 2001 14:30:08 -0000	1.4
+++ openacs-4/packages/acs-content-repository/tcl/content-procs.tcl	26 Sep 2001 12:09:27 -0000	1.5
@@ -9,12 +9,12 @@
 } 
 
 # The location for files
-ad_proc -public cr_fs_path {} {
+ad_proc -public cr_fs_path { { location CR_FILES } } {
 
     Root path of content repository files.
 
 } {
-    return "[file dirname [string trimright [ns_info tcllib] "/"]]/content-repository-content-files"
+    return [nsv_get CR_LOCATIONS $location]
 }
 
 ad_proc -private cr_create_content_file_path {item_id revision_id} {