Skip to content

I
intranet-forum
Commit a546d074 authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

added some files to forums

parent 5f74fe52
Expand all Hide whitespace changes
Inline Side-by-side
Showing with 1301 additions and 0 deletions
www/assign.tcl 0 → 100755
View file @ a546d074
# /packages/intranet-forum//www/assign.tcl
#
# Copyright (C) 2003-2004 Project/Open
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
ad_page_contract {
Assign the task or incident to a different user.
@author frank.bergmann@project-open.com
} {
{topic_id:integer 0}
return_url
}
# ------------------------------------------------------------------
# Default
# ------------------------------------------------------------------
set user_id [ad_maybe_redirect_for_registration]
set bgcolor(0) " class=roweven"
set bgcolor(1) " class=rowodd"
db_1row get_topic "
select
t.*,
m.read_p,
m.folder_id,
m.receive_updates,
im_category_from_id(t.topic_status_id) as topic_status,
im_category_from_id(t.topic_type_id) as topic_type,
im_name_from_user_id(t.owner_id) as owner_name,
im_name_from_user_id(t.asignee_id) as asignee_name,
acs_object.name(t.object_id) as object_name
from
im_forum_topics t,
(select * from im_forum_topic_user_map where user_id=:user_id) m
where
t.topic_id=:topic_id
and t.topic_id=m.topic_id(+)
"
# expect commands such as: "im_project_permissions" ...
#
if {$object_id != 0} {
# We are adding the topic to a "real" object
set object_type [db_string acs_object_type "select object_type from acs_objects where object_id=:object_id"]
set perm_cmd "${object_type}_permissions \$user_id \$object_id object_view object_read object_write object_admin"
eval $perm_cmd
} else {
# We've been called from /intranet/home without
# an object => Yes, we are allowed to create topics.
set object_view 1
set object_read 1
set object_write 0
set object_admin 0
}
# Permission for forums:
# A user can create messages for basically every object
# he/she can read.
# However, the choice of receipients of the topics depend
# on the relatioinship between the user and the object.
if {!$object_read} {
ad_return_complaint 1 "You have insufficient reights to see this page."
return
}
# Only incidents and tasks have priority, status, asignees and
# due_dates
#
set task_or_incident_p [im_forum_is_task_or_incident $topic_type_id]
if {!$task_or_incident_p} {
ad_return_complaint 1 "This topic is not a task or incident - assignment does't make sense."
return
}
# ------------------------------------------------------------------
# Render Form
# ------------------------------------------------------------------
# Save the old value for asingee_id and status_id to allow
# new-2.tcl to alert owners and asignee about these changes.
set old_asignee_id $asignee_id
# ------------------------------------------------------------------
# Format the page body
# ------------------------------------------------------------------
set ctr 1
set table_body ""
# -------------- Asignee -----------------------------
# For Incidents and Tasks and only.
# calculate the list of potential asignees ( id-name pairs )
# based on user permissions, the project members and the PM.
set asignee_list [im_forum_potential_asignees $user_id $object_id]
# Build a select box to let the user chose
append table_body "
<tr $bgcolor([expr $ctr % 2])>
<td>Assign to:</td>
<td>
[im_select asignee_id $asignee_list $asignee_id]
</td>
</tr>\n"
incr ctr
append table_body "
<tr $bgcolor([expr $ctr % 2])>
<td></td>
<td>
<input type=submit value=\"Assign\">
</td>
</tr>\n"
incr ctr
# -------------- Table and Form Start -----------------------------
set actions "assign"
set page_body "
<form action=new-2 method=POST>
[export_form_vars topic_id old_asignee_id actions return_url]
<table cellspacing=1 border=0 cellpadding=1>
[im_forum_render_tind $topic_id $parent_id $topic_type_id $topic_type $topic_status_id $topic_status $owner_id $asignee_id $owner_name $asignee_name $user_id $object_id $object_name $object_admin $subject $message $posting_date $due_date $priority $scope $return_url]
<tr><td colspan=2>&nbsp;</td></tr>
$table_body
</table>
</form>
"
doc_return 200 text/html [im_return_template]
www/new-2.tcl 0 → 100755
View file @ a546d074
This diff is collapsed.
www/new.tcl 0 → 100755
View file @ a546d074
This diff is collapsed.
www/view.tcl 0 → 100755
View file @ a546d074
# /packages/intranet-forum//www/view.tcl
#
# Copyright (C) 2003-2004 Project/Open
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
ad_page_contract {
View a Task, Incident, News or Discussion (TIND)
@param object_id: Project or Client to refer to
@topic_type: "news", "disussion", "incident" or "task"
@param display_style:
topic = full topic (subject+message), no subtopics
thread = complete tree of subjects
topic_thread = full topic plus subtopics subjects
full = topic+all subtopics
@author fraber@project-open.com
} {
{topic_id:integer 0}
{object_id:integer 0}
{display_style "all"}
{submit ""}
{subject ""}
{message ""}
{topic_type_id 0}
{asignee_id 0}
{return_url ""}
{edit_message_p 0}
}
# ------------------------------------------------------------------
# Defaults
# ------------------------------------------------------------------
set user_id [ad_maybe_redirect_for_registration]
set object_name ""
set todays_date [lindex [split [ns_localsqltimestamp] " "] 0]
set bgcolor(0) " class=roweven"
set bgcolor(1) " class=rowodd"
# Return to this page for edit actions, if not being called
# from another page.
if {"" == $return_url} {
set return_url [im_url_with_query]
}
# ------------------------------------------------------------------
# Get the message details
# ------------------------------------------------------------------
set action_type "edit_message"
set topic_sql "
select
t.*,
m.read_p,
m.folder_id,
m.receive_updates,
im_category_from_id(t.topic_status_id) as topic_status,
im_category_from_id(t.topic_type_id) as topic_type,
im_name_from_user_id(t.owner_id) as owner_name,
im_name_from_user_id(t.asignee_id) as asignee_name,
acs_object.name(t.object_id) as object_name
from
im_forum_topics t,
(select * from im_forum_topic_user_map where user_id=:user_id) m
where
t.topic_id=:topic_id
and t.topic_id=m.topic_id(+)
"
db_1row get_topic $topic_sql
if {$due_date == ""} { set due_date $todays_date }
set old_asignee_id $asignee_id
set page_title "View Topic"
set context_bar [ad_context_bar [list /intranet-forum/ Forum] $page_title]
# ------------------------------------------------------------------
# Permissions
# ------------------------------------------------------------------
# expect commands such as: "im_project_permissions" ...
#
if {$object_id != 0} {
# We are adding the topic to a "real" object
set object_type [db_string acs_object_type "select object_type from acs_objects where object_id=:object_id"]
set perm_cmd "${object_type}_permissions \$user_id \$object_id object_view object_read object_write object_admin"
eval $perm_cmd
} else {
# We've been called from /intranet/home without
# an object => Yes, we are allowed to create topics.
set object_view 1
set object_read 1
set object_write 0
set object_admin 0
}
ns_log Notice "view: object_id=$object_id"
ns_log Notice "view: object_view=$object_view"
ns_log Notice "view: object_read=$object_read"
ns_log Notice "view: object_write=$object_write"
ns_log Notice "view: object_admin=$object_admin"
# Permission for forums:
# A user can create messages for basically every object
# he/she can read.
# However, the choice of receipients of the topics depend
# on the relatioinship between the user and the object.
if {!$object_read} {
ad_return_complaint 1 "You have no rights to add members to this object."
return
}
# Only incidents and tasks have priority, status, asignees and
# due_dates
#
set task_or_incident_p [im_forum_is_task_or_incident $topic_type_id]
set ctr 1
# ------------------------------------------------------------------
# Render the message
# ------------------------------------------------------------------
append table_body [im_forum_render_tind $topic_id $parent_id $topic_type_id $topic_type $topic_status_id $topic_status $owner_id $asignee_id $owner_name $asignee_name $user_id $object_id $object_name $object_admin $subject $message $posting_date $due_date $priority $scope $return_url]
# -------------- Action Area -----------------------------
# Possible editing actions include:(new.tcl)
# - Save Changes
# - Create new topic
# Possible view actions include (view.tcl)
# - Reply
# - Accept or Reject ("pending" task or incident)
# - Close the ticket (the owner and PM of an incident)
set actions ""
if {$task_or_incident_p && $user_id == $asignee_id} {
# Add Accept/Reject for "assigned" tasks
if {$topic_status_id == [im_topic_status_id_assigned]} {
# Asignee has not "accepted" yet
append actions "<option value=accept>Accept $topic_type</option>\n"
append actions "<option value=reject>Reject $topic_type</option>\n"
}
# Allow to mark task as "closed"
if {($object_admin || $user_id == $owner_id) && ![string equal $topic_status_id [im_topic_status_id_closed]]} {
append actions "<option value=close>Close $topic_type</option>\n"
}
# Always allow to ask for clarification from owner
append actions "<option value=clarify>$topic_type needs clarify</option>\n"
}
append actions "<option value=reply selected>Reply to this $topic_type</option>\n"
# Only admins can edit the message
if {$object_admin || $user_id==$owner_id} {
append actions "<option value=edit>Edit $topic_type</option>\n"
}
append table_body "
<tr $bgcolor([expr $ctr % 2])>
<td>Actions</td>
<td>
<select name=actions>
$actions
</select>
<input type=submit value=\"Apply\">
</td>
</tr>\n"
incr ctr
# -------------- Table and Form Start -----------------------------
set thread_html [im_forum_render_thread $topic_id $user_id $object_id $object_name $object_admin $return_url]
set page_body "
<form action=new-2 method=POST>
[export_form_vars action_type owner_id old_asignee_id object_id topic_id parent_id subject message return_url topic_status_id topic_type_id]
<table cellspacing=1 border=0 cellpadding=1>
$table_body
</table>
</form>
$thread_html
"
doc_return 200 text/html [im_return_template]
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment