WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/_wform_import_jira_issues.asp

 <!--#include file="_access_control_general.asp"-->
 <!--#include file="_access_control_project.asp"-->
 <%
 '------------ Variable Definition -------------
 Dim parPv_id
-Dim parFRiss_db
 Dim parFRiss_id
 Dim parFRiss_num
 Dim parFRpkey
 Dim rsCQ
-Dim rspPage      ' current page number for multiple page results
+Dim rspPage         ' current page number for multiple page results
-Dim rspTotal   ' total number of records
+Dim rspTotal        ' total number of records
-Dim rspCount   ' Record counter
+Dim rspCount        ' Record counter
 Dim rspTotalPages   ' Total number of pages required to display results
 Dim imported
 Dim retVal
-Dim rsCQTemp
 Dim SQLstr
-Dim parPackage
-Dim parProject
-Dim parProduct
-Dim parSkipOpen
-Dim disabled
-Dim parCategMain
-Dim parCategMinor
 Dim parIStates
-Dim parTitle
-Dim oIStates
-Dim checked
 '------------ Constants Declaration -----------
 Const rspMax = 15   ' maximum number of records displayed
 Const LENUM_ALL = "ALL"
-Const LCONST_STAR = "*"
 '------------ Variable Init -------------------
 parPv_id = Request("pv_id")
 parRtag_id = Request("rtag_id")
 rspPage = Request("rpg")
-parFRiss_db = Request("FRiss_db")
 parFRiss_id = Request("FRiss_id")
 parFRiss_num = Request("FRiss_num")
-parPackage = Request("package")
-parProject = Request("project")
-parProduct = Request("product")
-parCategMain = Request("categmain")
-parCategMinor = Request("categminor")
-parSkipOpen = Request("skip_open")
 parIStates = Request("istates")
-parTitle = Request("title")
 parFRpkey = Request("FRpkey")
 Set rsCQ = Server.CreateObject("ADODB.Recordset")
 imported = FALSE
 If (parFRpkey = "") Then
   parFRpkey = GetDefaultProjectKey(Request("rtag_id"))
   if parFRpkey="" OR IsNull(parFRpkey) Then parFRpkey = LENUM_ALL
 End If
-If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
-' Get DEVI issue states checked
-Set oIStates = GetIStates()
 '----------------------------------------------
 'Response.write "btn="& Request("btn") & "rspPage=" &rspPage&"<br>"
 'Response.write "parPackage="& parPackage &", parProject="& parProject &", parProduct="& parProduct &", parSkipOpen="& parSkipOpen &"<br>"
-'Response.write "parPv_id="& parPv_id &", parRtag_id="& parRtag_id &", rspPage="& rspPage &", parFRiss_db="& parFRiss_db &", parFRiss_id="& parFRiss_id &", parFRiss_num="& parFRiss_num
+'Response.write "parPv_id="& parPv_id &", parRtag_id="& parRtag_id &", rspPage="& rspPage &", parFRiss_id="& parFRiss_id &", parFRiss_num="& parFRiss_num
 'Response.write "parIStates="& parIStates &", parSkipOpen="& parSkipOpen
 %>
 <%
 '------------------------------------------------------------------------------------------------------------------------------------
-Function GetIStates()
-   Dim IStates, aStates, stateId
-   Set IStates = CreateObject("Scripting.Dictionary")
-   If parIStates = "" Then
-      IStates.Item ("ALL") = "checked"
-   Else
-      aStates = Split( Replace( parIStates, " ", "" ), ",")
-      For Each stateId In aStates
-         IStates.Item (CStr(stateId)) = "checked"
-      Next
-   End If
-   Set GetIStates = IStates
-End Function
-'------------------------------------------------------------------------------------------------------------------------------------
-Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ, apkey)
+Function Get_Issues ( NNiss_num, NNrecordCount, OOrsCQ, apkey)
    Dim SQLstr, issARR, iss_num, col_name, Title
       SQLstr = _
       "SELECT project.pkey as project, I.issuenum AS iss_num, I.summary as summary, ISS.pname AS state "&_
       "FROM jiraissue I, project, issuestatus ISS "&_
    rsTemp.Close
    Set rsTemp = nothing
 End Function
 '------------------------------------------------------------------------------------------------------------------------------------
-Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
+Sub Import_Issues ( NNpv_id, NNiss_id_list )
    Dim issArr , iss_id
    If NNiss_id_list = "" Then Exit Sub
    issArr = Split ( NNiss_id_list, ",")
    'Response.Write("Import_Issues" & NNiss_id_list)
 '------------------------------------------------------------------------------------------------------------------------------------
 %>
 <%
 'Process submition
 If CBool(Request("action")) AND (Request("btn") = "Import")  AND objAccessControl.UserLogedIn Then
