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 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'=====================================================
 7 
'=====================================================
8 
'					Import Issues
 8 
'               Import Issues
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/qstr.asp"-->
 13 
<!--#include file="common/qstr.asp"-->
Line 28... Line 28...
28 
Dim parPv_id
 28 
Dim parPv_id
29 
Dim parFRiss_db
 29 
Dim parFRiss_db
30 
Dim parFRiss_id
 30 
Dim parFRiss_id
31 
Dim parFRiss_num
 31 
Dim parFRiss_num
32 
Dim rsCQ
 32 
Dim rsCQ
33 
Dim rspPage		' current page number for multiple page results
 33 
Dim rspPage      ' current page number for multiple page results
34 
Dim rspTotal	' total number of records
 34 
Dim rspTotal   ' total number of records
35 
Dim rspCount	' Record counter
 35 
Dim rspCount   ' Record counter
36 
Dim rspTotalPages	' Total number of pages required to display results
 36 
Dim rspTotalPages   ' Total number of pages required to display results
37 
Dim imported
 37 
Dim imported
38 
Dim retVal
 38 
Dim retVal
39 
Dim rsCQTemp
 39 
Dim rsCQTemp
40 
Dim SQLstr
 40 
Dim SQLstr
41 
Dim parPackage
 41 
Dim parPackage
Line 49... Line 49...
49 
Dim parIStates
 49 
Dim parIStates
50 
Dim parTitle
 50 
Dim parTitle
51 
Dim oIStates
 51 
Dim oIStates
52 
Dim checked
 52 
Dim checked
53 
'------------ Constants Declaration -----------
 53 
'------------ Constants Declaration -----------
54 
Const rspMax = 100	' maximum number of records displayed
 54 
Const rspMax = 100   ' maximum number of records displayed
55 
Const LENUM_ALL = "ALL"
 55 
Const LENUM_ALL = "ALL"
56 
Const LCONST_STAR = "*"
 56 
Const LCONST_STAR = "*"
57 
'------------ Variable Init -------------------
 57 
'------------ Variable Init -------------------
58 
parPv_id = Request("pv_id")
 58 
parPv_id = Request("pv_id")
59 
parRtag_id = Request("rtag_id")
 59 
parRtag_id = Request("rtag_id")
Line 78... Line 78...
78 
If rspPage = "" Then rspPage = 1
 78 
If rspPage = "" Then rspPage = 1
79 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
 79 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
80 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
 80 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
81 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
 81 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
82 
 
 82 
 
83 
If parFRiss_db = "" Then parFRiss_db = enumCLEARQUEST_DEVI_ID		' Default
 83 
If parFRiss_db = "" Then parFRiss_db = enumCLEARQUEST_DEVI_ID      ' Default
84 
 
 84 
 
85 
If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then
 85 
If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then
86 
	If (parPackage <> "") OR  (parProject <> "")  OR  (parProduct <> "") OR (parTitle <> LCONST_STAR) Then IsOptionUsed = TRUE
 86 
   If (parPackage <> "") OR  (parProject <> "")  OR  (parProduct <> "") OR (parTitle <> LCONST_STAR) Then IsOptionUsed = TRUE
87 
Else
 87 
Else
88 
	If (parCategMain <> "") OR  (parCategMinor <> "") Then IsOptionUsed = TRUE
 88 
   If (parCategMain <> "") OR  (parCategMinor <> "") Then IsOptionUsed = TRUE
89 
End If
 89 
End If
90 
 
 90 
 
91 
' Get DEVI issue states checked
 91 
' Get DEVI issue states checked
92 
Set oIStates = GetIStates()
 92 
Set oIStates = GetIStates()
93 
 
 93 
 
Line 98... Line 98...
98 
'Response.write "parIStates="& parIStates &", parSkipOpen="& parSkipOpen
 98 
'Response.write "parIStates="& parIStates &", parSkipOpen="& parSkipOpen
99 
%>
 99 
%>
100 
<%
 100 
<%
101 
'------------------------------------------------------------------------------------------------------------------------------------
 101 
'------------------------------------------------------------------------------------------------------------------------------------
102 
Function GetIStates()
 102 
Function GetIStates()
103 
	Dim IStates, aStates, stateId
 103 
   Dim IStates, aStates, stateId
104 
	Set IStates = CreateObject("Scripting.Dictionary")
 104 
   Set IStates = CreateObject("Scripting.Dictionary")
105
105 
 
106 
	If parIStates = "" Then
 106 
   If parIStates = "" Then
107 
		IStates.Item ("ALL") = "checked"
 107 
      IStates.Item ("ALL") = "checked"
108 
	Else
 108 
   Else
109
109 
 
110 
		aStates = Split( Replace( parIStates, " ", "" ), ",")
 110 
      aStates = Split( Replace( parIStates, " ", "" ), ",")
