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



Set rsCQ = Server.CreateObject("ADODB.Recordset")
 
imported = FALSE
'-- CONDITIONS --------------------------------
If rspPage = "" Then rspPage = 1
if InStr(1, Request("btn"), "Find",1) Then rspPage = 1
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
 
If (parFRpkey = "") Then
  parFRpkey = GetDefaultProjectKey(Request("rtag_id"))
  if parFRpkey="" OR IsNull(parFRpkey) Then parFRpkey = LENUM_ALL

' 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 "parIStates="& parIStates &", parSkipOpen="& parSkipOpen
%>
<%

      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 "&_
      "WHERE I.project=project.id "
	  
 
      If ( apkey <> LENUM_ALL ) Then
         SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "
      End If
      SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "
 

   If ( NNiss_num <> LENUM_ALL ) Then
      issARR = Split( Replace( NNiss_num, " ", ""), "," )
 
      col_name = "I.issuenum"
      SQLstr = SQLstr & " AND ( "
      for Each iss_num IN issARR
         SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
      Next
 
      SQLstr = Left( SQLstr, Len(SQLstr) - 2 )   ' Remove last 'OR'
 

    <tr>
      <td height="1%" background="images/bg_admin_dark.gif"><img src="images/spacer.gif" width="10" height="40"></td>
      <td nowrap colspan="3" class="wform_ttl" background="images/bg_admin_dark.gif"><table width="100" border="0" cellspacing="5" cellpadding="0">
        <tr>
          <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>
        </tr>
        <tr>
          <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>
        </tr>

           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

