Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/define.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/define.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/define.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/define.tcl	19 Nov 2001 18:29:28 -0000	1.2
@@ -48,6 +48,7 @@
     place:onerow
     producing_transitions:multirow
     consuming_transitions:multirow
+    modifiable_p
 }
 
 
@@ -59,9 +60,18 @@
 
 set workflow_info [wf_get_workflow_net $workflow_key]
 array set workflow $workflow_info
+db_1row num_cases {
+    select count(*) as num_cases from wf_cases where workflow_key = :workflow_key
+}
 db_release_unused_handles
 
+if { $num_cases > 0 } {
+    set modifiable_p 0
+} else {
+    set modifiable_p 1
+}
 
+
 #####
 #
 # Make sure the selected transtion or place exists