Index: openacs.org-dev/packages/edit-this-page/www/index.vuh
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/www/index.vuh,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/edit-this-page/www/index.vuh	9 Jul 2002 17:35:08 -0000	1.1
+++ openacs.org-dev/packages/edit-this-page/www/index.vuh	11 Aug 2002 04:04:49 -0000	1.2
@@ -18,7 +18,7 @@
 # get the portion of the url following the package directory
 set name [ad_conn path_info]
 
-ns_log Notice "index.vuh: request for $name" 
+#ns_log Notice "index.vuh: request for $name" 
 
 if { [string index $name end] == "/" } {
     # it's in a subdirectory, and we know there's no
Index: openacs.org-dev/packages/edit-this-page/www/link-submit-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/www/link-submit-postgresql.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/edit-this-page/www/link-submit-postgresql.xql	11 Aug 2002 04:04:49 -0000	1.1
@@ -0,0 +1,11 @@
+<?xml version="1.0"?>
+<queryset>
+   <rdbms><type>postgresql</type><version>7.1</version></rdbms>
+
+<fullquery name="create_extlink">
+<querytext>
+select etp__create_extlink(:item_id, :package_id, :url, :name, :description)
+</querytext>
+</fullquery>
+ 
+</queryset>
\ No newline at end of file
Index: openacs.org-dev/packages/edit-this-page/www/link-submit.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/www/link-submit.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/edit-this-page/www/link-submit.adp	11 Aug 2002 04:04:49 -0000	1.1
@@ -0,0 +1,4 @@
+<master src="../www/etp-master">
+<property name="title">@title@</property>
+<property name="context_bar">@context_bar@</property>
+<formtemplate id="add-item"></formtemplate>
\ No newline at end of file
Index: openacs.org-dev/packages/edit-this-page/www/link-submit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/www/link-submit.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/edit-this-page/www/link-submit.tcl	11 Aug 2002 04:04:49 -0000	1.1
@@ -0,0 +1,35 @@
+ad_page_contract {
+	allows a registered user to add an external link
+	if they have "create" privilege
+        
+} {
+
+	item_id:optional
+        name:optional
+        url:optional
+        description:optional
+} 
+
+set package_id [ad_conn package_id]
+set user_id [ad_conn user_id]
+ad_require_permission $package_id "create"
+
+ad_form -name add-item -form {
+    item_id:key
+    {name:text(text) {label "Site Name"}}
+    {url:text(text) {label "URL"}}
+    {description:text(text) {label "Description"}}
+} -new_data {
+    #insert the item
+    db_exec_plsql create_extlink {}
+    ad_returnredirect "."
+} -edit_data {
+    #edit item, only admins can edit or delete stuff
+}
+set title "Submit Link"
+set context_bar [ad_context_bar "Submit Link"]
+ad_return_template
+
+
+
+