Index: openacs-4/packages/glossar/www/glossar-move.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/glossar/www/glossar-move.tcl,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/glossar/www/glossar-move.tcl	4 Jan 2006 08:09:39 -0000	1.2
+++ openacs-4/packages/glossar/www/glossar-move.tcl	24 May 2006 06:12:31 -0000	1.3
@@ -10,17 +10,21 @@
     {return_url "/"}
     {query ""}
     {glossar_id:notnull,multiple}
+    contact_id:notnull
 }
 
-set context "search"
+#move glossar
+set page_title "[_ glossar.glossar_move]"
+set context [list [list "/contacts/$contact_id" [contact::name -party_id $contact_id]] $page_title]
+
 set search_id ""
 set glossar_id [string trim $glossar_id "{}"]
 set customer_group_id [group::get_id -group_name "Customers"]
 
 
-ad_form -name search -export {glossar_id} -form {
+ad_form -name search -export {glossar_id contact_id} -form {
     {query:text(text) {label ""} {html {size 24}}}
-    {Search:text(submit) {value "Search"}}
+    {search:text(submit) {value 1} {label "[_ glossar.search]"}}
 }
 
 template::list::create \
@@ -36,5 +40,5 @@
 	}
     }
 db_multirow -extend {move_url} customers get_customers_from_prefix {} {
-    set move_url [export_vars -base "move-glossar" {{customer_id $organization_id} glossar_id:multiple return_url}]
+    set move_url [export_vars -base "move-glossar" {{customer_id $organization_id} glossar_id:multiple return_url contact_id}]
 }