Index: openacs.org-dev/www/projects/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/projects/Attic/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/www/projects/index.adp	29 Oct 2002 16:46:48 -0000	1.1
@@ -0,0 +1,10 @@
+<master>
+<property name="title">OpenACS Projects</property>
+<property name="context">@context@</property>
+<if @site_nodes:rowcount@ gt 0>
+<ul>
+<multiple name="site_nodes">
+<li><a href="@site_nodes.url@">@site_nodes.name@</a></li>
+</multiple>
+</ul>
+</if>
\ No newline at end of file
Index: openacs.org-dev/www/projects/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/projects/Attic/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/www/projects/index.tcl	29 Oct 2002 16:46:48 -0000	1.1
@@ -0,0 +1,16 @@
+set my_url [ad_conn url]
+set user_id [ad_conn user_id]
+
+db_multirow site_nodes site_nodes {
+    select site_node__url(node_id) as url,
+    acs_object__name(object_id) as name
+    from site_nodes
+    where parent_id = site_node__node_id(:my_url,null)
+    and object_id is not null
+    and acs_permission__permission_p(
+        object_id,
+        coalesce(:user_id, acs__magic_object_id('the_public')),
+        'read') = 't'
+}
+
+set context [list]
\ No newline at end of file
Index: openacs.org-dev/www/projects/dotwrk/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/projects/dotwrk/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/www/projects/dotwrk/index.vuh	29 Oct 2002 16:46:59 -0000	1.1
@@ -0,0 +1,57 @@
+ad_page_contract {
+  packages/editthispage/www/index.vuh
+
+  @author Luke Pond (dlpond@pobox.com)
+  @creation-date 2001-06-01
+
+  Virtual URL Handler to serve files from an
+  instance of the Edit This Page package.
+
+  Helpful .vuh example at 
+  http://www.arsdigita.com/bboard/q-and-a-fetch-msg?msg_id=000JTn
+} {
+	{revision_id ""}
+}
+
+ad_conn -set revision_id $revision_id
+
+# get the portion of the url following the package directory
+set name [ad_conn path_info]
+
+#ns_log Notice "index.vuh: request for $name" 
+
+if { [string index $name end] == "/" } {
+    # it's in a subdirectory, and we know there's no
+    # other package mounted on that subdirectory.
+    ns_returnnotfound
+}
+
+set server_root [file dirname [ns_info pageroot]]
+
+if {[empty_string_p $name] || $name == "index"} {
+    set path "$server_root/[etp::get_application_param index_template]"
+} elseif {[string match "etp*" $name]} {
+    # this trickery is for serving pages from the top level,
+    # where the acs-subsite package is mounted rather than
+    # the editthispage package.  normally the request processor 
+    # finds these before invoking this file.
+    set path "$server_root/packages/edit-this-page/www/$name"
+} else {
+
+    set path "$server_root/[etp::get_application_param content_template]"
+
+    # set up form variables so we can pass the "name" 
+    # variable to the content page. 
+    global _ns_form
+    set _ns_form [ns_set create]
+    ns_set put [ns_getform] "name" $name
+}
+
+ns_log Notice "Edit This Page index.vuh: serving $path"
+
+rp_serve_abstract_file $path
+
+
+
+
+
Index: openacs.org-dev/www/projects/openacs/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/www/projects/openacs/index.vuh,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/www/projects/openacs/index.vuh	29 Oct 2002 16:47:02 -0000	1.1
@@ -0,0 +1,57 @@
+ad_page_contract {
+  packages/editthispage/www/index.vuh
+
+  @author Luke Pond (dlpond@pobox.com)
+  @creation-date 2001-06-01
+
+  Virtual URL Handler to serve files from an
+  instance of the Edit This Page package.
+
+  Helpful .vuh example at 
+  http://www.arsdigita.com/bboard/q-and-a-fetch-msg?msg_id=000JTn
+} {
+	{revision_id ""}
+}
+
+ad_conn -set revision_id $revision_id
+
+# get the portion of the url following the package directory
+set name [ad_conn path_info]
+
+#ns_log Notice "index.vuh: request for $name" 
+
+if { [string index $name end] == "/" } {
+    # it's in a subdirectory, and we know there's no
+    # other package mounted on that subdirectory.
+    ns_returnnotfound
+}
+
+set server_root [file dirname [ns_info pageroot]]
+
+if {[empty_string_p $name] || $name == "index"} {
+    set path "$server_root/[etp::get_application_param index_template]"
+} elseif {[string match "etp*" $name]} {
+    # this trickery is for serving pages from the top level,
+    # where the acs-subsite package is mounted rather than
+    # the editthispage package.  normally the request processor 
+    # finds these before invoking this file.
+    set path "$server_root/packages/edit-this-page/www/$name"
+} else {
+
+    set path "$server_root/[etp::get_application_param content_template]"
+
+    # set up form variables so we can pass the "name" 
+    # variable to the content page. 
+    global _ns_form
+    set _ns_form [ns_set create]
+    ns_set put [ns_getform] "name" $name
+}
+
+ns_log Notice "Edit This Page index.vuh: serving $path"
+
+rp_serve_abstract_file $path
+
+
+
+
+