111
111 
 
112 
		For Each stateId In aStates
 112 
      For Each stateId In aStates
113 
			IStates.Item (CStr(stateId)) = "checked"
 113 
         IStates.Item (CStr(stateId)) = "checked"
114 
		Next
 114 
      Next
115
115 
 
116
116 
 
117 
	End If
 117 
   End If
118
118 
 
119 
	Set GetIStates = IStates
 119 
   Set GetIStates = IStates
120
120 
 
121 
End Function
 121 
End Function
122 
'------------------------------------------------------------------------------------------------------------------------------------
 122 
'------------------------------------------------------------------------------------------------------------------------------------
123 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ )
 123 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ )
124 
	Dim SQLstr, issARR, iss_num, col_name, Title
 124 
   Dim SQLstr, issARR, iss_num, col_name, Title
125
125 
 
126
126 
 
127
127 
 
128 
	'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 128 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
129 
	'	SQLstr = _
 129 
   '   SQLstr = _
130 
	'	" SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 130 
   '   " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
131 
	'	"   FROM DEVI_PROD.admin.software_issue si,"&_
 131 
   '   "   FROM DEVI_PROD.admin.software_issue si,"&_
132 
	'	"        DEVI_PROD.admin.STATEDEF sd"&_
 132 
   '   "        DEVI_PROD.admin.STATEDEF sd"&_
133 
	'	"  WHERE si.STATE = sd.ID "
 133 
   '   "  WHERE si.STATE = sd.ID "
134
134 
 
135 
	'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 135 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
136 
	'	SQLstr = _
 136 
   '   SQLstr = _
137 
	'	" SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
 137 
   '   " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
138 
	'	"   FROM TDSE_2002.admin.request si, "&_
 138 
   '   "   FROM TDSE_2002.admin.request si, "&_
139 
	'	"        TDSE_2002.admin.STATEDEF sd"&_
 139 
   '   "        TDSE_2002.admin.STATEDEF sd"&_
140 
	'	"  WHERE si.STATE = sd.ID "
 140 
   '   "  WHERE si.STATE = sd.ID "
141
141 
 
142 
	'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 142 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
143 
	'	SQLstr = _
 143 
   '   SQLstr = _
144 
	'	" SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 144 
   '   " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
145 
	'	"   FROM VT5DM.admin.software_issue si,"&_
 145 
   '   "   FROM VT5DM.admin.software_issue si,"&_
146 
	'	"        VT5DM.admin.STATEDEF sd"&_
 146 
   '   "        VT5DM.admin.STATEDEF sd"&_
147 
	'	"  WHERE si.STATE = sd.ID "
147 
   '   "  WHERE si.STATE = sd.ID "
148
148 
 
149 
		'SQLstr = "SELECT * FROM JIRA.jirauser.jiraissue"
 149 
      'SQLstr = "SELECT * FROM JIRA.jirauser.jiraissue"
150
150 
 
151 
	Dim rsProjId, pkey
 151 
   Dim rsProjId, pkey
152 
	Set rsProjId = OraDatabase.DbCreateDynaset("SELECT PROJ_ID FROM RELEASE_TAGS WHERE RTAG_ID ="& Request("rtag_id") &"", cint(0))
 152 
   Set rsProjId = OraDatabase.DbCreateDynaset("SELECT PROJ_ID FROM RELEASE_TAGS WHERE RTAG_ID ="& Request("rtag_id") &"", cint(0))
153 
	If rsProjId("proj_id") = 202 Then
 153 
   If rsProjId("proj_id") = 202 Then
154 
		pkey = "SLSIP"
 154 
      pkey = "SLSIP"
155 
	Elseif rsProjId("proj_id") = 42 Then
 155 
   Elseif rsProjId("proj_id") = 42 Then
156 
		pkey = "SFRM"
156 
      pkey = "SFRM"
157 
	End If
157 
   End If
158
158 
 
159 
		SQLstr = _
 159 
      SQLstr = _
160 
		"SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
 160 
      "SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
161 
		"FROM jiraissue I, project, issuestatus ISS "&_
 161 
      "FROM jiraissue I, project, issuestatus ISS "&_
162 
		"WHERE I.project=project.ID "&_
 162 
      "WHERE I.project=project.ID "&_
163 
		"AND project.pkey='"& pkey &"' "&_
 163 
      "AND project.pkey='"& pkey &"' "&_
164 
		"AND I.issuestatus = ISS.ID "
 164 
      "AND I.issuestatus = ISS.ID "
165
165 
 
166
166 
 
167 
	'End If
 167 
   'End If
168
168 
 
169
169 
 
170 
	'-- User filter --
 170 
   '-- User filter --
171 
	If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 171 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
172 
		' Add package Filter
 172 
      ' Add package Filter
