Index: openacs-4/packages/glossar/www/admin/index.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/admin/index.adp,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/admin/index.adp	17 Oct 2005 16:24:53 -0000	1.1
@@ -0,0 +1,11 @@
+<master>
+<property name="title">@page_title;noquote@</property>
+<property name="context">@context;noquote@</property>
+
+<ul>
+    <li><b>#glossar.map_category_tree#</b></li>
+    <ul>
+    <li><a href="@from_url;noquote@">#glossar.From_language#</a></li>
+    <li><a href="@to_url;noquote@">#glossar.glossar_target_category#</a></li>
+    </ul>
+</ul>
\ No newline at end of file
Index: openacs-4/packages/glossar/www/admin/index.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/admin/index.tcl,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/admin/index.tcl	17 Oct 2005 16:24:53 -0000	1.1
@@ -0,0 +1,23 @@
+# /packages/glossar/www/admin/index.tcl
+
+ad_page_contract {
+    Glossar Administation Index Page
+
+    @author Miguel Marin (miguelmarin@viaro.net)
+    @author Viaro Networks www.viaro.net
+} {
+
+}
+
+set page_title "[_ glossar.Glossar_Administration]"
+set context [list]
+
+set categories_node_id [db_string get_category_node_id {}]
+set categories_url [site_node::get_url -node_id $categories_node_id]
+set from_object_id [db_string get_from_default_object { }]
+set to_object_id [db_string get_to_default_object { }]
+
+set from_url "$categories_url[export_vars -base cadmin/one-object {{object_id $from_object_id}}]"
+set to_url "$categories_url[export_vars -base cadmin/one-object {{object_id $to_object_id}}]"
+
+
Index: openacs-4/packages/glossar/www/admin/index.xql
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/admin/index.xql,v
diff -u
--- /dev/null	1 Jan 1970 00:00:00 -0000
+++ openacs-4/packages/glossar/www/admin/index.xql	17 Oct 2005 16:24:53 -0000	1.1
@@ -0,0 +1,43 @@
+<?xml version="1.0"?>
+
+<queryset>
+
+<fullquery name="get_category_node_id">
+    <querytext>
+	select 
+		n.node_id
+        from 
+		site_nodes n, 
+		site_nodes top, 
+		apm_packages p
+        where 
+		top.parent_id is null
+            	and n.parent_id = top.node_id
+            	and p.package_id = n.object_id
+            	and p.package_key = 'categories'
+      </querytext>
+</fullquery>
+
+<fullquery name="get_from_default_object">
+    <querytext>
+	select
+		object_id
+	from
+		acs_objects
+	where
+		title = '#glossar.from_default_object_id#'
+    </querytext>
+</fullquery>
+
+<fullquery name="get_to_default_object">
+    <querytext>
+	select
+		object_id
+	from
+		acs_objects
+	where
+		title = '#glossar.to_default_object_id#'
+    </querytext>
+</fullquery>
+
+</queryset>