Index: openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/define-place-info.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/define-place-info.tcl,v
diff -u -r1.1 -r1.2
--- openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/define-place-info.tcl	13 Mar 2001 22:59:27 -0000	1.1
+++ openacs-4/contrib/obsolete-packages/acs-workflow/www/admin/define-place-info.tcl	19 Nov 2001 18:29:28 -0000	1.2
@@ -9,6 +9,7 @@
 #    mode
 #    format
 #    return_url
+#    modifiable_p (optional)
 # Returns:
 #    workflow_key
 #    place:onerow(place_key, place_name, edit_url, delete_url, arc_add_url, arc_delete_url)
@@ -18,14 +19,24 @@
 
 set workflow_key $workflow(workflow_key)
 
+if { ![info exists modifiable_p] } {
+    set modifiable_p 1
+}
+
 # place:onerow(place_key, place_name, edit_url, delete_url)
 
 set place(place_key) $place_key
 set place(place_name) $workflow(place,$place_key,place_name)
 set place(edit_url) "place-edit?[export_url_vars workflow_key place_key return_url]"
-set place(delete_url) "place-delete?[export_url_vars workflow_key place_key return_url]"
-set place(arc_add_url) "define?[export_ns_set_vars {url} {mode}]&mode=arcadd"
-set place(arc_delete_url) "define?[export_ns_set_vars {url} {mode}]&mode=arcdelete"
+if { $modifiable_p } {
+    set place(delete_url) "place-delete?[export_url_vars workflow_key place_key return_url]"
+    set place(arc_add_url) "define?[export_ns_set_vars {url} {mode}]&mode=arcadd"
+    set place(arc_delete_url) "define?[export_ns_set_vars {url} {mode}]&mode=arcdelete"
+} else {
+    set place(delete_url) ""
+    set place(arc_add_url) ""
+    set place(arc_delete_url) ""
+}
 
 # producing_transitions:multirow(transition_key, transition_name, url, arc_delete_url
 #                                guard_pretty, guard_edit_url, guard_delete_url, guard_add_url)
@@ -36,7 +47,11 @@
 set direction "out"
 foreach loop_transition_key $workflow(arcs,place,$place_key,out) {
     set url "define?[export_url_vars workflow_key transition_key=[ns_urlencode $loop_transition_key] format]"
-    set arc_delete_url "arc-delete?[export_url_vars workflow_key transition_key=[ns_urlencode $loop_transition_key] place_key direction return_url]"
+    if { $modifiable_p } {
+	set arc_delete_url "arc-delete?[export_url_vars workflow_key transition_key=[ns_urlencode $loop_transition_key] place_key direction return_url]"
+    } else {
+	set arc_delete_url ""
+    }
     set guard_pretty [ad_decode $workflow(arc,$loop_transition_key,$place_key,out,guard_description) \
 	    "" $workflow(arc,$loop_transition_key,$place_key,out,guard_callback) \
 	    $workflow(arc,$loop_transition_key,$place_key,out,guard_description)]
@@ -56,8 +71,11 @@
 set direction "in"
 foreach loop_transition_key $workflow(arcs,place,$place_key,in) {
     set url "define?[export_url_vars workflow_key transition_key=[ns_urlencode $loop_transition_key] format]"
-    set arc_delete_url "arc-delete?[export_url_vars workflow_key transition_key=[ns_urlencode $loop_transition_key] place_key direction return_url]"
-
+    if { $modifiable_p } {
+	set arc_delete_url "arc-delete?[export_url_vars workflow_key transition_key=[ns_urlencode $loop_transition_key] place_key direction return_url]"
+    } else {
+	set arc_delete_url ""
+    }
     template::multirow append consuming_transitions $loop_transition_key \
 	    $workflow(transition,$loop_transition_key,transition_name) $url $arc_delete_url
 }