Index: openacs-4/packages/categories/www/cadmin/tree-unmap.adp
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-unmap.adp,v
diff -u -r1.2 -r1.3
--- openacs-4/packages/categories/www/cadmin/tree-unmap.adp	22 May 2003 14:25:54 -0000	1.2
+++ openacs-4/packages/categories/www/cadmin/tree-unmap.adp	11 Jan 2004 17:33:31 -0000	1.3
@@ -5,16 +5,9 @@
 
 Are you sure you want to unmap the tree "@tree_name@" from "@object_name@"?
 
-<center>
-<form action="tree-unmap-2">
-  @form_vars;noquote@
-  <input type=submit value="Yes">
-</form>  
+<p>
+  <a href="@delete_url@" class="button">Unmap</a>
+  &nbsp;&nbsp;&nbsp;
+  <a href="@cancel_url@" class="button">Cancel, do not unmap</a>
+</p>
 
-
-<form action="one-object">
-  @cancel_form_vars;noquote@
-  <input type=submit value="No">
-</form>  
-
-</center>
Index: openacs-4/packages/categories/www/cadmin/tree-unmap.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/categories/www/cadmin/tree-unmap.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/categories/www/cadmin/tree-unmap.tcl	23 Apr 2003 12:29:27 -0000	1.1
+++ openacs-4/packages/categories/www/cadmin/tree-unmap.tcl	11 Jan 2004 17:33:31 -0000	1.2
@@ -27,9 +27,10 @@
 }
 
 set page_title "Unmap tree"
-set form_vars [export_form_vars tree_id locale object_id]
-set cancel_form_vars [export_form_vars locale object_id]
 
+set delete_url [export_vars -base tree-unmap-2 { tree_id locale object_id }]
+set cancel_url [export_vars -base one-object { locale object_id }]
+
 set object_context [category::get_object_context $object_id]
 set object_name [lindex $object_context 1]
 set tree_name $tree(tree_name)