Index: openacs-4/packages/glossar/www/glossar-edit.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/glossar-edit.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/glossar/www/glossar-edit.tcl	20 Aug 2005 09:37:51 -0000	1.1
+++ openacs-4/packages/glossar/www/glossar-edit.tcl	2 Nov 2005 15:12:40 -0000	1.2
@@ -18,7 +18,7 @@
 }
 
 
-db_1row get_glossar "SELECT title as old_title, comment as old_comment , source_category_id , target_category_id , owner_id FROM gl_glossars WHERE glossar_id = :glossar_id" 
+db_1row get_glossar "SELECT title as old_title, comment as old_comment , source_category_id , target_category_id , etat_id , owner_id FROM gl_glossars WHERE glossar_id = :glossar_id" 
 
 
 
@@ -32,11 +32,12 @@
     
     {source_category_id:text(hidden) {value "$source_category_id"}}
     {target_category_id:text(hidden) {value "$target_category_id"}}
+    {etat_id:number(select),optional {label "[_ glossar.glossar_etat]"} {options [db_list_of_lists get_etats "select name, organization_id from organizations where organization_id in (select case when object_id_one = :owner_id then object_id_two else object_id_one end as organization_id from acs_rels ar, acs_rel_types art where ar.rel_type = art.rel_type and (object_id_one = :owner_id or object_id_two = :owner_id) and ar.rel_type = 'contact_rels_etat'"]}} 
     {owner_id:key}
 
 }  -edit_data {
 
-    gl_glossar::edit -glossar_id $glossar_id -title "$title" -comment "$comment" -source_category_id $source_category_id  -target_category_id $target_category_id -owner_id $owner_id
+    gl_glossar::edit -glossar_id $glossar_id -title "$title" -comment "$comment" -source_category_id $source_category_id  -target_category_id $target_category_id -owner_id $owner_id -etat_id $etat_id
 } -edit_request {}