Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'=====================================================
 3 
'=====================================================
4 
'		 	   		Update Issues State
 4 
'                   Update Issues State
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'=====================================================
 6 
'=====================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0   ' always load the page, dont store
12 
%>
 12 
%>
13 
<!--#include file="common/conf.asp"-->
 13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
Line 36... Line 36...
36 
'----------------------------------------------
 36 
'----------------------------------------------
37 
%>
 37 
%>
38 
<%
 38 
<%
39 
'-----------------------------------------------------------------------------------------------------------------------------
 39 
'-----------------------------------------------------------------------------------------------------------------------------
40 
Sub GetOldIssueStates ( nPvId, ByRef outobjOldIssStates )
 40 
Sub GetOldIssueStates ( nPvId, ByRef outobjOldIssStates )
41 
	Dim rsQry, query
 41 
   Dim rsQry, query
42
42 
 
43 
	query = _
 43 
   query = _
44 
	" SELECT cqi.ISS_DB ||'.'|| cqi.ISS_ID AS iss_db_id,"&_
 44 
   " SELECT cqi.ISS_DB ||'.'|| cqi.ISS_ID AS iss_db_id,"&_
45 
	"        cqi.ISS_STATE"&_
 45 
   "        cqi.ISS_STATE"&_
46 
	"   FROM CQ_ISSUES cqi"&_
 46 
   "   FROM CQ_ISSUES cqi"&_
47 
	"  WHERE cqi.PV_ID = :PV_ID"
 47 
   "  WHERE cqi.PV_ID = :PV_ID"
48
48 
 
49 
	OraDatabase.Parameters.Add "PV_ID", nPvId, 	ORAPARM_INPUT, ORATYPE_NUMBER
49 
   OraDatabase.Parameters.Add "PV_ID", nPvId,    ORAPARM_INPUT, ORATYPE_NUMBER
50
50 
 
51 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 51 
   Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
52 
	While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
 52 
   While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
53 
		outobjOldIssStates.Item ( CStr(rsQry("iss_db_id")) ) = Cstr(rsQry("iss_state"))
53 
      outobjOldIssStates.Item ( CStr(rsQry("iss_db_id")) ) = Cstr(rsQry("iss_state"))
54
54 
 
55 
		rsQry.MoveNext()
 55 
      rsQry.MoveNext()
56 
	WEnd
 56 
   WEnd
57
57 
 
58 
	rsQry.Close
 58 
   rsQry.Close
59 
	Set rsQry = Nothing
 59 
   Set rsQry = Nothing
60
60 
 
61 
	OraDatabase.Parameters.Remove "PV_ID"
 61 
   OraDatabase.Parameters.Remove "PV_ID"
62 
End Sub
 62 
End Sub
63 
'-----------------------------------------------------------------------------------------------------------------------------
 63 
'-----------------------------------------------------------------------------------------------------------------------------
64 
Sub Update_Issues ( NNpv_id, NNfixed_iss_list )
 64 
Sub Update_Issues ( NNpv_id, NNfixed_iss_list )
65 
	Dim fixedIssArr, isspkArr, isspk, objOldIssStates, iss_num, outstandingIssArr
 65 
   Dim fixedIssArr, isspkArr, isspk, objOldIssStates, iss_num, outstandingIssArr
66
66 
 
67 
	Set objOldIssStates = CreateObject("Scripting.Dictionary")
 67 
   Set objOldIssStates = CreateObject("Scripting.Dictionary")
68
68 
 
69 
	Call GetOldIssueStates ( NNpv_id, objOldIssStates )
 69 
   Call GetOldIssueStates ( NNpv_id, objOldIssStates )
70
70 
 
- 
 
 71 
   objEH.TryORA ( OraSession )
71 
	OraDatabase.BeginTrans
 72 
   On Error Resume Next
72
- 
 
73
73 
 
74 
	'-- Set all issues to "imported" i.e. "not fixed"
 74 
   '-- Set all issues to "imported" i.e. "not fixed"
75 
	'OraDatabase.ExecuteSQL _
 75 
   'OraDatabase.ExecuteSQL _
76 
	'	" UPDATE cq_issues "&_
 76 
   '   " UPDATE cq_issues "&_
77 
    '	" SET iss_state = "& enumISSUES_STATE_IMPORTED &_
 77 
    '   " SET iss_state = "& enumISSUES_STATE_IMPORTED &_
78 
    '	" WHERE pv_id = "& NNpv_id
 78 
    '   " WHERE pv_id = "& NNpv_id
79
- 
 
80
- 
 
81
79 
 
82 
	'-- Now set "fixed" for selected issues
 80 
   '-- Now set "fixed" for selected issues
83 
	If NNfixed_iss_list <> "" Then
81 
   If NNfixed_iss_list <> "" Then
84 
		fixedIssArr = Split( Replace( NNfixed_iss_list, " ", "" ) , ",")
 82 
      fixedIssArr = Split( Replace( NNfixed_iss_list, " ", "" ) , ",")
85
83 
 
86 
		For Each isspk In fixedIssArr
 84 
      For Each isspk In fixedIssArr
87 
			isspkArr = Split(isspk, ".")
 85 
         isspkArr = Split(isspk, ".")
88 
			iss_num = GetIssueNumber ( isspkArr(0), isspkArr(1) )
 86 
         iss_num = GetIssueNumber ( isspkArr(0), isspkArr(1) )
