Subversion Repositories DevTools

Rev

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

Rev 1338 Rev 3974
Line 42... Line 42...
42 
Dim parPackage
 42 
Dim parPackage
43 
Dim parProject
 43 
Dim parProject
44 
Dim parProduct
 44 
Dim parProduct
45 
Dim parSkipOpen
 45 
Dim parSkipOpen
46 
Dim disabled
 46 
Dim disabled
47 
Dim IsOptionUsed
 - 
 
48 
Dim parCategMain
 47 
Dim parCategMain
49 
Dim parCategMinor
 48 
Dim parCategMinor
50 
Dim parIStates
 49 
Dim parIStates
51 
Dim parTitle
 50 
Dim parTitle
52 
Dim oIStates
 51 
Dim oIStates
Line 73... Line 72...
73 
parFRpkey = Request("FRpkey")
 72 
parFRpkey = Request("FRpkey")
74 
 
 73 
 
75 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
 74 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
76 
 
 75 
 
77 
imported = FALSE
 76 
imported = FALSE
78 
IsOptionUsed = FALSE
 - 
 
79 
'-- CONDITIONS --------------------------------
 77 
'-- CONDITIONS --------------------------------
80 
If rspPage = "" Then rspPage = 1
 78 
If rspPage = "" Then rspPage = 1
81 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
 79 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
82 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
 80 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
83 
 
 81 
 
Line 86... Line 84...
86 
  if parFRpkey="" OR IsNull(parFRpkey) Then parFRpkey = LENUM_ALL
 84 
  if parFRpkey="" OR IsNull(parFRpkey) Then parFRpkey = LENUM_ALL
87 
End If
 85 
End If
88 
 
 86 
 
89 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
 87 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
90 
 
 88 
 
91 
If parFRiss_db = "" Then parFRiss_db = enumCLEARQUEST_DEVI_ID      ' Default
 - 
 
92 
 
 - 
 
93 
If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then
 - 
 
94 
   If (parPackage <> "") OR  (parProject <> "")  OR  (parProduct <> "") OR (parTitle <> LCONST_STAR) Then IsOptionUsed = TRUE
 - 
 
95 
Else
 - 
 
96 
   If (parCategMain <> "") OR  (parCategMinor <> "") Then IsOptionUsed = TRUE
 - 
 
97 
End If
 - 
 
98 
 
 - 
 
99 
' Get DEVI issue states checked
 89 
' Get DEVI issue states checked
100 
Set oIStates = GetIStates()
 90 
Set oIStates = GetIStates()
101 
 
 91 
 
102 
 
 92 
 
103 
'----------------------------------------------
 93 
'----------------------------------------------
Line 130... Line 120...
130 
 
 120 
 
131 
'------------------------------------------------------------------------------------------------------------------------------------
 121 
'------------------------------------------------------------------------------------------------------------------------------------
132 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ, apkey)
 122 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ, apkey)
133 
   Dim SQLstr, issARR, iss_num, col_name, Title
 123 
   Dim SQLstr, issARR, iss_num, col_name, Title
134 
 
 124 
 
135 
 
 - 
 
136 
 
 - 
 
137 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 - 
 
138 
   '   SQLstr = _
 - 
 
139 
   '   " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 - 
 
140 
   '   "   FROM CQ_DEVI.admin.software_issue si,"&_
 - 
 
141 
   '   "        CQ_DEVI.admin.STATEDEF sd"&_
 - 
 
142 
   '   "  WHERE si.STATE = sd.ID "
 - 
 
143 
 
 - 
 
144 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 - 
 
145 
   '   SQLstr = _
 - 
 
146 
   '   " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
 - 
 
147 
   '   "   FROM CQ_TDSE.admin.request si, "&_
 - 
 
148 
   '   "        CQ_TDSE.admin.STATEDEF sd"&_
 - 
 
149 
   '   "  WHERE si.STATE = sd.ID "
 - 
 
150 
 
 - 
 
151 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 - 
 
152 
   '   SQLstr = _
 - 
 
153 
   '   " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 - 
 
154 
   '   "   FROM CQ_VT5DM..admin.software_issue si,"&_
 - 
 
