Index: openacs-4/packages/cms/www/modules/items/comment-add.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/cms/www/modules/items/comment-add.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/cms/www/modules/items/comment-add.tcl	24 May 2001 01:30:52 -0000	1.2
+++ openacs-4/packages/cms/www/modules/items/comment-add.tcl	16 Aug 2002 03:57:48 -0000	1.3
@@ -4,9 +4,7 @@
   item_id -datatype integer 
 }
 
-template::query get_title item_title onevalue "
-  select content_item.get_title(:item_id) from dual
-"
+set item_title [db_string get_title ""]
 
 form create add_comment -elements "
   journal_id -datatype integer -widget hidden
@@ -18,10 +16,8 @@
 "
 
 if { [form is_request add_comment] } {
-  template::query get_journal_id journal_id onevalue "
-    select acs_object_id_seq.nextval from dual
-  "
-  element set_properties add_comment journal_id -value $journal_id
+    set journal_id [db_string get_journal_id ""]
+    element set_properties add_comment journal_id -value $journal_id
 }
 
 if { [form is_valid add_comment] } {