Index: openacs-4/packages/tasks/www/process-instances.tcl
===================================================================
RCS file: /usr/local/cvsroot/openacs-4/packages/tasks/www/Attic/process-instances.tcl,v
diff -u -N
--- openacs-4/packages/tasks/www/process-instances.tcl 27 Jul 2005 13:45:00 -0000 1.1.1.1
+++ /dev/null 1 Jan 1970 00:00:00 -0000
@@ -1,73 +0,0 @@
-#
-
-ad_page_contract {
-
- Lists all the process instances of a given process_id
-
- @author (ibr@test)
- @creation-date 2004-11-05
- @arch-tag: 57bfd18d-a3e5-4047-8185-06707c42f058
- @cvs-id $Id: process-instances.tcl,v 1.1.1.1 2005/07/27 13:45:00 maltes Exp $
-} {
- process_id:integer,notnull
-} -properties {
-} -validate {
-} -errors {
-}
-
-
-# set up context bar
-set title "Process Instances"
-set context [list [list "Processes" processes] $title]
-set header_stuff ""
-
-# the unique identifier for this package
-set package_id [ad_conn package_id]
-set user_id [ad_maybe_redirect_for_registration]
-
-# permissions
-permission::require_permission -party_id $user_id -object_id $package_id -privilege read
-
-# Processes, using list-builder ---------------------------------
-
-template::list::create \
- -name instances \
- -multirow instances \
- -key instance_id \
- -elements {
- edit {
- display_template {
-
-
-
- }
- }
- instance_id {
- label "ID"
- }
- name {
- label "Name"
- }
- project_item_id {
- label "Project"
- display_template {
- @instances.project_name@
- }
- }
- active_tasks {
- label "Active tasks"
- }
- } \
- -main_class {
- narrow
- } \
- -html {
- width 100%
- }
-
-
-db_multirow -extend { delete_url creation_date } instances instances_query {
-} {
- set delete_url [export_vars -base "process-delete" {process_id}]
-}
-