89
87 
 
- 
 
 88 
         If Err.Number = 0 Then
90 
			OraDatabase.ExecuteSQL _
 89 
            OraDatabase.ExecuteSQL _
91 
				" UPDATE cq_issues "&_
 90 
               " UPDATE cq_issues "&_
92 
		    	" SET iss_state = "& enumISSUES_STATE_FIXED &_
 91 
               " SET iss_state = "& enumISSUES_STATE_FIXED &_
93 
		    	" WHERE pv_id = "& NNpv_id &_
 92 
               " WHERE pv_id = "& NNpv_id &_
94 
				"   AND iss_db = "& isspkArr(0) &_
 93 
               "   AND iss_db = "& isspkArr(0) &_
95 
				"   AND iss_id = "& isspkArr(1)
 94 
               "   AND iss_id = "& isspkArr(1)
96
- 
 
97
95 
 
- 
 
 96 
            If Err.Number = 0 Then
98 
			'/* Log Action */
 97 
               '/* Log Action */
99 
			If CStr( objOldIssStates.Item ( isspk ) ) = CStr(enumISSUES_STATE_IMPORTED) Then
 98 
               If CStr( objOldIssStates.Item ( isspk ) ) = CStr(enumISSUES_STATE_IMPORTED) Then
100
99 
 
101 
				OraDatabase.ExecuteSQL _
 100 
                  OraDatabase.ExecuteSQL _
102 
					"BEGIN  Log_Action ( "& NNpv_id &", 'issue_fixed', "& objAccessControl.UserId &", 'Issue number: "& iss_num &"' );  END;"
 101 
                     "BEGIN  Log_Action ( "& NNpv_id &", 'issue_fixed', "& objAccessControl.UserId &", 'Issue number: "& iss_num &"' );  END;"
103
102 
               End If
104 
			End If
 103 
            End If
105
104 
 
106 
			'-- Remove this element from objOldIssStates
 105 
            '-- Remove this element from objOldIssStates
107 
			objOldIssStates.Remove ( isspk )
 106 
            objOldIssStates.Remove ( isspk )
108
107 
         End If
109 
		Next
 108 
      Next
110
- 
 
111
- 
 
112 
	End If
 109 
   End If
113
- 
 
114
110 
 
115
111 
 
116 
	'/* Log Action */
 112 
   '/* Log Action */
117 
	'-- Log Set to Outstanding
 113 
   '-- Log Set to Outstanding
118 
	outstandingIssArr = objOldIssStates.Keys
 114 
   outstandingIssArr = objOldIssStates.Keys
119
115 
 
120 
	For Each isspk In outstandingIssArr
 116 
   For Each isspk In outstandingIssArr
121
117 
 
122 
		If CStr( objOldIssStates.Item ( isspk ) ) = CStr(enumISSUES_STATE_FIXED) Then
 118 
      If CStr( objOldIssStates.Item ( isspk ) ) = CStr(enumISSUES_STATE_FIXED) Then
123 
			isspkArr = Split(isspk, ".")
 119 
         isspkArr = Split(isspk, ".")
124 
			iss_num = GetIssueNumber ( isspkArr(0), isspkArr(1) )
 120 
         iss_num = GetIssueNumber ( isspkArr(0), isspkArr(1) )
125
121 
 
- 
 
 122 
         If Err.Number = 0 Then
126 
			OraDatabase.ExecuteSQL _
 123 
            OraDatabase.ExecuteSQL _
127 
				"BEGIN  Log_Action ( "& NNpv_id &", 'issue_outstanding', "& objAccessControl.UserId &", 'Issue number: "& iss_num &"' );  END;"
 124 
               "BEGIN  Log_Action ( "& NNpv_id &", 'issue_outstanding', "& objAccessControl.UserId &", 'Issue number: "& iss_num &"' );  END;"
128
125 
         End If
129 
		End If
 126 
      End If
130
- 
 
131 
	Next
 127 
   Next
132
- 
 
133
128 
 
134 
	OraDatabase.CommitTrans
 129 
   objEH.CatchORA ( OraSession )
135
130 
 
136 
End Sub
 131 
End Sub
137 
'-----------------------------------------------------------------------------------------------------------------------------
 132 
'-----------------------------------------------------------------------------------------------------------------------------
138 
%>
 133 
%>
139 
<%
 134 
<%
140 
'-----------------------  MAIN LINE  ---------------------------
 135 
'-----------------------  MAIN LINE  ---------------------------
141 
'--- Process submition ---
 136 
'--- Process submition ---
142 
If (parPv_id <> "") Then
 137 
If (parPv_id <> "") Then
143 
	' All mendatory parameters FOUND
 138 
   ' All mendatory parameters FOUND
144
139 
 
145 
	Call Update_Issues ( parPv_id, parFRfixed )
 140 
   Call Update_Issues ( parPv_id, parFRfixed )
146
141 
 
147 
	Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 142 
   Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
148 
Else
 143 
Else
149 
	Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
 144 
   Response.write "Some mendatory parameters are missing!" & "<br>" 'TODO
150 
	Response.write QSTR_All
145 
   Response.write QSTR_All
151 
End If
 146 
End If
152 
%>
 147 
%>
153 
 
 148 
 
154 
<!-- DESTRUCTOR ------->
 149 
<!-- DESTRUCTOR ------->
155 
<!--#include file="common/destructor.asp"-->
 - 
 
156 

            150
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            151