Index: openacs-4/packages/glossar/lib/glossar-term-list.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/lib/glossar-term-list.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/glossar/lib/glossar-term-list.tcl	20 Aug 2005 09:37:51 -0000	1.1
+++ openacs-4/packages/glossar/lib/glossar-term-list.tcl	13 Oct 2005 20:22:55 -0000	1.2
@@ -18,8 +18,32 @@
     }
 }
 
+# Get glossar info
+set glossar_info [db_1row get_glossar_info { }]
 
+set glossar_language [category::get_name $source_category_id]
+set glossar_target_lan [category::get_name $target_category_id]
 
+if {[empty_string_p $glossar_language] } {
+    set glossar_language "<div align=\"center\"> - - - - - - - - -</div>"
+}
+
+if {[empty_string_p $glossar_target_lan] } {
+    set glossar_target_lan "<div align=\"center\"> - - - - - - - - -</div>"
+}
+
+# get all the files
+set files [list]
+db_foreach get_files { } {
+    lappend files "<a href=\"download/?file_id=$item_id\" title=\"$name\">$title</a>"
+}
+
+if {[empty_string_p $files] } {
+    set files "<div align=\"center\"> - - - - - - - - -</div>"
+} else {
+    set files [join $files ",&nbsp;&nbsp;"]
+}
+
 if {![info exists format]} {
     set format "normal"
 }