Index: openacs-4/packages/cms/www/master.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/master.tcl,v
diff -u -r1.3 -r1.4
--- openacs-4/packages/cms/www/master.tcl	17 Nov 2004 19:02:45 -0000	1.3
+++ openacs-4/packages/cms/www/master.tcl	16 May 2005 22:59:24 -0000	1.4
@@ -1,27 +1,36 @@
+request create -params {
+  mount_point -datatype text -optional
+}
+
 set url [ad_conn url]
 set package_url [ad_conn package_url]
 
-#default (needed?)
-set section sitemap
-
-if {[string match *sitemap* $url]} {
+if {[template::util::is_nil mount_point]} {
+    
+    #default (needed?)
     set section sitemap
-} elseif {[string match *templates* $url]} {
-    set section templates
-} elseif {[string match *types* $url]} {
-    set section types
-} elseif {[string match *search* $url]} {
-    set section search
-} elseif {[string match *workflow* $url]} {
-    set section workflow
-} elseif {[string match *workspace* $url]} {
-    set section workspace
-} elseif {[string match *clipboard* $url]} {
-    set section clipboard
-} elseif {[string match *categories* $url]} {
-    set section categories
-} elseif {[string match *users* $url]} {
-    set section users
+    
+    if {[string match *sitemap* $url]} {
+	set section sitemap
+    } elseif {[string match *templates* $url]} {
+	set section templates
+    } elseif {[string match *types* $url]} {
+	set section types
+    } elseif {[string match *search* $url]} {
+	set section search
+    } elseif {[string match *workflow* $url]} {
+	set section workflow
+    } elseif {[string match *workspace* $url]} {
+	set section workspace
+    } elseif {[string match *clipboard* $url]} {
+	set section clipboard
+    } elseif {[string match *categories* $url]} {
+	set section categories
+    } elseif {[string match *users* $url]} {
+	set section users
+    }
+} else {
+    set section $mount_point
 }