Skip to content

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

- added component to show related tickets

parent 23d27c8d
Hide whitespace changes
Inline Side-by-side
Showing with 95 additions and 148 deletions
www/new.adp
View file @ a96e94b2
......@@ -36,14 +36,6 @@
</td>
<td width="50%">
<%= [im_box_header [lang::message::lookup "" intranet-helpdesk.Referencing_Tickets "Issues Referencing This Ticket"]] %>
<listtemplate name="referencing_tickets"></listtemplate>
<%= [im_box_footer] %>
<%= [im_box_header [lang::message::lookup "" intranet-helpdesk.Referenced_Tickets "Problem Referenced by This Ticket"]] %>
<listtemplate name="referenced_tickets"></listtemplate>
<%= [im_box_footer] %>
<%= [im_component_bay right] %>
</td>
</tr>
......
www/new.tcl
View file @ a96e94b2
......@@ -413,146 +413,6 @@ set field_cnt [im_dynfield::append_attributes_to_form \
-object_id $dynfield_ticket_id \
]
# ---------------------------------------------------------------
# Referencing Tickets - Issue tickets referencing THIS ticket as a problem ticket
# ---------------------------------------------------------------
set return_url $current_url
set bulk_action_list {}
lappend bulk_actions_list "[lang::message::lookup "" intranet-helpdesk.Delete "Delete"]" "ticket-ticket-rel-del" "[lang::message::lookup "" intranet-helpdesk.Remove_checked_items "Remove Checked Items"]"
if {![info exists ticket_id]} { set ticket_id 0}
set assoc_action [lang::message::lookup {} intranet-helpdesk.Assoc_to_new_ticket {Associate with a new ticket}]
list::create \
-name referencing_tickets \
-multirow referencing_tickets_multirow \
-key rel_id \
-row_pretty_plural "[lang::message::lookup {} intranet-helpdesk.Referencing_Tickets "Associated Tickets"]" \
-has_checkboxes \
-bulk_actions $bulk_actions_list \
-bulk_action_export_vars { return_url } \
-actions [list \
"Associate with new ticket" \
"/intranet-helpdesk/new?ticket_id=$ticket_id" \
"" \
] \
-elements {
ticket_chk {
label "<input type=\"checkbox\"
name=\"_dummy\"
onclick=\"acs_ListCheckAll('referencing_tickets_list', this.checked)\"
title=\"Check/uncheck all rows\">"
display_template {
@referencing_tickets_multirow.ticket_chk;noquote@
}
}
project_nr {
label "[lang::message::lookup {} intranet-helpdesk.Ticket_Nr {Nr}]"
link_url_eval {[export_vars -base "/intranet-helpdesk/new" {ticket_id}]}
}
project_name {
label "[lang::message::lookup {} intranet-helpdesk.Ticket_Name {Ticket Name}]"
link_url_eval {[export_vars -base "/intranet-helpdesk/new" {ticket_id}]}
}
}
set referencing_tickets_sql "
select
t.*,
p.*,
r.rel_id
from im_tickets t,
im_projects p,
acs_rels r
where
t.ticket_id = p.project_id and
r.object_id_one = t.ticket_id and
r.object_id_two = :ticket_id
"
db_multirow -extend { ticket_chk ticket_url } referencing_tickets_multirow referencing_tickets $referencing_tickets_sql {
set ticket_url ""
set ticket_chk "<input type=\"checkbox\"
name=\"rel_id\"
value=\"$rel_id\"
id=\"referencing_tickets_list,$rel_id\">"
}
# ---------------------------------------------------------------
# Referenced Tickets - Problem tickets referenced by THIS ticket
# ---------------------------------------------------------------
set bulk_action_list {}
lappend bulk_actions_list "[lang::message::lookup "" intranet-helpdesk.Delete "Delete"]" "ticket-ticket-rel-del" "[lang::message::lookup "" intranet-helpdesk.Remove_checked_items "Remove Checked Items"]"
if {![info exists ticket_id]} { set ticket_id 0}
set assoc_action [lang::message::lookup {} intranet-helpdesk.Assoc_to_new_ticket {Associate with a new ticket}]
list::create \
-name referenced_tickets \
-multirow referenced_tickets_multirow \
-key rel_id \
-row_pretty_plural "[lang::message::lookup {} intranet-helpdesk.Referenced_Tickets "Associated Tickets"]" \
-has_checkboxes \
-bulk_actions $bulk_actions_list \
-bulk_action_export_vars { return_url } \
-actions [list \
"Associate with new ticket" \
"/intranet-helpdesk/new?ticket_id=$ticket_id" \
"" \
] \
-elements {
ticket_chk {
label "<input type=\"checkbox\"
name=\"_dummy\"
onclick=\"acs_ListCheckAll('referenced_tickets_list', this.checked)\"
title=\"Check/uncheck all rows\">"
display_template {
@referenced_tickets_multirow.ticket_chk;noquote@
}
}
project_nr {
label "[lang::message::lookup {} intranet-helpdesk.Ticket_Nr {Nr}]"
link_url_eval {[export_vars -base "/intranet-helpdesk/new" {ticket_id}]}
}
project_name {
label "[lang::message::lookup {} intranet-helpdesk.Ticket_Name {Ticket Name}]"
link_url_eval {[export_vars -base "/intranet-helpdesk/new" {ticket_id}]}
}
}
set referenced_tickets_sql "
select
t.*,
p.*,
r.rel_id
from im_tickets t,
im_projects p,
acs_rels r
where
t.ticket_id = p.project_id and
r.object_id_one = :ticket_id and
r.object_id_two = t.ticket_id
"
db_multirow -extend { ticket_chk ticket_url } referenced_tickets_multirow referenced_tickets $referenced_tickets_sql {
set ticket_url ""
set ticket_chk "<input type=\"checkbox\"
name=\"rel_id\"
value=\"$rel_id\"
id=\"referenced_tickets_list,$rel_id\">"
}
# ------------------------------------------------------------------
#
# ------------------------------------------------------------------
......
www/related-tickets-component.adp 0 → 100644
View file @ a96e94b2
<listtemplate name="tickets"></listtemplate>
www/related-tickets-component.tcl 0 → 100644
View file @ a96e94b2
# /packages/intranet-helpdesk/www/related-tickets-component.tcl
#
# Copyright (c) 2003-2008 ]project-open[
#
# All rights reserved. Please check
# http://www.project-open.com/license/ for details.
# Shows the list of tickets related to the current ticket
# ---------------------------------------------------------------
# Variables
# ---------------------------------------------------------------
# { ticket_id:integer "" }
# return_url
# ---------------------------------------------------------------
# Defaults & Security
# ---------------------------------------------------------------
set current_user_id [ad_maybe_redirect_for_registration]
# ---------------------------------------------------------------
# Referenced Tickets - Problem tickets referenced by THIS ticket
# ---------------------------------------------------------------
set bulk_action_list {}
lappend bulk_actions_list "[lang::message::lookup "" intranet-helpdesk.Delete "Delete"]" "ticket-ticket-rel-del" "[lang::message::lookup "" intranet-helpdesk.Remove_checked_items "Remove Checked Items"]"
set assoc_incident_ticket [lang::message::lookup {} intranet-helpdesk.Assoc_to_new_incident_ticket {Associate with a new incident ticket}]
list::create \
-name tickets \
-multirow tickets_multirow \
-key rel_id \
-row_pretty_plural "[lang::message::lookup {} intranet-helpdesk.Tickets "Associated Tickets"]" \
-has_checkboxes \
-bulk_actions $bulk_actions_list \
-bulk_action_export_vars { return_url } \
-actions [list \
"$assoc_incident_ticket" \
"/intranet-helpdesk/new?ticket_id=$ticket_id" \
"" \
] \
-elements {
ticket_chk {
label "<input type=\"checkbox\"
name=\"_dummy\"
onclick=\"acs_ListCheckAll('tickets_list', this.checked)\"
title=\"Check/uncheck all rows\">"
display_template {
@tickets_multirow.ticket_chk;noquote@
}
}
project_nr {
label "[lang::message::lookup {} intranet-helpdesk.Ticket_Nr {Nr}]"
link_url_eval {[export_vars -base "/intranet-helpdesk/new" {ticket_id}]}
}
project_name {
label "[lang::message::lookup {} intranet-helpdesk.Ticket_Name {Ticket Name}]"
link_url_eval {[export_vars -base "/intranet-helpdesk/new" {ticket_id}]}
}
}
set tickets_sql "
select
t.*,
p.*,
r.rel_id
from im_tickets t,
im_projects p,
acs_rels r
where
t.ticket_id = p.project_id and
(
r.object_id_one = :ticket_id and
r.object_id_two = t.ticket_id
OR
r.object_id_one = t.ticket_id and
r.object_id_two = :ticket_id
)
"
db_multirow -extend { ticket_chk ticket_url } tickets_multirow tickets $tickets_sql {
set ticket_url ""
set ticket_chk "<input type=\"checkbox\"
name=\"rel_id\"
value=\"$rel_id\"
id=\"tickets_list,$rel_id\">"
}
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