-   Call Import_Issues ( parPv_id, parFRiss_db, parFRiss_id )
+   Call Import_Issues ( parPv_id, parFRiss_id )
    imported = TRUE
    Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
 End If
 %>
 <%
 '-------------- Main Line ---------------
-retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ, parFRpkey)
+retVal = Get_Issues ( parFRiss_num, rspTotal, rsCQ, parFRpkey)
 ' total number of pages required
 rspTotalPages = rspTotal \ rspMax
 If (rspTotal Mod rspMax) > 0 Then rspTotalPages = rspTotalPages + 1
 %>
 <script language="JavaScript" src="images/common.js"></script>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 <%If retVal = 0 Then%>
 <form name="importform" method="post" action="<%=scriptName%>">
-  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
+    <table width="100%" height="100%" border="0" cellspacing="0" cellpadding="2">
+    <!-- Form Body -->
-    <tr>
+    <tr height="1%">
-      <td height="1%" background="images/bg_admin_dark.gif"><img src="images/spacer.gif" width="10" height="40"></td>
+      <td nowrap class="wform_ttl" background="images/bg_admin_dark.gif">
-      <td nowrap colspan="3" class="wform_ttl" background="images/bg_admin_dark.gif"><table width="100" border="0" cellspacing="5" cellpadding="0">
+        <table border="0" cellspacing="5" cellpadding="0">
-        <tr>
+            <tr>
-          <td align="left" class="wform_ttl">Issue&nbsp;Number</td>
+              <td align="left" class="wform_ttl">Issue&nbsp;Number</td>
-          <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, or a list</span></td>
+              <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, or a list</span></td>
-        </tr>
+            </tr>
-        <tr>
+            <tr>
-          <td align="left" class="wform_ttl">Project&nbsp;Key</td>
+              <td align="left" class="wform_ttl">Project&nbsp;Key</td>
-          <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>
+              <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>
-        </tr>
+            </tr>
-        <tr>
+            <tr>
-          <td align="left" class="wform_ttl">Database</td>
+              <td align="left" class="wform_ttl">Database</td>
-          <td><span class="form_item"><%=JIRA_DATABASE%>: <%=JIRA_URL%></span></td>
+              <td><span class="form_item"><%=JIRA_DATABASE%>: <%=JIRA_URL%></span></td>
-        </tr>
+            </tr>
-      </table>
+        </table>
+      </tr>
+    <!-- Find Button -->
+    <tr height="1%">
+        <td background="images/bg_admin_dark.gif">
-        <table width="400" border="0" cellspacing="5" cellpadding="0">
+        <table width="100%" border="0" cellspacing="5" cellpadding="0">
-          <tr background="images/lbox_bg_blue.gif">
+            <tr background="images/lbox_bg_blue.gif">
             <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
           </tr>
           <tr>
             <td width="1">&nbsp;</td>
             <td width="100%"><input type="submit" name="btn" value="Find &raquo;" class="form_btn_comp"></td>
           </tr>
         </table></td>
-    </tr>
+        </tr>
-    <tr>
-      <td background="images/lbox_bg_blue.gif" width="1%" height="1%">&nbsp;</td>
-      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;</td>
-      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
-       <input type="submit" name="btn" value="Import" class="form_btn_comp">
+    <!-- Import Close Button -->
-        <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
-      </td>
+    <tr height="1%">
-      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
+        <td background="images/lbox_bg_blue.gif" >
-        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
-    </tr>
-    <tr>
-      <td height="100%" width="1%">&nbsp;</td>
-      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
-       <%If imported Then%>
-         <%Call DisplayInfo ( "ISSUES_IMPORTED", "300" )%>
-      <%End If%>
-        <table width="100%" border="0" cellspacing="1" cellpadding="2">
+        <table width="100%" border="0" cellspacing="0" cellpadding="0">
-          <tr>
+            <tr>
-            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
-            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Key</td>
-         <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
-            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
-          </tr>
-        <%
-        rspCount = 0
-         If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
-           rsCQ.Move( rspMax * (rspPage - 1))
-           %>
-           <%
-           while ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
-               dim jiraIssue, jiraText
-               jiraIssue = rsCQ("project") & "-" & rsCQ("iss_num")
-               jiraText = jiraIssue
+            <td align="right">
-           %>
-             <tr>
-               <td><input type="checkbox" name="FRiss_id" value='<%=jiraIssue%>'></td>
+            <input type="submit" name="btn" value="Import" class="form_btn_comp">
-               <td nowrap class="form_item">
-               <%
-               If parFRiss_num <> LENUM_ALL and parFRpkey = LENUM_ALL Then
-                    jiraText = Highlight_Substring( jiraIssue, parFRiss_num )
-               End If
-               %>
-               <a href="<%=JIRA_URL%>/browse/<%=jiraIssue%>" target="_blank"><%=jiraText%></a>
+            <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
             </td>