173 
		If (parPackage <> "") Then
 173 
      If (parPackage <> "") Then
174 
			SQLstr = SQLstr &" AND  si.package_ref = '"& Replace( parPackage, "'","''" ) &"'"
 174 
         SQLstr = SQLstr &" AND  si.package_ref = '"& Replace( parPackage, "'","''" ) &"'"
175 
		End If
 175 
      End If
176
176 
 
177 
		' Add project Filter
 177 
      ' Add project Filter
178 
		If (parProject <> "") Then
 178 
      If (parProject <> "") Then
179 
			SQLstr = SQLstr &" AND  si.project = '"& Replace( parProject, "'","''" ) &"'"
 179 
         SQLstr = SQLstr &" AND  si.project = '"& Replace( parProject, "'","''" ) &"'"
180 
		End If
 180 
      End If
181
181 
 
182 
		' Add product Filter
 182 
      ' Add product Filter
183 
		If (parProduct <> "") Then
 183 
      If (parProduct <> "") Then
184 
			SQLstr = SQLstr &" AND  si.product = '"& Replace( parProduct, "'","''" ) &"'"
 184 
         SQLstr = SQLstr &" AND  si.product = '"& Replace( parProduct, "'","''" ) &"'"
185 
		End If
 185 
      End If
186
186 
 
187 
		' Add Issue State Filter
 187 
      ' Add Issue State Filter
188 
		If (parIStates <> "") Then
 188 
      If (parIStates <> "") Then
189 
			SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
 189 
         SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
190 
		End If
 190 
      End If
191
191 
 
192 
		' Add Title keyword search
 192 
      ' Add Title keyword search
193 
		If ( parTitle <> LCONST_STAR ) Then
 193 
      If ( parTitle <> LCONST_STAR ) Then
194 
			Title = Replace( parTitle, "'", "''" )
 194 
         Title = Replace( parTitle, "'", "''" )
195 
			Title = Replace( Title, "*", "%" )
 195 
         Title = Replace( Title, "*", "%" )
196 
			SQLstr = SQLstr &" AND  si.headline LIKE ( '"& Title &"' )"
 196 
         SQLstr = SQLstr &" AND  si.headline LIKE ( '"& Title &"' )"
197 
		End If
 197 
      End If
198
198 
 
199 
	ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 199 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
200
200 
 
201 
		' Add project Filter
 201 
      ' Add project Filter
202 
		If (parProject <> "") Then
 202 
      If (parProject <> "") Then
203 
			SQLstr = SQLstr &" AND  si.category_main = '"& Replace( parCategMain, "'","''" ) &"'"
 203 
         SQLstr = SQLstr &" AND  si.category_main = '"& Replace( parCategMain, "'","''" ) &"'"
204 
		End If
 204 
      End If
205
205 
 
206 
		' Add product Filter
 206 
      ' Add product Filter
207 
		If (parProduct <> "") Then
 207 
      If (parProduct <> "") Then
208 
			SQLstr = SQLstr &" AND  si.category_minor = '"& Replace( parCategMinor, "'","''" ) &"'"
 208 
         SQLstr = SQLstr &" AND  si.category_minor = '"& Replace( parCategMinor, "'","''" ) &"'"
209 
		End If
 209 
      End If
210
210 
 
211 
	End If
 211 
   End If
212
212 
 
213
213 
 
214 
	'-- Keyword search --
 214 
   '-- Keyword search --
215 
	If ( NNiss_num <> LENUM_ALL ) Then
 215 
   If ( NNiss_num <> LENUM_ALL ) Then
216 
		issARR = Split( Replace( NNiss_num, " ", ""), "," )
 216 
      issARR = Split( Replace( NNiss_num, " ", ""), "," )
217
217 
 
218 
		'If ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID ) Then
 218 
      'If ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID ) Then
219 
		'	col_name = "job_number"
 219 
      '   col_name = "job_number"
220 
		'Else
 220 
      'Else
221 
			col_name = "I.pkey"
 221 
         col_name = "I.pkey"
222 
		'End If
 222 
      'End If
223 
		SQLstr = SQLstr & " AND ( "
 223 
      SQLstr = SQLstr & " AND ( "
224 
		For Each iss_num IN issARR
 224 
      For Each iss_num IN issARR
225 
			SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
 225 
         SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
226 
		Next
 226 
      Next
227
227 
 
228 
		SQLstr = Left( SQLstr, Len(SQLstr) - 2 )	' Remove last 'OR'
 228 
      SQLstr = Left( SQLstr, Len(SQLstr) - 2 )   ' Remove last 'OR'
229
229 
 
230 
		SQLstr = SQLstr & "     ) "
 230 
      SQLstr = SQLstr & "     ) "
231
231 
 
232 
	End If
 232 
   End If
233
233 
 