155 
   '   "        CQ_VT5DM..admin.STATEDEF sd"&_
 - 
 
156 
   '   "  WHERE si.STATE = sd.ID "
 - 
 
157 
 
 - 
 
158 
      'SQLstr = "SELECT * FROM JIRA.jirauser.jiraissue"
 - 
 
159 
 
 - 
 
160 
      SQLstr = _
 125 
      SQLstr = _
161 
      "SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
 126 
      "SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
162 
      "FROM jiraissue I, project, issuestatus ISS "&_
 127 
      "FROM jiraissue I, project, issuestatus ISS "&_
163 
      "WHERE I.project=project.ID "
 128 
      "WHERE I.project=project.ID "
164
129
Line 166... Line 131...
166 
      If ( apkey <> LENUM_ALL ) Then
 131 
      If ( apkey <> LENUM_ALL ) Then
167 
         SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "
 132 
         SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "
168 
      End If
 133 
      End If
169 
      SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "
 134 
      SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "
170 
 
 135 
 
171 
   '-- User filter --
 - 
 
172 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 - 
 
173 
      ' Add package Filter
 - 
 
174 
      If (parPackage <> "") Then
 - 
 
175 
         SQLstr = SQLstr &" AND  si.package_ref = '"& Replace( parPackage, "'","''" ) &"'"
 - 
 
176 
      End If
 - 
 
177 
 
 - 
 
178 
      ' Add project Filter
 - 
 
179 
      If (parProject <> "") Then
 - 
 
180 
         SQLstr = SQLstr &" AND  si.project = '"& Replace( parProject, "'","''" ) &"'"
 - 
 
181 
      End If
 - 
 
182 
 
 - 
 
183 
      ' Add product Filter
 - 
 
184 
      If (parProduct <> "") Then
 - 
 
185 
         SQLstr = SQLstr &" AND  si.product = '"& Replace( parProduct, "'","''" ) &"'"
 - 
 
186 
      End If
 - 
 
187 
 
 - 
 
188 
      ' Add Issue State Filter
 - 
 
189 
      If (parIStates <> "") Then
 - 
 
190 
         SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
 - 
 
191 
      End If
 - 
 
192 
 
 - 
 
193 
      ' Add Title keyword search
 - 
 
194 
      If ( parTitle <> LCONST_STAR ) Then
 - 
 
195 
         Title = Replace( parTitle, "'", "''" )
 - 
 
196 
         Title = Replace( Title, "*", "%" )
 - 
 
197 
         SQLstr = SQLstr &" AND  si.headline LIKE ( '"& Title &"' )"
 - 
 
198 
      End If
 - 
 
199 
 
 - 
 
200 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 - 
 
201 
 
 - 
 
202 
      ' Add project Filter
 - 
 
203 
      If (parProject <> "") Then
 - 
 
204 
         SQLstr = SQLstr &" AND  si.category_main = '"& Replace( parCategMain, "'","''" ) &"'"
 - 
 
205 
      End If
 - 
 
206 
 
 - 
 
207 
      ' Add product Filter
 - 
 
208 
      If (parProduct <> "") Then
 - 
 
209 
         SQLstr = SQLstr &" AND  si.category_minor = '"& Replace( parCategMinor, "'","''" ) &"'"
 - 
 
210 
      End If
 - 
 
211 
 
 - 
 
212 
   End If
 - 
 
213 
 
 - 
 
214 
 
 - 
 
215 
   '-- Keyword search --
 136 
   '-- Keyword search --
216 
   If ( NNiss_num <> LENUM_ALL ) Then
 137 
   If ( NNiss_num <> LENUM_ALL ) Then
217 
      issARR = Split( Replace( NNiss_num, " ", ""), "," )
 138 
      issARR = Split( Replace( NNiss_num, " ", ""), "," )
218 
 
 139 
 
219 
      'If ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID ) Then
 - 
 
220 
      '   col_name = "job_number"
 - 
 
221 
      'Else
 - 
 
222 
         col_name = "I.pkey"
 140 
      col_name = "I.pkey"
223 
      'End If
 - 
 
224 
      SQLstr = SQLstr & " AND ( "
 141 
      SQLstr = SQLstr & " AND ( "
