Index: openacs-4/packages/general-comments/www/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/general-comments/www/index.tcl,v
diff -u -r1.10 -r1.11
--- openacs-4/packages/general-comments/www/index.tcl	7 Aug 2017 23:48:12 -0000	1.10
+++ openacs-4/packages/general-comments/www/index.tcl	13 Jun 2018 13:40:24 -0000	1.11
@@ -52,7 +52,8 @@
     -html {style "margin: 0 auto"} \
     -elements {
 	counter {
-	    label "#general-comments.Num#" 
+	    label "#general-comments.Num#"
+            display_template {@comments.rownum;literal@}
 	}
         comment_id {
 	    label "#general-comments.ID#"
@@ -79,20 +80,18 @@
 	} 
     } -filters {approval {} modified {}} 
 
-set count 0
-db_multirow -extend {user_id return_url counter pretty_date} comments comments_select {} {
-    set counter [incr count]
+set yes [_ acs-kernel.common_Yes]
+set no  [_ acs-kernel.common_No]
+
+db_multirow -extend {user_id return_url pretty_date} comments comments_select {} {
+    set live_version_p [expr {$live_version_p ? $yes : $no}]
+    set approved_p [expr {$approved_p ? $yes : $no}]
     set pretty_date [lc_time_fmt $creation_date "%x %X"]
-    set approved_p [util_PrettyTclBoolean $approved_p]
-    set live_version_p [util_PrettyTclBoolean $live_version_p]
 }
 
-set page_title "[_ general-comments.General_Comments]"
+set page_title [_ general-comments.General_Comments]
 set context {}
 
-ad_return_template
-
-
 # Local variables:
 #    mode: tcl
 #    tcl-indent-level: 4