234 
	'-- Get record count ---
 234 
   '-- Get record count ---
235 
	NNrecordCount = Get_Record_Count( SQLstr )
 235 
   NNrecordCount = Get_Record_Count( SQLstr )
236
236 
 
237
237 
 
238 
	'-- Order by --
 238 
   '-- Order by --
239 
	'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 239 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
240 
	'	SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
 240 
   '   SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
241
241 
 
242 
	'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 242 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
243 
	'	SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
 243 
   '   SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
244
244 
 
245 
	'End If
 245 
   'End If
246
246 
 
247 
 
 247 
 
248
248 
 
249 
	OOrsCQ.ActiveConnection = JIRA_conn
 249 
   OOrsCQ.ActiveConnection = JIRA_conn
250 
	OOrsCQ.Source = SQLstr
 250 
   OOrsCQ.Source = SQLstr
251 
	OOrsCQ.CursorType = 0
 251 
   OOrsCQ.CursorType = 0
252 
	OOrsCQ.CursorLocation = 2
 252 
   OOrsCQ.CursorLocation = 2
253 
	OOrsCQ.LockType = 3
 253 
   OOrsCQ.LockType = 3
254
254 
 
255 
	On Error Resume Next
 255 
   On Error Resume Next
256 
	OOrsCQ.Open()
 256 
   OOrsCQ.Open()
257
257 
 
258 
	Get_Issues = Err.Number
 258 
   Get_Issues = Err.Number
259
259 
 
260 
End Function
260 
End Function
261 
'------------------------------------------------------------------------------------------------------------------------------------
 261 
'------------------------------------------------------------------------------------------------------------------------------------
262 
Function Get_Record_Count ( SSsql )
 262 
Function Get_Record_Count ( SSsql )
263 
	Dim rsTemp
 263 
   Dim rsTemp
264 
	Set rsTemp = Server.CreateObject("ADODB.Recordset")
 264 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
265 
	rsTemp.ActiveConnection = JIRA_conn
 265 
   rsTemp.ActiveConnection = JIRA_conn
266 
	'Response.Write(rsTemp.ActiveConnection)
 266 
   'Response.Write(rsTemp.ActiveConnection)
267 
 
 267 
 
268 
	rsTemp.Source = _
 268 
   rsTemp.Source = _
269 
	" SELECT COUNT(*) as record_count "&_
 269 
   " SELECT COUNT(*) as record_count "&_
270 
	"   FROM ("& SSsql &") ct"
 270 
   "   FROM ("& SSsql &") ct"
271
271 
 
272 
	rsTemp.CursorType = 0
 272 
   rsTemp.CursorType = 0
273 
	rsTemp.CursorLocation = 2
 273 
   rsTemp.CursorLocation = 2
274 
	rsTemp.LockType = 3
 274 
   rsTemp.LockType = 3
275 
	rsTemp.Open()
 275 
   rsTemp.Open()
276
276 
 
277 
	If (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) Then
277 
   If (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) Then
278 
		Get_Record_Count = rsTemp("record_count")
 278 
      Get_Record_Count = rsTemp("record_count")
279 
	Else
 279 
   Else
280 
		Get_Record_Count = 0
 280 
      Get_Record_Count = 0
281 
	End If
 281 
   End If
282
282 
 
283 
	rsTemp.Close
 283 
   rsTemp.Close
284 
	Set rsTemp = nothing
 284 
   Set rsTemp = nothing
285 
End Function
 285 
End Function
286 
'------------------------------------------------------------------------------------------------------------------------------------
 286 
'------------------------------------------------------------------------------------------------------------------------------------
287 
Sub Get_CQ_Issues_States ( sIssIdList, nIssDB, outObjCQissState )
 287 
Sub Get_CQ_Issues_States ( sIssIdList, nIssDB, outObjCQissState )
288 
	Dim rsTemp, SQLstr
 288 
   Dim rsTemp, SQLstr
289 
	Set rsTemp = Server.CreateObject("ADODB.Recordset")
 289 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
290 
	rsTemp.ActiveConnection = JIRA_conn
 290 
   rsTemp.ActiveConnection = JIRA_conn
291 
 
 291 
 
292 
	SQLstr = _
 292 
   SQLstr = _
293 
	"SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
 293 
   "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
294 
	" FROM jiraissue I, issuestatus ISS "&_
 294 
   " FROM jiraissue I, issuestatus ISS "&_
295 
	" WHERE I.pkey IN ('"& sIssIdList &"') "&_
 295 
   " WHERE I.pkey IN ('"& sIssIdList &"') "&_
296 
	"AND I.issuestatus = ISS.ID "
 296 
   "AND I.issuestatus = ISS.ID "
297
297 
 
298 
	'If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 298 
   'If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
299 
	'	SQLstr = _
 299 
   '   SQLstr = _
