Subversion Repositories DevTools

Rev

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

Rev 161 Rev 171
Line 27... Line 27...
27 
'------------ Variable Definition -------------
 27 
'------------ Variable Definition -------------
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 parFRpkey
32 
Dim rsCQ
 33 
Dim rsCQ
33 
Dim rspPage      ' current page number for multiple page results
 34 
Dim rspPage      ' current page number for multiple page results
34 
Dim rspTotal   ' total number of records
 35 
Dim rspTotal   ' total number of records
35 
Dim rspCount   ' Record counter
 36 
Dim rspCount   ' Record counter
36 
Dim rspTotalPages   ' Total number of pages required to display results
 37 
Dim rspTotalPages   ' Total number of pages required to display results
Line 67... Line 68...
67 
parCategMain = Request("categmain")
 68 
parCategMain = Request("categmain")
68 
parCategMinor = Request("categminor")
 69 
parCategMinor = Request("categminor")
69 
parSkipOpen = Request("skip_open")
 70 
parSkipOpen = Request("skip_open")
70 
parIStates = Request("istates")
 71 
parIStates = Request("istates")
71 
parTitle = Request("title")
 72 
parTitle = Request("title")
- 
 
 73 
parFRpkey = Request("FRpkey")
72 
 
 74 
 
73 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
 75 
Set rsCQ = Server.CreateObject("ADODB.Recordset")
74 
 
 76 
 
75 
imported = FALSE
 77 
imported = FALSE
76 
IsOptionUsed = FALSE
 78 
IsOptionUsed = FALSE
77 
'-- CONDITIONS --------------------------------
 79 
'-- CONDITIONS --------------------------------
78 
If rspPage = "" Then rspPage = 1
 80 
If rspPage = "" Then rspPage = 1
79 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
 81 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
80 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
 82 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
- 
 
 83 
 
- 
 
 84 
If (parFRpkey = "") Then
- 
 
 85 
  parFRpkey = GetDefaultProjectKey(Request("rtag_id"))
- 
 
 86 
  if parFRpkey="" OR IsNull(parFRpkey) Then parFRpkey = LENUM_ALL
- 
 
 87 
End If
- 
 
 88 
 
81 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
 89 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
82 
 
 90 
 
83 
If parFRiss_db = "" Then parFRiss_db = enumCLEARQUEST_DEVI_ID      ' Default
 91 
If parFRiss_db = "" Then parFRiss_db = enumCLEARQUEST_DEVI_ID      ' Default
84 
 
 92 
 
85 
If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then
 93 
If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then
Line 117... Line 125...
117 
   End If
 125 
   End If
118 
 
 126 
 
119 
   Set GetIStates = IStates
 127 
   Set GetIStates = IStates
120 
 
 128 
 
121 
End Function
 129 
End Function
- 
 
 130 
 
122 
'------------------------------------------------------------------------------------------------------------------------------------
 131 
'------------------------------------------------------------------------------------------------------------------------------------
123 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ )
 132 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ, apkey)
124 
   Dim SQLstr, issARR, iss_num, col_name, Title
 133 
   Dim SQLstr, issARR, iss_num, col_name, Title
125 
 
 134 
 
126 
 
 135 
 
127 
 
 136 
 
128 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 137 
   'If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
Line 146... Line 155...
146 
   '   "        CQ_VT5DM..admin.STATEDEF sd"&_
 155 
   '   "        CQ_VT5DM..admin.STATEDEF sd"&_
147 
   '   "  WHERE si.STATE = sd.ID "
 156 
   '   "  WHERE si.STATE = sd.ID "
148 
 
 157 
 
149 
      'SQLstr = "SELECT * FROM JIRA.jirauser.jiraissue"
 158 
      'SQLstr = "SELECT * FROM JIRA.jirauser.jiraissue"
150 
 
 159 
 
151 
   Dim rsProjId, pkey
 - 
 
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
 - 
 
154 
      pkey = "SLSIP"
 - 
 
155 
   Elseif rsProjId("proj_id") = 42 Then
 - 
 
156 
      pkey = "SFRM"
 - 
 
157 
   Elseif rsProjId("proj_id") = 621 Then
 - 
 
158 
      pkey = "COCT"
 - 
 
159 
   End If
 - 
 
160 
 
 - 
 
161 
      SQLstr = _
 160 
      SQLstr = _
162 
      "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 "&_
163 
      "FROM jiraissue I, project, issuestatus ISS "&_
 162 
      "FROM jiraissue I, project, issuestatus ISS "&_
164 
      "WHERE I.project=project.ID "&_
 163 
      "WHERE I.project=project.ID "
165 
      "AND project.pkey='"& pkey &"' "&_
 164 
      If ( apkey <> LENUM_ALL ) Then
166 
      "AND I.issuestatus = ISS.ID "
 165 
         SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "
167 
 
 - 
 
168 
 
 - 
 
169 
   'End If
 166 
      End If
170 
 
 - 
 
