Skip to content

I
intranet-helpdesk
Commit 244cfbee authored by Frank Bergmann's avatar Frank Bergmann
Browse files
Options

- started to implement stakeholder notification

parent 92422774
Hide whitespace changes
Inline Side-by-side
Showing with 141 additions and 36 deletions
www/notify-stakeholders.adp 0 → 100644
View file @ 244cfbee
<master>
<property name="title">@page_title@</property>
<property name="context">#intranet-core.context#</property>
<property name="main_navbar_label">helpdesk</property>
<h1>@page_title@</h1>
<form action=notify-stakeholders-2 method=GET>
<%= [export_form_vars tid return_url] %>
<table>
<tr>
<td>
<%= [lang::message::lookup "" intranet-helpdesk.To To] %>
</td>
<td>
<table>
<tr class=rowtitle>
<th align=center>
<input type="checkbox" name="_dummy" onclick="acs_ListCheckAll('alerts', this.checked)" title="<%= [lang::message::lookup "" intranet-helpdesk.Check_Uncheck_all_rows "Check/Uncheck all rows"] %>" checked>
</th>
<th><%= [lang::message::lookup "" intranet-helpdesk.Name Name] %></th>
<th><%= [lang::message::lookup "" intranet-helpdesk.Email Email] %></th>
</tr>
<multiple name=stakeholders>
<if @stakeholders.rownum@ odd>
<tr class="list-odd">
</if> <else>
<tr class="list-even">
</else>
<td class="list-narrow">
<input type=checkbox name=notifyee_id value="@stakeholders.user_id@" id="alerts,@user_id@" @stakeholders.checked@>
</td>
<td class="list-narrow">
<a href="@stakeholders.stakeholder_url@">@stakeholders.user_name@</a>
</td>
<td class="list-narrow">
<a href="mailto:@stakeholders.email@">@stakeholders.email@</a>
</td>
</tr>
</multiple>
</table>
</td>
</tr>
<tr>
<td>
<%= [lang::message::lookup "" intranet-helpdesk.Subject Subject] %>
<td>
<input type=text size=80 name=subject value='@subject@'>
</td>
</tr>
<tr>
<td>
<%= [lang::message::lookup "" intranet-helpdesk.Message Message] %>
<td>
<textarea name=message rows=5 cols=50></textarea>
</td>
</tr>
<tr>
<td>&nbsp;</td>
<td>
<input type=submit name=submit value="@send_msg@">
</td>
</tr>
</table>
</form>
www/notify-stakeholders.tcl
View file @ 244cfbee
...@@ -14,7 +14,7 @@ ad_page_contract { ...@@ -14,7 +14,7 @@ ad_page_contract {
@author frank.bergmann@project-open.com @author frank.bergmann@project-open.com
} { } {
{ tid:integer,multiple 0 } { tid 0 }
action_id:integer action_id:integer
return_url return_url
} }
...@@ -25,6 +25,8 @@ ad_page_contract { ...@@ -25,6 +25,8 @@ ad_page_contract {
# -------------------------------------------------------- # --------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration] set current_user_id [ad_maybe_redirect_for_registration]
set page_title [lang::message::lookup "" intranet-helpdesk.Notify_Stakeholders "Notify Stakeholders"]
set context_bar [im_context_bar $page_title]
set action_name [im_category_from_id $action_id] set action_name [im_category_from_id $action_id]
set action_forbidden_msg [lang::message::lookup "" intranet-helpdesk.Action_Forbidden "<b>Unable to execute action</b>:<br>You don't have the permissions to execute the action '%action_name%' on this ticket."] set action_forbidden_msg [lang::message::lookup "" intranet-helpdesk.Action_Forbidden "<b>Unable to execute action</b>:<br>You don't have the permissions to execute the action '%action_name%' on this ticket."]
...@@ -37,18 +39,56 @@ foreach ticket_id $tid { ...@@ -37,18 +39,56 @@ foreach ticket_id $tid {
# Make sure an empty list of tickets won't cause an error further down. # Make sure an empty list of tickets won't cause an error further down.
lappend tid -1 lappend tid -1
set ticket_sql "
select t.*,
p.*
from im_tickets t,
im_projects p
where t.ticket_id = p.project_id and
t.ticket_id in ([join $tid ","])
"
set ticket_nr_list {}
set ticket_count 0
set ticket_name ""
db_foreach tickets $ticket_sql {
lappend ticket_nr_list "#$project_nr"
set ticket_name $project_name
incr ticket_count
}
set subject "undefined"
if {$ticket_count <= 1} {
set subject "Closed ticket: $ticket_name"
} else {
set subject "Closed tickets: [join $ticket_nr_list ", "]"
}
# -------------------------------------------------------- # --------------------------------------------------------
# Determine Stakeholders # Determine Stakeholders
# -------------------------------------------------------- # --------------------------------------------------------
set bulk_action_list {}
# lappend bulk_actions_list "[lang::message::lookup "" intranet-helpdesk.Delete "Delete"]" "associate-delete" "[lang::message::lookup "" intranet-helpdesk.Remove_checked_items "Remove Checked Items"]"
set actions [list]
# set assoc_msg [lang::message::lookup {} intranet-helpdesk.New_Association {Associated with new Object}]
# lappend actions $assoc_msg [export_vars -base "/intranet-helpdesk/associate" {return_url {tid $ticket_id}}] ""
set stakeholder_sql " set stakeholder_sql "
select s.*,
im_email_from_user_id(s.user_id) as email
from (
-- customer contacts of the tickets -- customer contacts of the tickets
select ticket_customer_contact_id as user_id select ticket_customer_contact_id as user_id,
im_name_from_user_id(ticket_customer_contact_id) as user_name
from im_tickets t from im_tickets t
where t.ticket_id in ([join $tid ","]) where t.ticket_id in ([join $tid ","])
UNION UNION
-- direct members of the tickets -- direct members of the tickets
select u.user_id select u.user_id,
im_name_from_user_id(user_id) as user_name
from acs_rels r, from acs_rels r,
im_tickets t, im_tickets t,
users u users u
...@@ -57,41 +97,28 @@ set stakeholder_sql " ...@@ -57,41 +97,28 @@ set stakeholder_sql "
t.ticket_id in ([join $tid ","]) t.ticket_id in ([join $tid ","])
UNION UNION
-- authors of the forum topics related to the tickets -- authors of the forum topics related to the tickets
select ft.owner_id as user_id select ft.owner_id as user_id,
im_name_from_user_id(ft.owner_id) as user_name
from im_forum_topics ft from im_forum_topics ft
where ft.object_id in ([join $tid ","]) where ft.object_id in ([join $tid ","])
) s
where
user_id != 0
order by
user_name
" "
set stakeholders [db_list stakeholders $stakeholder_sql] db_multirow -extend { stakeholder_chk stakeholder_url checked } stakeholders stakeholders $stakeholder_sql {
set stakeholder_url [export_vars -base "/intranet/users/view" {user_id}]
set url [export_vars -base "/intranet-contacts/message" {return_url}] set stakeholder_chk "<input type=\"checkbox\"
foreach user_id $stakeholders { name=\"stakeholder_id\"
append url "&to=$user_id" value=\"$user_id\"
id=\"stakeholders_list,$user_id\">
"
set checked "checked"
} }
ad_returnredirect $url
set ttt { set send_msg [lang::message::lookup "" intranet-helpdesk.Send "Send"]
{attachment_id:integer,multiple,optional}
{object_id:integer,multiple,optional}
{party_id:multiple,optional}
{party_ids ""}
{search_id:integer ""}
{message_type ""}
{message:optional}
{header_id:integer ""}
{footer_id:integer ""}
{return_url "./"}
{file_ids ""}
{files_extend:integer,multiple,optional ""}
{item_id:integer ""}
{folder_id:integer ""}
{signature_id:integer ""}
{subject ""}
{content_body:html ""}
{to:integer,multiple,optional ""}
{page:optional 1}
{context_id:integer ""}
{cc ""}
{bcc ""}
}
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