-- fixed sanity check for ticket_nr/project_nr

Before ticket_nr needed to be unique, now ticket_nr needs to be unique within parent object -> SLA id

-- fixed sanity check for ticket_nr/project_nr
Before ticket_nr needed to be unique, now ticket_nr needs to be unique within parent object -> SLA id
8875d114 · Frank Bergmann · b00ad9c1 · 8875d114
Commit 8875d114 authored Jul 15, 2013 by Frank Bergmann
Hide whitespace changes
Inline Side-by-side

Showing with 1 addition and 1 deletion

intranet-helpdesk-procs.tcl tcl/intranet-helpdesk-procs.tcl +1 -1

No files found.
--- a/tcl/intranet-helpdesk-procs.tcl
+++ b/tcl/intranet-helpdesk-procs.tcl
@@ -533,7 +533,7 @@ namespace eval im_ticket {
 	    set ticket_name_exists_p [db_string pex "select count(*) from im_projects where project_name = :ticket_name"]
 	    if {$ticket_name_exists_p} { ad_return_complaint 1 "<b>Unable to create ticket:</b><br>Ticket Name '$ticket_name' already exists." }

-	    set ticket_nr_exists_p [db_string pnex "select count(*) from im_projects where project_nr = :ticket_nr"]
+	    set ticket_nr_exists_p [db_string pnex "select count(*) from im_projects where project_nr = :ticket_nr and parent_id = :ticket_sla_id"]
 	    if {$ticket_nr_exists_p} { ad_return_complaint 1 "<b>Unable to create ticket:</b><br>Ticket Nr '$ticket_nr' already exists." }

 	    set ticket_id [db_string exists "select min(project_id) from im_projects where project_type_id = [im_project_type_ticket] and lower(project_nr) = lower(:ticket_nr)" -default ""]