Index: openacs-4/packages/glossar/lib/glossar-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/lib/glossar-list.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/glossar/lib/glossar-list.tcl	23 Aug 2005 19:40:47 -0000	1.2
+++ openacs-4/packages/glossar/lib/glossar-list.tcl	13 Oct 2005 18:13:37 -0000	1.3
@@ -35,8 +35,8 @@
 
 set gl_translation_p 0
 
-#if {![exists_and_not_null owner_id]} {
-#    set owner_id 499
+#if {![exists_and_not_null owner_id]} {  
+#    set owner_id 499  
 #}
 
 ns_log notice "OWNER_ID $owner_id"
@@ -138,7 +138,7 @@
 	    display_template "<a href=\"@gl_glossar.edit_url@\">[_ acs-kernel.common_Edit]</a>"
 	}	
 	glossar_files {
-	    display_template "<a href=\"@gl_glossar.files_url@\">[_ glossar.Files]</a>"
+	    display_template "<a href=\"@gl_glossar.files_url@\">[_ glossar.Files]</a> (@gl_glossar.files_count@)"
 	}	
 
     } -actions $actions -sub_class narrow \
@@ -181,12 +181,13 @@
 
 
 
-db_multirow -extend {source_category target_category gl_translation_p glossar_edit glossar_files files_url edit_url title_url} gl_glossar gl_glossar  {} {
+db_multirow -extend {source_category target_category gl_translation_p glossar_edit glossar_files files_url edit_url title_url files_count} gl_glossar gl_glossar  {} {
     if {![empty_string_p $target_category_id]} {
 	set gl_translation_p 1
     } else {
 	set gl_translation_p 0
     }
+    set files_count [db_string get_files_count { } -default 0]
     set glossar_edit "[_ glossar.glossar_Edit]"
     set glossar_files "[_ glossar.files]"
     set source_category "[category::get_name $source_category_id]"