Index: openacs-4/packages/acs-object-management/www/admin/view-delete.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/acs-object-management/www/admin/view-delete.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/packages/acs-object-management/www/admin/view-delete.tcl	13 Aug 2009 00:15:05 -0000	1.1
+++ openacs-4/packages/acs-object-management/www/admin/view-delete.tcl	27 Nov 2009 00:38:50 -0000	1.2
@@ -2,16 +2,14 @@
 
 } {
     object_view:sql_identifier,notnull
-    object_type:sql_identifier,notnull
 }
 
-object_type::view::get \
-    -object_view $object_view \
-    -array view
+object_view::get -object_view $object_view -array view
+set object_type $view(object_type)
 
 ad_form -name delete -export {object_view object_type} -form {
 } -on_submit {
-    object_type::view::delete -object_view $object_view
-    ad_returnredirect ./[export_vars -base dtype {object_type}]
+    object_view::delete -object_view $object_view
+    ad_returnredirect ./[export_vars -base object-type {object_type}]
     ad_script_abort
 }