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 @@ + +@page_title;noquote@ +@context;noquote@ + + \ 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 @@ + + + + + + + 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' + + + + + + select + object_id + from + acs_objects + where + title = '#glossar.from_default_object_id#' + + + + + + select + object_id + from + acs_objects + where + title = '#glossar.to_default_object_id#' + + + +