Rev 4169	Rev 4183
Line 74...	Line 74...
74	`Set rsCQ = Server.CreateObject("ADODB.Recordset")`	74	`Set rsCQ = Server.CreateObject("ADODB.Recordset")`
75		75
76	`imported = FALSE`	76	`imported = FALSE`
77	`'-- CONDITIONS --------------------------------`	77	`'-- CONDITIONS --------------------------------`
78	`If rspPage = "" Then rspPage = 1`	78	`If rspPage = "" Then rspPage = 1`
79	`If ( Request("btn") = "Filter" ) OR ( Request("btn") = "Find" ) Then rspPage = 1`	79	`if InStr(1, Request("btn"), "Find",1) Then rspPage = 1`
80	`If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL`	80	`If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL`
81		81
82	`If (parFRpkey = "") Then`	82	`If (parFRpkey = "") Then`
83	`parFRpkey = GetDefaultProjectKey(Request("rtag_id"))`	83	`parFRpkey = GetDefaultProjectKey(Request("rtag_id"))`
84	`if parFRpkey="" OR IsNull(parFRpkey) Then parFRpkey = LENUM_ALL`	84	`if parFRpkey="" OR IsNull(parFRpkey) Then parFRpkey = LENUM_ALL`
Line 89...	Line 89...
89	`' Get DEVI issue states checked`	89	`' Get DEVI issue states checked`
90	`Set oIStates = GetIStates()`	90	`Set oIStates = GetIStates()`
91		91
92		92
93	`'----------------------------------------------`	93	`'----------------------------------------------`
-		94	`'Response.write "btn="& Request("btn") & "rspPage=" &rspPage&"<br>"`
94	`'Response.write "parPackage="& parPackage &", parProject="& parProject &", parProduct="& parProduct &", parSkipOpen="& parSkipOpen &"<br>"`	95	`'Response.write "parPackage="& parPackage &", parProject="& parProject &", parProduct="& parProduct &", parSkipOpen="& parSkipOpen &"<br>"`
95	`'Response.write "parPv_id="& parPv_id &", parRtag_id="& parRtag_id &", rspPage="& rspPage &", parFRiss_db="& parFRiss_db &", parFRiss_id="& parFRiss_id &", parFRiss_num="& parFRiss_num`	96	`'Response.write "parPv_id="& parPv_id &", parRtag_id="& parRtag_id &", rspPage="& rspPage &", parFRiss_db="& parFRiss_db &", parFRiss_id="& parFRiss_id &", parFRiss_num="& parFRiss_num`
96	`'Response.write "parIStates="& parIStates &", parSkipOpen="& parSkipOpen`	97	`'Response.write "parIStates="& parIStates &", parSkipOpen="& parSkipOpen`
97	`%>`	98	`%>`
98	`<%`	99	`<%`
Line 125...	Line 126...
125	`SQLstr = _`	126	`SQLstr = _`
126	`"SELECT project.pkey as project, I.issuenum AS iss_num, I.summary as summary, ISS.pname AS state "&_`	127	`"SELECT project.pkey as project, I.issuenum AS iss_num, I.summary as summary, ISS.pname AS state "&_`
127	`"FROM jiraissue I, project, issuestatus ISS "&_`	128	`"FROM jiraissue I, project, issuestatus ISS "&_`
128	`"WHERE I.project=project.id "`	129	`"WHERE I.project=project.id "`
129		130
130		-
131	`If ( apkey <> LENUM_ALL ) Then`	131	`If ( apkey <> LENUM_ALL ) Then`
132	`SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "`	132	`SQLstr = SQLstr & "AND project.pkey='"& apkey &"' "`
133	`End If`	133	`End If`
134	`SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "`	134	`SQLstr = SQLstr & "AND I.issuestatus = ISS.ID "`
135		135
Line 137...	Line 137...
137	`If ( NNiss_num <> LENUM_ALL ) Then`	137	`If ( NNiss_num <> LENUM_ALL ) Then`
138	`issARR = Split( Replace( NNiss_num, " ", ""), "," )`	138	`issARR = Split( Replace( NNiss_num, " ", ""), "," )`
139		139
140	`col_name = "I.issuenum"`	140	`col_name = "I.issuenum"`
141	`SQLstr = SQLstr & " AND ( "`	141	`SQLstr = SQLstr & " AND ( "`
142	`For Each iss_num IN issARR`	142	`for Each iss_num IN issARR`
143	`SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"`	143	`SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"`
144	`Next`	144	`Next`
145		145
146	`SQLstr = Left( SQLstr, Len(SQLstr) - 2 ) ' Remove last 'OR'`	146	`SQLstr = Left( SQLstr, Len(SQLstr) - 2 ) ' Remove last 'OR'`
147		147
Line 262...	Line 262...
262	`<tr>`	262	`<tr>`
263	`<td height="1%" background="images/bg_admin_dark.gif"><img src="images/spacer.gif" width="10" height="40"></td>`	263	`<td height="1%" background="images/bg_admin_dark.gif"><img src="images/spacer.gif" width="10" height="40"></td>`
264	`<td nowrap colspan="3" class="wform_ttl" background="images/bg_admin_dark.gif"><table width="100" border="0" cellspacing="5" cellpadding="0">`	264	`<td nowrap colspan="3" class="wform_ttl" background="images/bg_admin_dark.gif"><table width="100" border="0" cellspacing="5" cellpadding="0">`
265	`<tr>`	265	`<tr>`
266	`<td align="left" class="wform_ttl">Issue Number</td>`	266	`<td align="left" class="wform_ttl">Issue Number</td>`
267	`<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>`	267	`<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>`
268	`</tr>`	268	`</tr>`
269	`<tr>`	269	`<tr>`
270	`<td align="left" class="wform_ttl">Project Key</td>`	270	`<td align="left" class="wform_ttl">Project Key</td>`
271	`<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>`	271	`<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>`
272	`</tr>`	272	`</tr>`
Line 317...	Line 317...
317	`rsCQ.Move( rspMax * (rspPage - 1))`	317	`rsCQ.Move( rspMax * (rspPage - 1))`
318		318
319	`%>`	319	`%>`
320	`<%`	320	`<%`
321	`while ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))`	321	`while ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))`
322	`dim jiraIssue`	322	`dim jiraIssue, jiraText`
323	`jiraIssue = rsCQ("project") & "-" & rsCQ("iss_num")`	323	`jiraIssue = rsCQ("project") & "-" & rsCQ("iss_num")`
-		324	`jiraText = jiraIssue`
324	`%>`	325	`%>`
325	`<tr>`	326	`<tr>`
326	`<td><input type="checkbox" name="FRiss_id" value='<%=jiraIssue%>'></td>`	327	`<td><input type="checkbox" name="FRiss_id" value='<%=jiraIssue%>'></td>`
327	`<td nowrap class="form_item">`	328	`<td nowrap class="form_item">`
328		329
329	`<%If parFRiss_num <> LENUM_ALL Then%>`	330	`<%`
330	`<%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>`	331	`If parFRiss_num <> LENUM_ALL and parFRpkey = LENUM_ALL Then`
331	`<%Else%>`	-
332	`<a href="<%=JIRA_URL%>/browse/<%=jiraIssue%>" target="_blank"><%=jiraIssue%>`	332	`jiraText = Highlight_Substring( jiraIssue, parFRiss_num )`
333	`<%End If%>`	333	`End If`
334		-
335	`</a>`	334	`%>`
-		335	`<a href="<%=JIRA_URL%>/browse/<%=jiraIssue%>" target="_blank"><%=jiraText%></a>`
336	`</td>`	336	`</td>`
337	`<td class="form_item"><%=rsCQ("state")%></td>`	337	`<td class="form_item"><%=rsCQ("state")%></td>`
338	`<td class="form_item"><%=rsCQ("summary")%></td>`	338	`<td class="form_item"><%=rsCQ("summary")%></td>`
339	`</tr>`	339	`</tr>`
340	`<%rspCount = rspCount + 1`	340	`<%rspCount = rspCount + 1`

Subversion Repositories DevTools

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