300 
	'	" SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 300 
   '   " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
301 
	'	"  FROM DEVI_PROD.admin.software_issue si,"&_
 301 
   '   "  FROM DEVI_PROD.admin.software_issue si,"&_
302 
	'	"       DEVI_PROD.admin.statedef sd"&_
 302 
   '   "       DEVI_PROD.admin.statedef sd"&_
303 
	'	" WHERE si.STATE = sd.ID"&_
 303 
   '   " WHERE si.STATE = sd.ID"&_
304 
	'	"   AND si.dbid IN ("& sIssIdList &")"
 304 
   '   "   AND si.dbid IN ("& sIssIdList &")"
305
305 
 
306 
	'ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
 306 
   'ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
307 
	'	SQLstr = _
 307 
   '   SQLstr = _
308 
	'	" SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 308 
   '   " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
309 
	'	"  FROM TDSE_2002.admin.request si,"&_
 309 
   '   "  FROM TDSE_2002.admin.request si,"&_
310 
	'	"       TDSE_2002.admin.statedef sd"&_
 310 
   '   "       TDSE_2002.admin.statedef sd"&_
311 
	'	" WHERE si.STATE = sd.ID"&_
 311 
   '   " WHERE si.STATE = sd.ID"&_
312 
	'	"   AND si.dbid IN ("& sIssIdList &")"
 312 
   '   "   AND si.dbid IN ("& sIssIdList &")"
313 
	'ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
 313 
   'ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
314 
	'	SQLstr = _
 314 
   '   SQLstr = _
315 
	'	" SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 315 
   '   " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
316 
	'	"  FROM VT5DM.admin.software_issue si,"&_
 316 
   '   "  FROM VT5DM.admin.software_issue si,"&_
317 
	'	"       VT5DM.admin.statedef sd"&_
 317 
   '   "       VT5DM.admin.statedef sd"&_
318 
	'	" WHERE si.STATE = sd.ID"&_
 318 
   '   " WHERE si.STATE = sd.ID"&_
319 
	'	"   AND si.dbid IN ("& sIssIdList &")"
 319 
   '   "   AND si.dbid IN ("& sIssIdList &")"
320 
	'
320 
   '
321
321 
 
322 
	'End If
 322 
   'End If
323
323 
 
324 
	rsTemp.Source = SQLstr
 324 
   rsTemp.Source = SQLstr
325 
	rsTemp.CursorType = 0
 325 
   rsTemp.CursorType = 0
326 
	rsTemp.CursorLocation = 2
 326 
   rsTemp.CursorLocation = 2
327 
	rsTemp.LockType = 3
 327 
   rsTemp.LockType = 3
328 
	rsTemp.Open()
 328 
   rsTemp.Open()
329
329 
 
330
330 
 
331
331 
 
332 
	While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
332 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
333 
		outObjCQissState.Add CStr(rsTemp("iss_num")), CStr(rsTemp("state"))
 333 
      outObjCQissState.Add CStr(rsTemp("iss_num")), CStr(rsTemp("state"))
334 
		rsTemp.MoveNext
 334 
      rsTemp.MoveNext
335 
	WEnd
 335 
   WEnd
336
336 
 
337 
	rsTemp.Close
 337 
   rsTemp.Close
338 
	Set rsTemp = nothing
 338 
   Set rsTemp = nothing
339 
End Sub
 339 
End Sub
340 
'------------------------------------------------------------------------------------------------------------------------------------
 340 
'------------------------------------------------------------------------------------------------------------------------------------
341 
Function Is_Pkg_Official ( nPv_id )
 341 
Function Is_Pkg_Official ( nPv_id )
342 
	Dim rsTemp, Query_String
 342 
   Dim rsTemp, Query_String
343 
	Query_String = _
 343 
   Query_String = _
344 
	" SELECT dlocked"&_
 344 
   " SELECT dlocked"&_
345 
	"  FROM package_versions "&_
 345 
   "  FROM package_versions "&_
346 
	" WHERE pv_id = "& nPv_id
 346 
   " WHERE pv_id = "& nPv_id
347 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 347 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
348 
	If rsTemp("dlocked") = "Y" Then
 348 
   If rsTemp("dlocked") = "Y" Then
349 
		Is_Pkg_Official = TRUE
 349 
      Is_Pkg_Official = TRUE
350 
	Else
 350 
   Else
351 
		Is_Pkg_Official = FALSE
 351 
      Is_Pkg_Official = FALSE
352 
	End If
 352 
   End If
353 
	rsTemp.Close
 353 
   rsTemp.Close
354 
	Set rsTemp = nothing
 354 
   Set rsTemp = nothing
355 
End Function
 355 
End Function
356 
'------------------------------------------------------------------------------------------------------------------------------------
 356 
'------------------------------------------------------------------------------------------------------------------------------------
357 
Function Set_Issue_State ( sCQState )
 357 
