Subversion Repositories DevTools

Rev

Rev 1281 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 1281 Rev 1338
Line 50... Line 50...
50 
Dim parIStates
 50 
Dim parIStates
51 
Dim parTitle
 51 
Dim parTitle
52 
Dim oIStates
 52 
Dim oIStates
53 
Dim checked
 53 
Dim checked
54 
'------------ Constants Declaration -----------
 54 
'------------ Constants Declaration -----------
55 
Const rspMax = 100   ' maximum number of records displayed
 55 
Const rspMax = 15   ' maximum number of records displayed
56 
Const LENUM_ALL = "ALL"
 56 
Const LENUM_ALL = "ALL"
57 
Const LCONST_STAR = "*"
 57 
Const LCONST_STAR = "*"
58 
'------------ Variable Init -------------------
 58 
'------------ Variable Init -------------------
59 
parPv_id = Request("pv_id")
 59 
parPv_id = Request("pv_id")
60 
parRtag_id = Request("rtag_id")
 60 
parRtag_id = Request("rtag_id")
Line 159... Line 159...
159 
 
 159 
 
160 
      SQLstr = _
 160 
      SQLstr = _
161 
      "SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
 161 
      "SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
162 
      "FROM jiraissue I, project, issuestatus ISS "&_
 162 
      "FROM jiraissue I, project, issuestatus ISS "&_
163 
      "WHERE I.project=project.ID "
 163 
      "WHERE I.project=project.ID "
- 
 
 164
- 
 
 165
164 
      If ( apkey <> LENUM_ALL ) Then
 166 
      If ( apkey <> LENUM_ALL ) Then
165 
         SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "
 167 
         SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "
166 
      End If
 168 
      End If
167 
      SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "
 169 
      SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "
168 
 
 170 
 
Line 228... Line 230...
228 
 
 230 
 
229 
      SQLstr = SQLstr & "     ) "
 231 
      SQLstr = SQLstr & "     ) "
230 
 
 232 
 
231 
   End If
 233 
   End If
232 
 
 234 
 
233 
   '-- Get record count ---
 235 
   '-- Get record count ---  MAYBE MORE SPEED HERE?!??!
234 
   NNrecordCount = Get_Record_Count( SQLstr )
 236 
   NNrecordCount = Get_Record_Count( SQLstr )
235 
 
 237 
 
236 
 
 238 
 
237 
   '-- Order by --
 239 
   '-- Order by --
238 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 240 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
Line 241... Line 243...
241 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 243 
   'ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
242 
   '   SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
 244 
   '   SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
243 
 
 245 
 
244 
   'End If
 246 
   'End If
245 
 
 247 
 
- 
 
 248 
	DIM objConnection
- 
 
 249
246 
 
 250 
 
- 
 
 251 
	'ADDED BY RICHO 6th August 2012 - Increase Speed
- 
 
 252 
	Set objConnection = Server.CreateObject ("ADODB.Connection")
- 
 
 253 
	objConnection.Open JIRA_conn
247 
 
 254
- 
 
 255 
	On Error Resume Next
- 
 
 256 
	OOrsCQ.Open SQLstr, objConnection
- 
 
 257 
	'***********************************************
- 
 
 258
248 
   OOrsCQ.ActiveConnection = JIRA_conn
 259 
   'OOrsCQ.ActiveConnection = JIRA_conn
249 
   OOrsCQ.Source = SQLstr
 260 
   'OOrsCQ.Source = SQLstr
250 
   OOrsCQ.CursorType = 0
 261 
   'OOrsCQ.CursorType = 0
251 
   OOrsCQ.CursorLocation = 2
 262 
   'OOrsCQ.CursorLocation = 2
252 
   OOrsCQ.LockType = 3
 263 
   'OOrsCQ.LockType = 3
253 
 
 - 
 
254 
   On Error Resume Next
 264 
   'On Error Resume Next
255 
   OOrsCQ.Open()
 265 
   'OOrsCQ.Open()
256 
 
 266 
 
257 
   Get_Issues = Err.Number
 267 
   Get_Issues = Err.Number
258 
 
 268 
 
259 
End Function
 269 
End Function
260 
'------------------------------------------------------------------------------------------------------------------------------------
 270 
'------------------------------------------------------------------------------------------------------------------------------------
Line 450... Line 460...
450 
          <td align="left" class="wform_ttl">Project&nbsp;Key</td>
 460 
          <td align="left" class="wform_ttl">Project&nbsp;Key</td>
451 
          <td nowrap><input name="FRpkey" type="text" class="form_item" id="FRpkey" value="<%=parFRpkey%>" size="30" > <span class="form_wtxt_link">Example: ALL, SLSCM </span></td>
 461 
          <td nowrap><input name="FRpkey" type="text" class="form_item" id="FRpkey" value="<%=parFRpkey%>" size="30" > <span class="form_wtxt_link">Example: ALL, SLSCM </span></td>
452 
        </tr>
 462 
        </tr>
453 
        <tr>
 463 
        <tr>
454 
          <td align="left" class="wform_ttl">Database</td>
 464 
          <td align="left" class="wform_ttl">Database</td>
455 
          <td>JIRA</td>
 465 
          <td><span class="form_item"><%=JIRA_DATABASE%>: <%=JIRA_URL%></span></td>
456 
        </tr>
 466 
        </tr>
457 
 
 467 
 
458 
      </table>
 468 
      </table>
459 
 
 469 
 
460 
<DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 470 
<DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
Line 515... Line 525...
515 
               <td nowrap class="form_item">
 525 
               <td nowrap class="form_item">
516 
 
 526 
 
517 
               <%If parFRiss_num <> LENUM_ALL Then%>
 527 
               <%If parFRiss_num <> LENUM_ALL Then%>
518 
               <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
 528 
               <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
519 
               <%Else%>
 529 
               <%Else%>
520 
               <a href="http://auperajir02:8080/browse/<%=rsCQ("iss_num")%>" target="_blank"><%=rsCQ("iss_num")%>
 530 
               <a href="<%=JIRA_URL%>/browse/<%=rsCQ("iss_num")%>" target="_blank"><%=rsCQ("iss_num")%>
521 
               <%End If%>
 531 
               <%End If%>
522 
 
 532 
 
523 
               </a>
 533 
               </a>
524 
            </td>
 534 
            </td>
525 
            <td class="form_item"><%=rsCQ("state")%></td>
 535 
            <td class="form_item"><%=rsCQ("state")%></td>