Forum OpenACS Q&A: Re: Getting comments on ETP pages -

Posted by Gilbert Price on
Thanks for the quick reply.

Okay, I just did it again, so here is what I've done:

1.  I added etp::get_gc_link to the bottom of edit-this-page/templates/article-content.tcl right below etp::get_page_attributes

2.  I added:

<if @comments_link@ not nil>

to the /edit-this-page/templates/article-content.adp

3.  I modified the /edit-this-page/tcl/etp-gc.tcl by overwriting the current code and replacing with:

ad_proc -public get_gc_link { } { } {
        upvar pa pa
        upvar comments comments
        upvar comments_link comments_link
        set item_id $pa(item_id)
        set object_name $pa(title)
        set comments ""
        set comments_link ""

        append comments_link [general_comments_create_link -link_text "Blah Blah Add a comment" -object_name $object_name $item_id [ad_conn url]]
        append comments [general_comments_get_comments -print_content_p 1 -print_attachments_p 1 $item_id ]

4.  I restarted the server.

I expected to see a "Blah Blah Add a comment" link at the bottom of the article pages.

When calling on of my pages I get this error page:

invalid command name "etp::get_gc_link"
    while executing
    ("uplevel" body line 22)
    invoked from within
"uplevel {
          # /packages/edit-this-page/templates/article-index.tcl

-snipped rest of page-

When I remove the etp::get_gc_link from the article-content.tcl without removing any of the other changes to any of the files, I get my article without the comments link as expected.

Thanks for any help you can provide...