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>