225 
      For Each iss_num IN issARR
 142 
      For Each iss_num IN issARR
226 
         SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
 143 
         SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
227 
      Next
 144 
      Next
228 
 
 145 
 
Line 233... Line 150...
233 
   End If
 150 
   End If
234 
 
 151 
 
235 
   '-- Get record count ---  MAYBE MORE SPEED HERE?!??!
 152 
   '-- Get record count ---  MAYBE MORE SPEED HERE?!??!
236 
   NNrecordCount = Get_Record_Count( SQLstr )
 153 
   NNrecordCount = Get_Record_Count( SQLstr )
237 
 
 154 
 
238 
 
 - 
 
239 
   '-- Order by --
 - 
 
240 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 - 
 
241 
   '   SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
 - 
 
242 
 
 - 
 
243 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 - 
 
244 
   '   SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
 - 
 
245 
 
 - 
 
246 
   'End If
 - 
 
247 
 
 - 
 
248 
	DIM objConnection
 155 
	DIM objConnection
249
156
250 
 
 - 
 
251 
	'ADDED BY RICHO 6th August 2012 - Increase Speed
 157 
	'ADDED BY RICHO 6th August 2012 - Increase Speed
252 
	Set objConnection = Server.CreateObject ("ADODB.Connection")
 158 
	Set objConnection = Server.CreateObject ("ADODB.Connection")
253 
	objConnection.Open JIRA_conn
 159 
	objConnection.Open JIRA_conn
254
160
255 
	On Error Resume Next
 161 
	On Error Resume Next
- 
 
 162 
'Response.Write(SQLstr)
- 
 
 163 
 
256 
	OOrsCQ.Open SQLstr, objConnection
 164 
	OOrsCQ.Open SQLstr, objConnection
257 
	'***********************************************
 165 
	'***********************************************
258
166
259 
   'OOrsCQ.ActiveConnection = JIRA_conn
 167 
   'OOrsCQ.ActiveConnection = JIRA_conn
260 
   'OOrsCQ.Source = SQLstr
 168 
   'OOrsCQ.Source = SQLstr
Line 302... Line 210...
302 
   "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
 210 
   "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
303 
   " FROM jiraissue I, issuestatus ISS "&_
 211 
   " FROM jiraissue I, issuestatus ISS "&_
304 
   " WHERE I.pkey IN ('"& sIssIdList &"') "&_
 212 
   " WHERE I.pkey IN ('"& sIssIdList &"') "&_
305 
   "AND I.issuestatus = ISS.ID "
 213 
   "AND I.issuestatus = ISS.ID "
306 
 
 214 
 
307 
   'If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 - 
 
308 
   '   SQLstr = _
 - 
 
309 
   '   " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 - 
 
310 
   '   "  FROM CQ_DEVI.admin.software_issue si,"&_
 - 
 
311 
   '   "       CQ_DEVI.admin.statedef sd"&_
 - 
 
312 
   '   " WHERE si.STATE = sd.ID"&_
 - 
 
313 
   '   "   AND si.dbid IN ("& sIssIdList &")"
 - 
 
314 
 
 - 
 
315 
   'ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
 - 
 
316 
   '   SQLstr = _
 - 
 
317 
   '   " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 - 
 
318 
   '   "  FROM CQ_TDSE.admin.request si,"&_
 - 
 
319 
   '   "       CQ_TDSE.admin.statedef sd"&_
 - 
 
320 
   '   " WHERE si.STATE = sd.ID"&_
 - 
 
321 
   '   "   AND si.dbid IN ("& sIssIdList &")"
 - 
 
322 
   'ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
 - 
 
323 
   '   SQLstr = _
 - 
 
324 
   '   " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 - 
 
325 
   '   "  FROM CQ_VT5DM..admin.software_issue si,"&_
 - 
 
326 
   '   "       CQ_VT5DM..admin.statedef sd"&_
 - 
 
327 
   '   " WHERE si.STATE = sd.ID"&_
 - 
 
328 
   '   "   AND si.dbid IN ("& sIssIdList &")"
 - 
 
329 
   '
 - 
 
330 
 
 - 
 
