Index: openacs-4/packages/glossar/lib/glossar-term-list-postgresql.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/lib/glossar-term-list-postgresql.xql,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/glossar/lib/glossar-term-list-postgresql.xql	20 Aug 2005 09:37:50 -0000	1.1
+++ openacs-4/packages/glossar/lib/glossar-term-list-postgresql.xql	13 Oct 2005 20:22:55 -0000	1.2
@@ -37,6 +37,39 @@
     </querytext>
 </fullquery>
 
+<fullquery name="get_glossar_info">
+    <querytext>
+    select 
+           g.object_id, 
+           g.title as glossar_title, 
+           g.description as glossar_comment,
+           g.source_category_id,
+           g.target_category_id
+    from 
+           gl_glossarsx g, 
+           cr_items i
+    where 
+           g.context_id = :glossar_id
+           and i.item_id = g.context_id
+           and i.latest_revision = g.object_id
+    </querytext>
+</fullquery>
+
+<fullquery name="get_files">
+    <querytext>
+	select 
+		ci.item_id,
+   		cr.title,
+    		ci.name
+    	from 
+		cr_items ci, 
+		cr_revisions cr
+    	where 
+		ci.parent_id = :glossar_id
+    		and ci.live_revision = cr.revision_id
+    </querytext>
+</fullquery>
+
 </queryset>
   <rdbms>
     <type>postgresql</type>
Index: openacs-4/packages/glossar/lib/glossar-term-list.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/lib/glossar-term-list.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/glossar/lib/glossar-term-list.adp	23 Aug 2005 19:40:47 -0000	1.2
+++ openacs-4/packages/glossar/lib/glossar-term-list.adp	13 Oct 2005 20:22:55 -0000	1.3
@@ -1,10 +1,41 @@
+<table>
+<tr>
+   <td valign="top">
+	<form method="ge"t name="term-list-search"  action="glossar-term-list">
+	  #glossar.Search#:<br />
+	  <input type="text" name="searchterm" value="@searchterm@" size="12" />
+	 @hidden_vars;noquote@ 
+	 <input type="submit" name="go" value="Go" />
+	</form>
+   </td>
+   <td>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</td>
+   <td>
+	<table>
+	<tr>
+	    <td><b>#glossar.Title#:</b></td>
+	    <td> @glossar_title@</td>
+	</tr>
+	<tr>
+	    <td><b>#glossar.Comment#:</b></td>
+	    <td> @glossar_comment;noquote@ </td>
+	</tr>
+	<tr>
+	    <td><b>#glossar.glossar_single_category#:</b></td>
+	    <td> @glossar_language;noquote@ </td>
+	</tr>
+	<tr>
+	    <td><b>#glossar.glossar_target_category#:</b></td>
+	    <td> @glossar_target_lan;noquote@ </td>
+	</tr>
+	<tr>
+	    <td><b>#glossar.Files#:</b></td>
+	    <td> @files;noquote@ </td>
+	</tr>
+	</table>
+   </td>
+</tr>
+</table>
+<br />
 
-<form method=get name=term-list-search  action=glossar-term-list>
-  #glossar.Search#:<br />
-  <input type=text name=searchterm value="@searchterm@" size="12" />
- @hidden_vars;noquote@ 
- <input type=submit name=go value=Go >
-     
-</form>
 <listtemplate name="gl_term"></listtemplate>
   
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"
 }