Function Set_Issue_State ( sCQState )
358 
	If parSkipOpen <> "" Then
 358 
   If parSkipOpen <> "" Then
359 
		Set_Issue_State = enumISSUES_STATE_FIXED
 359 
      Set_Issue_State = enumISSUES_STATE_FIXED
360
360 
 
361 
	Else
 361 
   Else
362 
		Set_Issue_State = enumISSUES_STATE_IMPORTED
 362 
      Set_Issue_State = enumISSUES_STATE_IMPORTED
363
363 
 
364 
	End If
 364 
   End If
365 
End Function
 365 
End Function
366 
'------------------------------------------------------------------------------------------------------------------------------------
 366 
'------------------------------------------------------------------------------------------------------------------------------------
367 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
 367 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
368 
	Dim issArr, iss_id, oCQissState, iss_num, iss_state, iss_state_human_readable
 368 
   Dim issArr, iss_id, oCQissState, iss_num, iss_state, iss_state_human_readable
369 
	If NNiss_id_list = "" Then Exit Sub
 369 
   If NNiss_id_list = "" Then Exit Sub
370 
	Set oCQissState = CreateObject("Scripting.Dictionary")
 370 
   Set oCQissState = CreateObject("Scripting.Dictionary")
371
371 
 
372 
	issArr = Split ( NNiss_id_list, ",")
 372 
   issArr = Split ( NNiss_id_list, ",")
373 
	'Response.Write(NNiss_id_list)
 373 
   'Response.Write(NNiss_id_list)
374
374 
 
375 
	Call Get_CQ_Issues_States ( NNiss_id_list, NNiss_db, oCQissState )
 375 
   Call Get_CQ_Issues_States ( NNiss_id_list, NNiss_db, oCQissState )
376
- 
 
377
- 
 
378
376 
 
- 
 
 377 
   objEH.TryORA ( OraSession )
379 
	'On Error Resume Next
 378 
   On Error Resume Next
380 
	OraSession.BeginTrans
 - 
 
381
379 
 
382 
	For Each iss_id In issArr
 380 
   For Each iss_id In issArr
383 
 
 381 
 
- 
 
 382 
      If Err.Number = 0 Then
384 
		OraDatabase.ExecuteSQL _
 383 
         OraDatabase.ExecuteSQL _
385 
			" INSERT INTO JIRA_ISSUES ( pv_id, iss_key, date_time_stamp )"&_
 384 
            " INSERT INTO JIRA_ISSUES ( pv_id, iss_key, date_time_stamp )"&_
386 
			" VALUES ( "& NNpv_id &", '"& LTrim(iss_id) &"', "& ORA_SYSDATETIME &")"
 385 
            " VALUES ( "& NNpv_id &", '"& LTrim(iss_id) &"', "& ORA_SYSDATETIME &")"
387
386 
 
388 
		'If iss_state = 0 Then
 387 
         'If iss_state = 0 Then
389 
		'	iss_state_human_readable = "No"
 388 
         '   iss_state_human_readable = "No"
390 
		'Else
 389 
         'Else
391 
		'	iss_state_human_readable = "Yes"
 390 
         '   iss_state_human_readable = "Yes"
392 
		'End If
 391 
         'End If
393
392 
 
- 
 
 393 
         If Err.Number = 0 Then
394 
		OraDatabase.ExecuteSQL _
 394 
            OraDatabase.ExecuteSQL _
395 
			"BEGIN  Log_Action ( "& NNpv_id &", 'jira_issue_added', "& objAccessControl.UserId &", 'Issue number: "& LTrim(iss_id) &"' );  END;"
 395 
               "BEGIN  Log_Action ( "& NNpv_id &", 'jira_issue_added', "& objAccessControl.UserId &", 'Issue number: "& LTrim(iss_id) &"' );  END;"
- 
 
 396 
         End If
396
397 
 
- 
 
 398 
      End If
397 
	Next
 399 
   Next
398
400 
 
399 
	OraSession.CommitTrans
 401 
   objEH.CatchORA ( OraSession )
400 
End Sub
 402 
End Sub
401 
'------------------------------------------------------------------------------------------------------------------------------------
 403 
'------------------------------------------------------------------------------------------------------------------------------------
402 
%>
 404 
%>
403 
<%
 405 
<%
404 
'Process submition
 406 
'Process submition
405 
If CBool(Request("action")) AND (Request("btn") = "Import")  AND objAccessControl.UserLogedIn Then
 407 
If CBool(Request("action")) AND (Request("btn") = "Import")  AND objAccessControl.UserLogedIn Then
406 
	Call Import_Issues ( parPv_id, parFRiss_db, parFRiss_id )
 408 
   Call Import_Issues ( parPv_id, parFRiss_db, parFRiss_id )