- 
 
 167 
      SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "
171 
 
 168 
 
172 
   '-- User filter --
 169 
   '-- User filter --
173 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 170 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
174 
      ' Add package Filter
 171 
      ' Add package Filter
175 
      If (parPackage <> "") Then
 172 
      If (parPackage <> "") Then
Line 401... Line 398...
401 
   Next
 398 
   Next
402 
 
 399 
 
403 
   objEH.CatchORA ( OraSession )
 400 
   objEH.CatchORA ( OraSession )
404 
End Sub
 401 
End Sub
405 
'------------------------------------------------------------------------------------------------------------------------------------
 402 
'------------------------------------------------------------------------------------------------------------------------------------
- 
 
 403 
Function GetDefaultProjectKey(artag_id)
- 
 
 404 
   Dim rsProjId
- 
 
 405 
   Set rsProjId = OraDatabase.DbCreateDynaset("SELECT PRJ.JIRA_KEY FROM RELEASE_TAGS RLT, PROJECTS PRJ WHERE RLT.RTAG_ID ="& artag_id &" AND RLT.PROJ_ID = PRJ.PROJ_ID", cint(0))
- 
 
 406 
   GetDefaultProjectKey = rsProjId("jira_key")
- 
 
 407 
   Set rsProjId = Nothing
- 
 
 408 
End Function
- 
 
 409 
'------------------------------------------------------------------------------------------------------------------------------------
406 
%>
 410 
%>
407 
<%
 411 
<%
408 
'Process submition
 412 
'Process submition
409 
If CBool(Request("action")) AND (Request("btn") = "Import")  AND objAccessControl.UserLogedIn Then
 413 
If CBool(Request("action")) AND (Request("btn") = "Import")  AND objAccessControl.UserLogedIn Then
410 
   Call Import_Issues ( parPv_id, parFRiss_db, parFRiss_id )
 414 
   Call Import_Issues ( parPv_id, parFRiss_db, parFRiss_id )
Line 413... Line 417...
413 
 
 417 
 
414 
End If
 418 
End If
415 
%>
 419 
%>
416 
<%
 420 
<%
417 
'-------------- Main Line ---------------
 421 
'-------------- Main Line ---------------
418 
retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ )
 - 
 
419 
 
 422 
 
- 
 
 423 
retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ, parFRpkey)
420 
 
 424 
 
421 
' total number of pages required
 425 
' total number of pages required
422 
rspTotalPages = rspTotal \ rspMax
 426 
rspTotalPages = rspTotal \ rspMax
423 
If (rspTotal Mod rspMax) > 0 Then rspTotalPages = rspTotalPages + 1
 427 
If (rspTotal Mod rspMax) > 0 Then rspTotalPages = rspTotalPages + 1
424 
%>
 428 
%>
Line 441... Line 445...
441 
        <tr>
 445 
        <tr>
442 
          <td align="left" class="wform_ttl">Issue&nbsp;Number</td>
 446 
          <td align="left" class="wform_ttl">Issue&nbsp;Number</td>
443 
          <td nowrap><input name="FRiss_num" type="text" class="form_item" id="FRiss_num" value="<%=parFRiss_num%>" size="30" > <span class="form_wtxt_link">Example: ALL, 123, DEVI-123 </span></td>
 447 
          <td nowrap><input name="FRiss_num" type="text" class="form_item" id="FRiss_num" value="<%=parFRiss_num%>" size="30" > <span class="form_wtxt_link">Example: ALL, 123, DEVI-123 </span></td>
444 
        </tr>
 448 
        </tr>
445 
        <tr>
 449 
        <tr>
- 
 
 450 
          <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>
- 
 
 452 
        </tr>
- 
 
 453 
        <tr>
446 
          <td align="left" class="wform_ttl">Database</td>
 454 
          <td align="left" class="wform_ttl">Database</td>
447 
          <td>JIRA</td>
 455 
          <td>JIRA</td>
448 
        </tr>
 456 
        </tr>
449 
 
 457 
 
450 
      </table>
 458 
      </table>
Line 541... Line 549...
541 
          </tr>
 549 
          </tr>
542 
        </table>
 550 
        </table>
543 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 551 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
544 
          <tr>
 552 
          <tr>
545 
            <td align="center">
 553 
            <td align="center">
546 
           <%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;
 554 
           <%If CInt(rspPage) > 1 Then%><a href="javascript:;" onClick="importform.rpg.value = parseInt(importform.rpg.value) - 1; importform.submit();" class="txt_linked">&lt;previous</a><%End If%>&nbsp;
547 
              <%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>
 555 
              <%If CInt(rspPage) < CInt(rspTotalPages) Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) + 1; importform.btn.value='next';" class="txt_linked">next &gt;</a><%End If%></td>
548 
          </tr>
 556 
          </tr>
549 
        </table>
 557 
        </table>
550 
        <br>
 558 
        <br>
551 
      </td>
 559 
      </td>
552 
    </tr>
 560 
    </tr>