Initial Import

intranet-workflow.info

+<?xml version="1.0"?>
+<!-- Generated by the OpenACS Package Manager -->
+
+<package key="intranet-workflow" url="http://openacs.org/repository/apm/packages/intranet-workflow" type="apm_application">
+    <package-name>]project-open[ Workflow Base</package-name>
+    <pretty-plural>]project-open[ Workflow</pretty-plural>
+    <initial-install-p>f</initial-install-p>
+    <singleton-p>t</singleton-p>
+    <auto-mount>intranet-workflow</auto-mount>
+
+    <version name="3.1.2.0.0" url="http://openacs.org/repository/download/apm/intranet-workflow-3.1.2.apm">
+        <owner url="mailto:frank.bergmann@project-open.com">Frank Bergmann</owner>
+        <summary>]project-open[ frontend to the ACS-Workflow</summary>
+        <vendor url="http://www.project-open.com/">]project-open[</vendor>
+        <description format="text/plain">Provides integration of the Petri-Net ACS-Workflow into ]project-open[. </description>
+
+        <provides url="intranet-workflow" version="4.5"/>
+        <requires url="intranet-core" version="3.1.0.0.0"/>
+        <requires url="acs-workflow" version="4.5"/>
+
+        <callbacks>
+        </callbacks>
+        <parameters>
+        <!-- No version parameters -->
+        </parameters>
+
+    </version>
+</package>

sql/postgresql/intranet-workflow-create.sql

+-- /packages/intranet-workflow/sql/oracle/intranet-workflow-create.sql
+--
+-- Copyright (c) 2003-2004 Project/Open
+--
+-- All rights reserved. Please check
+-- http://www.project-open.com/license/ for details.
+--
+-- @author frank.bergmann@project-open.com
+
+
+-- Show the workflow component in project page
+--
+SELECT im_component_plugin__new (
+        null,                           -- plugin_id
+        'acs_object',                   -- object_type
+        now(),                          -- creation_date
+        null,                           -- creation_user
+        null,                           -- creation_ip
+        null,                           -- context_id
+        'Home Workflow Component',      -- plugin_name
+        'intranet-workflow',            -- package_name
+        'left',                         -- location
+        '/intranet/index',              -- page_url
+        null,                           -- view_name
+        1,                              -- sort_order
+	'im_workflow_home_component'
+);
+
+

tcl/intranet-workflow-procs.tcl

+# /packages/intranet-workflow/tcl/intranet-workflow-procs.tcl
+#
+# Copyright (C) 2003-2004 Project/Open
+#
+# All rights reserved. Please check
+# http://www.project-open.com/license/ for details.
+
+ad_library {
+    @author frank.bergmann@project-open.com
+}
+
+
+# ----------------------------------------------------------------------
+# 
+# ----------------------------------------------------------------------
+
+ad_proc -public im_package_workflow_id {} {
+    Returns the package id of the intranet-workflow module
+} {
+    return [util_memoize "im_package_workflow_id_helper"]
+}
+
+ad_proc -private im_package_workflow_id_helper {} {
+    return [db_string im_package_core_id {
+        select package_id from apm_packages
+        where package_key = 'intranet-workflow'
+    } -default 0]
+}
+
+
+
+# ----------------------------------------------------------------------
+# Workflow Task List Component
+# ---------------------------------------------------------------------
+
+ad_proc -public im_workflow_home_component {
+} {
+    Creates a HTML table showing all currently active tasks
+} {
+    set user_id [ad_get_user_id]
+    set admin_p [ad_permission_p [ad_conn package_id] "admin"]
+
+    set template_file "packages/acs-workflow/www/task-list"
+    set template_path [get_server_root]/$template_file
+    set template_path [ns_normalizepath $template_path]
+
+    set package_url "/workflow/"
+
+    set own_tasks [template::adp_parse $template_path [list package_url $package_url type own]]
+    set all_tasks [template::adp_parse $template_path [list package_url $package_url]]
+
+    if {[string length own_tasks] < 50} { set own_tasks "" }
+    if {[string length unassigned_tasks] < 50} { set unassigned_tasks "" }
+
+    set component_html "
+<table cellspacing=1 cellpadding=0>
+<tr><td>
+$own_tasks
+$all_tasks
+</td></tr>
+</table>
+"
+
+    return $component_html
+}
+

www/index.adp

+<master src="../../intranet-core/www/master">
+<property name="title">Workflow Home</property>
+<property name="main_navbar_label">workflow</property>
+
+@content;noquote@
+

www/index.tcl

+ad_page_contract {
+
+} {
+
+}
+
+
+set content [im_workflow_home_component]
+