407 
	imported = TRUE
 409 
   imported = TRUE
408 
	Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
 410 
   Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
409
411 
 
410 
End If
 412 
End If
411 
%>
 413 
%>
412 
<%
 414 
<%
413 
'-------------- Main Line ---------------
 415 
'-------------- Main Line ---------------
414 
retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ )
 416 
retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ )
Line 441... Line 443...
441 
        <tr>
 443 
        <tr>
442 
          <td align="left" class="wform_ttl">Database</td>
 444 
          <td align="left" class="wform_ttl">Database</td>
443 
          <td>JIRA</td>
 445 
          <td>JIRA</td>
444 
        </tr>
 446 
        </tr>
445 
 
 447 
 
446 
      </table>
448 
      </table>
447
449 
 
448 
<DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 450 
<DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
449 
	  	<DIV id="DIVOPTIONSDEVI" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>        </DIV>
 451 
        <DIV id="DIVOPTIONSDEVI" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>        </DIV>
450
452 
 
451
453 
 
452
454 
 
453 
		<DIV id="DIVOPTIONSTDSE" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>        </DIV>
 455 
      <DIV id="DIVOPTIONSTDSE" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>        </DIV>
454
456 
 
455 
 
 457 
 
456 
</DIV>
 458 
</DIV>
457
459 
 
458 
        <table width="400" border="0" cellspacing="5" cellpadding="0">
 460 
        <table width="400" border="0" cellspacing="5" cellpadding="0">
459 
          <tr background="images/lbox_bg_blue.gif">
 461 
          <tr background="images/lbox_bg_blue.gif">
460 
            <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
 462 
            <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
461 
          </tr>
 463 
          </tr>
462 
          <tr>
 464 
          <tr>
463 
            <td width="1">&nbsp;</td>
 465 
            <td width="1">&nbsp;</td>
464 
            <td width="100%"><input type="submit" name="btn" value="Find &raquo;" class="form_btn_comp"></td>
 466 
            <td width="100%"><input type="submit" name="btn" value="Find &raquo;" class="form_btn_comp"></td>
465 
          </tr>
 467 
          </tr>
466 
        </table></td>
 468 
        </table></td>
467 
    </tr>
 469 
    </tr>
468
470 
 
469 
	 <tr>
471 
    <tr>
470 
      <td background="images/lbox_bg_blue.gif" width="1%" height="1%">&nbsp;</td>
 472 
      <td background="images/lbox_bg_blue.gif" width="1%" height="1%">&nbsp;</td>
471 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;</td>
 473 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;</td>
472 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
 474 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
473 
	    <input type="submit" name="btn" value="Import" class="form_btn_comp">
475 
       <input type="submit" name="btn" value="Import" class="form_btn_comp">
474 
        <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
476 
        <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
475 
      </td>
 477 
      </td>
476 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
478 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
477 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 479 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
478 
    </tr>
 480 
    </tr>
479 
    <tr>
481 
    <tr>
480 
      <td height="100%" width="1%">&nbsp;</td>
 482 
      <td height="100%" width="1%">&nbsp;</td>
481 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
 483 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
482 
	    <%If imported Then%>
 484 
       <%If imported Then%>
483 
			<%Call DisplayInfo ( "ISSUES_IMPORTED", "300" )%>
 485 
         <%Call DisplayInfo ( "ISSUES_IMPORTED", "300" )%>
484 
		<%End If%>
 486 
      <%End If%>
485 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 487 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
486 
          <tr>
488 
          <tr>
487 
            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 489 
            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
488 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Key</td>
 490 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Key</td>
489 
			<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
 491 
         <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
490 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
 492 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
491 
          </tr>
 493 
          </tr>
492 
		  <%
 494 
        <%
493 
		  rspCount = 0
 495 
        rspCount = 0
494 
	      If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
496 
         If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
495 
			  rsCQ.Move( rspMax * (rspPage - 1))
 497 
           rsCQ.Move( rspMax * (rspPage - 1))
496
498 
 
497 
			  %>
 499 
           %>
498 
			  <%
 500 
           <%
499 
			  While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
501 
           While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
500 
			  %>
 502 
           %>
501 
	          <tr>
503 
             <tr>
502 
	            <td><input type="checkbox" name="FRiss_id" value="<%=rsCQ("iss_num")%>"></td>
 504 
               <td><input type="checkbox" name="FRiss_id" value="<%=rsCQ("iss_num")%>"></td>
503 
	            <td nowrap class="form_item">
 505 
               <td nowrap class="form_item">
504
506 
 
505 
					<%If parFRiss_num <> LENUM_ALL Then%>
 507 
               <%If parFRiss_num <> LENUM_ALL Then%>
506 
					<%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
 508 
               <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
507 
					<%Else%>
 509 
               <%Else%>
