implementation-procs.tcl

Publicity: Public Only All

implementation-procs.tcl

Implementations of various service contracts.

Location:

packages/workflow/tcl/implementation-procs.tcl
Created:

13 January 2003
Author:

Lars Pind <lars@collaboraid.biz>
CVS Identification:

$Id: implementation-procs.tcl,v 1.5 2007/04/13 20:42:10 daveb Exp $

Procedures in this file

Detailed information

workflow::impl::acs_object (public)

 workflow::impl::acs_object

Returns the static string 'acs_object'. This can be used by implementations that are valid for any object type.

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::notification::get_url (public)

 workflow::impl::notification::get_url object_id

Parameters:
object_id

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::notification::process_reply (public)

 workflow::impl::notification::process_reply reply_id

Parameters:
reply_id

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::role_assignee_pick_list::current_assignees::get_pick_list (public)

 workflow::impl::role_assignee_pick_list::current_assignees::get_pick_list \
    case_id object_id role_id

Return the list of current assignees for this case and role

Parameters:
case_id
object_id
role_id

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::role_assignee_pick_list::current_assignees::pretty_name (public)

 workflow::impl::role_assignee_pick_list::current_assignees::pretty_name

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::role_assignee_subquery::registered_users::get_subquery (public)

 workflow::impl::role_assignee_subquery::registered_users::get_subquery \
    case_id object_id role_id

Return a subquery for all registered users.

Parameters:
case_id
object_id
role_id

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::role_assignee_subquery::registered_users::pretty_name (public)

 workflow::impl::role_assignee_subquery::registered_users::pretty_name

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::role_default_assignees::creation_user::get_assignees (public)

 workflow::impl::role_default_assignees::creation_user::get_assignees \
    case_id object_id role_id

Return the creation_user of the object

Parameters:
case_id
object_id
role_id

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::role_default_assignees::creation_user::pretty_name (public)

 workflow::impl::role_default_assignees::creation_user::pretty_name

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::role_default_assignees::static_assignees::get_assignees (public)

 workflow::impl::role_default_assignees::static_assignees::get_assignees \
    case_id object_id role_id

Return the static assignees for this role

Parameters:
case_id
object_id
role_id

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

workflow::impl::role_default_assignees::static_assignees::pretty_name (public)

 workflow::impl::role_default_assignees::static_assignees::pretty_name

Partial Call Graph (max 5 caller/called nodes):

Testcases:
No testcase defined.

[ hide source ] | [ make this the default ]

Content File Source

ad_library {
    Implementations of various service contracts.
    
    @creation-date 13 January 2003
    @author Lars Pind (lars@collaboraid.biz)
    @cvs-id $Id: implementation-procs.tcl,v 1.5 2007/04/13 20:42:10 daveb Exp $
}

namespace eval workflow::impl {}

namespace eval workflow::impl::role_default_assignees {}
namespace eval workflow::impl::role_default_assignees::creation_user {}
namespace eval workflow::impl::role_default_assignees::static_assignees {}

namespace eval workflow::impl::role_assignee_pick_list {}
namespace eval workflow::impl::role_assignee_pick_list::current_assignees {}

namespace eval workflow::impl::role_assignee_subquery {}
namespace eval workflow::impl::role_assignee_subquery::registered_users {}

namespace eval workflow::impl::notification {}

#####
#
# Generic service contract implementation procs
#
#####

ad_proc -public workflow::impl::acs_object {} { 
    Returns the static string 'acs_object'. This can be used by implementations that are valid for any object type.
} { 
    return "acs_object"
}


#####
#
# Role - Default Assignee - Creation User
#
#####

ad_proc -public workflow::impl::role_default_assignees::creation_user::pretty_name {} {
    return "Assign to the user who created this object"
}

d_proc -public workflow::impl::role_default_assignees::creation_user::get_assignees {
    case_id
    object_id
    role_id
} {
    Return the creation_user of the object
} {
    return [db_string select_creation_user {}]
}



#####
#
# Role - Default Assignee - Static Assignees
#
#####

ad_proc -public workflow::impl::role_default_assignees::static_assignees::pretty_name {} {
    return "Use static assignment"
}

d_proc -public workflow::impl::role_default_assignees::static_assignees::get_assignees {
    case_id
    object_id
    role_id
} {
    Return the static assignees for this role
} {
    return [db_list select_static_assignees {}]
}

#####
#
# Pick list - Default assignees
#
#####

ad_proc -public workflow::impl::role_assignee_pick_list::current_assignees::pretty_name {} {
    return "Current asignees"
}

d_proc -public workflow::impl::role_assignee_pick_list::current_assignees::get_pick_list {
    case_id
    object_id
    role_id
} {
    Return the list of current assignees for this case and role
} {
    set workflow_id [workflow::role::get_workflow_id -role_id $role_id]
    
    return [db_list select_current_assignees {}]
}




#####
#
# Search Subquery - registered users
#
#####

ad_proc -public workflow::impl::role_assignee_subquery::registered_users::pretty_name {} {
    return "All registered users"
}

d_proc -public workflow::impl::role_assignee_subquery::registered_users::get_subquery {
    case_id
    object_id
    role_id
} {
    Return a subquery for all registered users.
} {
    return [db_map cc_users]
}



#####
#
# Notifications
#
#####

d_proc -public workflow::impl::notification::get_url {
    object_id
} {
    # Todo: Implement this proc
}

d_proc -public workflow::impl::notification::process_reply {
    reply_id
} {
    # Todo: Implement this proc
}