Index: openacs.org-dev/packages/edit-this-page/edit-this-page.info
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/edit-this-page.info,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/edit-this-page/edit-this-page.info	9 Jul 2002 17:35:08 -0000	1.1
+++ openacs.org-dev/packages/edit-this-page/edit-this-page.info	9 Aug 2002 04:51:25 -0000	1.2
@@ -27,7 +27,7 @@
             <file type="data_model_drop" db_type="oracle" path="sql/oracle/edit-this-page-drop.sql"/>
             <file type="data_model_create" db_type="postgresql" path="sql/postgresql/edit-this-page-create.sql"/>
             <file type="data_model_drop" db_type="postgresql" path="sql/postgresql/edit-this-page-drop.sql"/>
-            <file type="tcl_util" path="tcl/etp-gc.tcl"/>
+            <file type="tcl_procs" path="tcl/etp-gc-procs.tcl"/>
             <file type="tcl_init" path="tcl/etp-init.tcl"/>
             <file type="query_file" db_type="oracle" path="tcl/etp-procs-oracle.xql"/>
             <file type="query_file" db_type="postgresql" path="tcl/etp-procs-postgresql.xql"/>
Index: openacs.org-dev/packages/edit-this-page/tcl/etp-gc-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/tcl/etp-gc-procs.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs.org-dev/packages/edit-this-page/tcl/etp-gc-procs.tcl	9 Aug 2002 04:51:29 -0000	1.1
@@ -0,0 +1,94 @@
+# etp-gc.tcl
+
+ad_library {
+    Demo for using general comments with ETP
+
+    @cvs-id $Id: etp-gc-procs.tcl,v 1.1 2002/08/09 04:51:29 rmello Exp $
+    @author Pat Colgan pat@museatech.net
+    @date 20 June 2001
+}
+
+namespace eval etp {
+
+	ad_proc -public get_gc_link { } {
+		Called from rotisserie questions template to present comment link
+		taking out permission checking for now
+		@author Pat Colgan pat@museatech.net
+		@author Some additions by Neophytos Demetriou
+		@creation-date 4-17-01
+	} {
+
+		# get object_id
+		# check permissions
+		# return link
+
+		# We only show the link here if the_public has 
+		# general_comments_create privilege on the page.  Why the_public
+		# rather than the current user?  Because we don't want admins to
+		# be seeing "Add a comment" links on non-commentable pages.
+		#
+        	upvar pa pa
+	        upvar comments comments
+        	upvar comments_link comments_link
+
+		#set item_id $pa.item_id
+		#set object_name [etp::get_name]
+		set item_id $pa(item_id)
+		set object_name $pa(title) 
+		set comments ""
+		set comments_link ""
+
+		append comments_link "<center>
+		[general_comments_create_link -object_name $object_name $item_id [ad_conn url]]
+		</center>"
+
+		append comments "[general_comments_get_comments -print_content_p 1 $item_id ]"
+		#return $comment_link
+	}
+
+}
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
+
Fisheye: Tag 1.2 refers to a dead (removed) revision in file `openacs.org-dev/packages/edit-this-page/tcl/etp-gc.tcl'.
Fisheye: No comparison available.  Pass `N' to diff?
Index: openacs.org-dev/packages/edit-this-page/tcl/etp-procs.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs.org-dev/packages/edit-this-page/tcl/etp-procs.tcl,v
diff -u -r1.1 -r1.2
--- openacs.org-dev/packages/edit-this-page/tcl/etp-procs.tcl	9 Jul 2002 17:35:08 -0000	1.1
+++ openacs.org-dev/packages/edit-this-page/tcl/etp-procs.tcl	9 Aug 2002 04:51:29 -0000	1.2
@@ -664,3 +664,4 @@
 }
 
 }
+