508 
					<a href="http://auperajir01:8080/browse/<%=rsCQ("iss_num")%>" target="_blank"><%=rsCQ("iss_num")%>
 510 
               <a href="http://auperajir01:8080/browse/<%=rsCQ("iss_num")%>" target="_blank"><%=rsCQ("iss_num")%>
509 
					<%End If%>
 511 
               <%End If%>
510
512 
 
511 
					</a>
 513 
               </a>
512 
				</td>
 514 
            </td>
513 
				<td class="form_item"><%=rsCQ("state")%></td>
 515 
            <td class="form_item"><%=rsCQ("state")%></td>
514 
	            <td class="form_item"><%=rsCQ("summary")%></td>
 516 
               <td class="form_item"><%=rsCQ("summary")%></td>
515 
	          </tr>
 517 
             </tr>
516 
			  <%rspCount = rspCount + 1
 518 
           <%rspCount = rspCount + 1
517 
			  	rsCQ.MoveNext
 519 
              rsCQ.MoveNext
518 
			  WEnd
 520 
           WEnd
519 
			  rsCQ.Close
 521 
           rsCQ.Close
520 
			  Set rsCQ = nothing%>
 522 
           Set rsCQ = nothing%>
521 
		  <%End If%>
 523 
        <%End If%>
522 
          <tr>
524 
          <tr>
523 
            <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 525 
            <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
524 
            <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
 526 
            <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
525 
				<%
 527 
            <%
526 
				If rspTotal > rspMax Then
 528 
            If rspTotal > rspMax Then
527 
					If CInt(rspPage) = CInt(rspTotalPages) Then
 529 
               If CInt(rspPage) = CInt(rspTotalPages) Then
528 
						Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
 530 
                  Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
529 
					Else
 531 
               Else
530 
						Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
 532 
                  Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
531 
					End If
 533 
               End If
532 
				Else
 534 
            Else
533 
					Response.write "Found "& rspTotal &" records"
 535 
               Response.write "Found "& rspTotal &" records"
534 
				End If
 536 
            End If
535 
				%>
 537 
            %>
536 
			</td>
 538 
         </td>
537 
          </tr>
 539 
          </tr>
538 
        </table>
 540 
        </table>
539 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 541 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
540 
          <tr>
 542 
          <tr>
541 
            <td align="center">
 543 
            <td align="center">
542 
			  <%If CInt(rspPage) > 1 Then%><a href="javascript:;" onClick="importform.rpg.value = parseInt(importform.rpg.value) - 1; alert(importform.rpg.value); importform.submit();" class="txt_linked">&lt;previous</a><%End If%>&nbsp;
 544 
           <%If CInt(rspPage) > 1 Then%><a href="javascript:;" onClick="importform.rpg.value = parseInt(importform.rpg.value) - 1; alert(importform.rpg.value); importform.submit();" class="txt_linked">&lt;previous</a><%End If%>&nbsp;
543 
              <%If CInt(rspPage) < CInt(rspTotalPages) Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) + 1; alert(importform.rpg.value); importform.btn.value='next';" class="txt_linked">next &gt;</a><%End If%></td>
 545 
              <%If CInt(rspPage) < CInt(rspTotalPages) Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) + 1; alert(importform.rpg.value); importform.btn.value='next';" class="txt_linked">next &gt;</a><%End If%></td>
544 
          </tr>
 546 
          </tr>
545 
        </table>
 547 
        </table>
546 
        <br>
 548 
        <br>
547 
      </td>
 549 
      </td>
548 
    </tr>
 550 
    </tr>
549 
    <tr>
551 
    <tr>
550 
      <td width="1%" height="1%" background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 552 
      <td width="1%" height="1%" background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
551 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 553 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
552 
    </tr>
 554 
    </tr>
553 
  </table>
 555 
  </table>
554 
<input name="rpg" type="hidden" value="<%=rspPage%>">
556 
<input name="rpg" type="hidden" value="<%=rspPage%>">
555 
<input name="skip_open" type="hidden" value="<%=parSkipOpen%>">
 557 
<input name="skip_open" type="hidden" value="<%=parSkipOpen%>">
556 
<input name="pv_id" type="hidden" value="<%=parPv_id%>">
 558 
<input name="pv_id" type="hidden" value="<%=parPv_id%>">
557 
<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
 559 
<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
558 
<input name="action" type="hidden" value="true">
 560 
<input name="action" type="hidden" value="true">
559 
</form>
 561 
</form>
Line 563... Line 565...
563 
</body>
 565 
</body>
564 
</html>
 566 
</html>
565 
 
 567 
 
566 
 
 568 
 
567 
<!-- DESTRUCTOR ------->
 569 
<!-- DESTRUCTOR ------->
568 
<!--#include file="common/destructor.asp"-->
 - 
 
569 

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

          

          

            -
            
 

            571