Index: openacs-4/contrib/obsolete-packages/ticket-tracker/www/ticket-view.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker/www/ticket-view.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/obsolete-packages/ticket-tracker/www/ticket-view.tcl 12 Jun 2001 06:25:49 -0000 1.2 +++ openacs-4/contrib/obsolete-packages/ticket-tracker/www/ticket-view.tcl 30 Aug 2001 19:34:39 -0000 1.3 @@ -26,10 +26,9 @@ set package_id [ad_conn package_id] set category_name [ad_parameter CategoryName "ticket-tracker" "Category"] set context_bar [list "Ticket #$ticket_id"] + # get the comments from general comments -#FIXME need general-comments -set option_bar "Need General Comments" -#set option_bar [general_comments_create_link -object_name "Ticket #$ticket_id" \ +set option_bar [general_comments_create_link -object_name "Ticket #$ticket_id" \ "$ticket_id" "[ad_conn package_url]ticket-view?ticket_id=$ticket_id"] # get permission info @@ -100,9 +99,7 @@ } # get the comments from general comments -#FIXME need general-comments -set comments "Need General Comments" -#set comments [general_comments_get_comments "$ticket_id" "[ad_conn package_url]ticket-view?ticket_id=$ticket_id"] +set comments [general_comments_get_comments "$ticket_id" "[ad_conn package_url]ticket-view?ticket_id=$ticket_id"] ad_return_template Index: openacs-4/contrib/obsolete-packages/ticket-tracker/www/tickets.tcl =================================================================== RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/ticket-tracker/www/tickets.tcl,v diff -u -r1.2 -r1.3 --- openacs-4/contrib/obsolete-packages/ticket-tracker/www/tickets.tcl 12 Jun 2001 06:25:49 -0000 1.2 +++ openacs-4/contrib/obsolete-packages/ticket-tracker/www/tickets.tcl 30 Aug 2001 19:34:39 -0000 1.3 @@ -266,10 +266,8 @@ } # full view also shows comments - # FIXME requires general-comments - #template::multirow set tickets $i comments \ - # [general_comments_get_comments -print_content_p 1 $ticket_id ""] - template::multirow set tickets $i comments "FIXME - general-comments" + template::multirow set tickets $i comments \ + [general_comments_get_comments -print_content_p 1 $ticket_id ""] } if { ![empty_string_p $assignee_name] } {