331 
   'End If
 - 
 
332 
 
 - 
 
333 
   rsTemp.Source = SQLstr
 215 
   rsTemp.Source = SQLstr
334 
   rsTemp.CursorType = 0
 216 
   rsTemp.CursorType = 0
335 
   rsTemp.CursorLocation = 2
 217 
   rsTemp.CursorLocation = 2
336 
   rsTemp.LockType = 3
 218 
   rsTemp.LockType = 3
337 
   rsTemp.Open()
 219 
   rsTemp.Open()
Line 345... Line 227...
345 
 
 227 
 
346 
   rsTemp.Close
 228 
   rsTemp.Close
347 
   Set rsTemp = nothing
 229 
   Set rsTemp = nothing
348 
End Sub
 230 
End Sub
349 
'------------------------------------------------------------------------------------------------------------------------------------
 231 
'------------------------------------------------------------------------------------------------------------------------------------
350 
Function Is_Pkg_Official ( nPv_id )
 - 
 
351 
   Dim rsTemp, Query_String
 - 
 
352 
   Query_String = _
 - 
 
353 
   " SELECT dlocked"&_
 - 
 
354 
   "  FROM package_versions "&_
 - 
 
355 
   " WHERE pv_id = "& nPv_id
 - 
 
356 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 - 
 
357 
   If rsTemp("dlocked") = "Y" Then
 - 
 
358 
      Is_Pkg_Official = TRUE
 - 
 
359 
   Else
 - 
 
360 
      Is_Pkg_Official = FALSE
 - 
 
361 
   End If
 - 
 
362 
   rsTemp.Close
 - 
 
363 
   Set rsTemp = nothing
 - 
 
364 
End Function
 - 
 
365 
'------------------------------------------------------------------------------------------------------------------------------------
 - 
 
366 
Function Set_Issue_State ( sCQState )
 - 
 
367 
   If parSkipOpen <> "" Then
 - 
 
368 
      Set_Issue_State = enumISSUES_STATE_FIXED
 - 
 
369 
 
 - 
 
370 
   Else
 - 
 
371 
      Set_Issue_State = enumISSUES_STATE_IMPORTED
 - 
 
372 
 
 - 
 
373 
   End If
 - 
 
374 
End Function
 - 
 
375 
'------------------------------------------------------------------------------------------------------------------------------------
 - 
 
376 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
 232 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
377 
   Dim issArr, iss_id, oCQissState, iss_num, iss_state, iss_state_human_readable
 233 
   Dim issArr, iss_id, oCQissState, iss_num, iss_state, iss_state_human_readable
378 
   If NNiss_id_list = "" Then Exit Sub
 234 
   If NNiss_id_list = "" Then Exit Sub
379 
   Set oCQissState = CreateObject("Scripting.Dictionary")
 235 
   Set oCQissState = CreateObject("Scripting.Dictionary")
380 
 
 236 
 
Line 465... Line 321...
465 
          <td><span class="form_item"><%=JIRA_DATABASE%>: <%=JIRA_URL%></span></td>
 321 
          <td><span class="form_item"><%=JIRA_DATABASE%>: <%=JIRA_URL%></span></td>
466 
        </tr>
 322 
        </tr>
467 
 
 323 
 
468 
      </table>
 324 
      </table>
469 
 
 325 
 
470 
<DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 - 
 
471 
        <DIV id="DIVOPTIONSDEVI" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>        </DIV>
 - 
 
472 
 
 - 
 
473 
 
 - 
 
474 
 
 - 
 
475 
      <DIV id="DIVOPTIONSTDSE" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>        </DIV>
 - 
 
476 
 
 - 
 
477 
 
 - 
 
478 
</DIV>
 - 
 
479 
 
 - 
 
480 
        <table width="400" border="0" cellspacing="5" cellpadding="0">
 326 
        <table width="400" border="0" cellspacing="5" cellpadding="0">
481 
          <tr background="images/lbox_bg_blue.gif">
 327 
          <tr background="images/lbox_bg_blue.gif">
482 
            <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
 328 
            <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
483 
          </tr>
 329 
          </tr>
484 
          <tr>
 330 
          <tr>