-            <td class="form_item"><%=rsCQ("state")%></td>
-               <td class="form_item"><%=rsCQ("summary")%></td>
-             </tr>
-           <%rspCount = rspCount + 1
-              rsCQ.MoveNext
-           WEnd
-           rsCQ.Close
-           Set rsCQ = nothing%>
-        <%End If%>
-          <tr>
-            <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
-            <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
-            <%
-            If rspTotal > rspMax Then
-               If CInt(rspPage) = CInt(rspTotalPages) Then
-                  Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
-               Else
-                  Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
-               End If
-            Else
-               Response.write "Found "& rspTotal &" records"
-            End If
-            %>
-         </td>
-          </tr>
         </table>
+        </tr>
+    <!-- Post Import Message Area -->
+    <tr height="1%">
+        <td>
+            <%If imported Then%>
+                <%Call DisplayInfo ( "ISSUES_IMPORTED", "300" )%>
+            <%End If%>
+        </td>
+        </tr>
+    <!-- Table of issues wrapper -->
+    <tr height="1%">
+        <td>
-        <table width="100%" border="0" cellspacing="1" cellpadding="2">
+            <table width="100%" border="0" cellspacing="1" cellpadding="2">
+                <tr>
+                    <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
+                    <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Key</td>
+                    <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
+                    <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
+                    </tr>
+                    <%rspCount = 0
+                     If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
+                       rsCQ.Move( rspMax * (rspPage - 1))
+                       while ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
+                           dim jiraIssue, jiraText
+                           jiraIssue = rsCQ("project") & "-" & rsCQ("iss_num")
+                           jiraText = jiraIssue
+                   %>
+                <tr>
+                    <td><input type="checkbox" name="FRiss_id" value='<%=jiraIssue%>'></td>
+                    <td nowrap class="form_item">
+                    <%If parFRiss_num <> LENUM_ALL and parFRpkey = LENUM_ALL Then
+                        jiraText = Highlight_Substring( jiraIssue, parFRiss_num )
+                    End If%>
+                    <a href="<%=JIRA_URL%>/browse/<%=jiraIssue%>" target="_blank"><%=jiraText%></a>
+                    </td>
+                    <td class="form_item"><%=rsCQ("state")%></td>
+                    <td class="form_item"><%=rsCQ("summary")%></td>
+                    </tr>
+                    <%rspCount = rspCount + 1
+                      rsCQ.MoveNext
+                      WEnd
+                      rsCQ.Close
+                      Set rsCQ = nothing%>
+                    <%End If%>
+                <tr>
+                <!-- Number of issues found -->
+                    <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
+                    <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
+                    <%If rspTotal > rspMax Then
+                         If CInt(rspPage) = CInt(rspTotalPages) Then
+                            Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
+                         Else
+                            Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
+                         End If
+                      Else
+                         Response.write "Found "& rspTotal &" records"
+                      End If
+                   %>
+                   </td>
+            </table>
+        <!-- Next and Previous Buttons -->
+        <tr height="90%" valign="bottom">
-          <tr>
+            <td>
+            <table width="100%" border="0" cellspacing="1" cellpadding="2">
+              <tr>
-            <td align="center">
+                <td align="center">
-           <%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;
+               <%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;
-              <%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>
+                  <%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>
-          </tr>
+              </tr>
-        </table>
+            </table>
-        <br>
+            </td>
-      </td>
+            </tr>
+        <!-- Bottom Line -->
-    </tr>
+        <tr>
-    <tr>
+            <td>
-      <td width="1%" height="1%" background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
+                <img src="images/lbox_bg_blue.gif" width="100%" height="5">
-      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
+            </td>
-    </tr>
+        </tr>
-  </table>
+    </table>
-<input name="rpg" type="hidden" value="<%=rspPage%>">
+    <input name="rpg" type="hidden" value="<%=rspPage%>">
-<input name="skip_open" type="hidden" value="<%=parSkipOpen%>">
-<input name="pv_id" type="hidden" value="<%=parPv_id%>">
+    <input name="pv_id" type="hidden" value="<%=parPv_id%>">
-<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
+    <input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
-<input name="action" type="hidden" value="true">
+    <input name="action" type="hidden" value="true">
 </form>
 <%Else%>
 <%=enumMSSQL_ERROR%>
 <%End If%>
 </body>
 </html>
 <!-- DESTRUCTOR ------->
 <!--#include file="common/destructor.asp"-->

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_wform_import_jira_issues.asp @ 4235 – Rev 4183 → 4235