Subversion Repositories DevTools

Rev

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

Rev 3975 Rev 4169
Line 121... Line 121...
121 
'------------------------------------------------------------------------------------------------------------------------------------
 121 
'------------------------------------------------------------------------------------------------------------------------------------
122 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ, apkey)
 122 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ, apkey)
123 
   Dim SQLstr, issARR, iss_num, col_name, Title
 123 
   Dim SQLstr, issARR, iss_num, col_name, Title
124 
 
 124 
 
125 
      SQLstr = _
 125 
      SQLstr = _
126 
      "SELECT project.pkey as project, I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
 126 
      "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 "&_
 127 
      "FROM jiraissue I, project, issuestatus ISS "&_
128 
      "WHERE I.project=project.ID "
 128 
      "WHERE I.project=project.id "
129
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
Line 135... Line 135...
135 
 
 135 
 
136 
   '-- Keyword search --
 136 
   '-- Keyword search --
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.pkey"
 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 
 
Line 160... Line 160...
160
160
161 
	On Error Resume Next
 161 
	On Error Resume Next
162 
'Response.Write(SQLstr)
 162 
'Response.Write(SQLstr)
163 
 
 163 
 
164 
	OOrsCQ.Open SQLstr, objConnection
 164 
	OOrsCQ.Open SQLstr, objConnection
165 
	'***********************************************
 - 
 
166
- 
 
167 
   'OOrsCQ.ActiveConnection = JIRA_conn
 - 
 
168 
   'OOrsCQ.Source = SQLstr
 - 
 
169 
   'OOrsCQ.CursorType = 0
 - 
 
170 
   'OOrsCQ.CursorLocation = 2
 - 
 
171 
   'OOrsCQ.LockType = 3
 - 
 
172 
   'On Error Resume Next
 - 
 
173 
   'OOrsCQ.Open()
 - 
 
174 
 
 165 
 
175 
   Get_Issues = Err.Number
 166 
    Get_Issues = Err.Number
176 
 
 167 
 
177 
End Function
 168 
End Function
178 
'------------------------------------------------------------------------------------------------------------------------------------
 169 
'------------------------------------------------------------------------------------------------------------------------------------
179 
Function Get_Record_Count ( SSsql )
 170 
Function Get_Record_Count ( SSsql )
180 
   Dim rsTemp
 171 
   Dim rsTemp
Line 199... Line 190...
199 
 
 190 
 
200 
   rsTemp.Close
 191 
   rsTemp.Close
201 
   Set rsTemp = nothing
 192 
   Set rsTemp = nothing
202 
End Function
 193 
End Function
203 
'------------------------------------------------------------------------------------------------------------------------------------
 194 
'------------------------------------------------------------------------------------------------------------------------------------
204 
Sub Get_CQ_Issues_States ( sIssIdList, nIssDB, outObjCQissState )
 - 
 
205 
   Dim rsTemp, SQLstr
 - 
 
206 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
207 
   rsTemp.ActiveConnection = JIRA_conn
 - 
 
208 
 
 - 
 
209 
   SQLstr = _
 - 
 
210 
   "SELECT I.pkey AS iss_num, I.summary, ISS.pname AS state "&_
 - 
 
211 
   " FROM jiraissue I, issuestatus ISS "&_
 - 
 
212 
   " WHERE I.pkey IN ('"& sIssIdList &"') "&_
 - 
 
213 
   "AND I.issuestatus = ISS.ID "
 - 
 
214 
 
 - 
 
215 
   rsTemp.Source = SQLstr
 - 
 
216 
   rsTemp.CursorType = 0
 - 
 
217 
   rsTemp.CursorLocation = 2
 - 
 
218 
   rsTemp.LockType = 3
 - 
 
219 
   rsTemp.Open()
 - 
 
220 
 
 - 
 
221 
 
 - 
 
222 
 
 - 
 
223 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
 - 
 
224 
      outObjCQissState.Add CStr(rsTemp("iss_num")), CStr(rsTemp("state"))
 - 
 
225 
      rsTemp.MoveNext
 - 
 
226 
   WEnd
 - 
 
227 
 
 - 
 
228 
   rsTemp.Close
 - 
 
229 
   Set rsTemp = nothing
 - 
 
230 
End Sub
 - 
 
231 
'------------------------------------------------------------------------------------------------------------------------------------
 - 
 
232 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
 195 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
233 
   Dim issArr, iss_id, oCQissState, iss_num, iss_state, iss_state_human_readable
 196 
   Dim issArr , iss_id
234 
   If NNiss_id_list = "" Then Exit Sub
 197 
   If NNiss_id_list = "" Then Exit Sub
235 
   Set oCQissState = CreateObject("Scripting.Dictionary")
 - 
 
236 
 
 198 
 
237 
   issArr = Split ( NNiss_id_list, ",")
 199 
   issArr = Split ( NNiss_id_list, ",")
238 
   'Response.Write(NNiss_id_list)
 200 
   'Response.Write("Import_Issues" & NNiss_id_list)
239 
 
 - 
 
240 
   Call Get_CQ_Issues_States ( NNiss_id_list, NNiss_db, oCQissState )
 - 
 
241 
 
 201 
 
242 
   objEH.TryORA ( OraSession )
 202 
   objEH.TryORA ( OraSession )
243 
   On Error Resume Next
 203 
   On Error Resume Next
244 
 
 204 
 
245 
   For Each iss_id In issArr
 205 
   For Each iss_id In issArr
Line 247... Line 207...
247 
      If Err.Number = 0 Then
 207 
      If Err.Number = 0 Then
248 
         OraDatabase.ExecuteSQL _
 208 
         OraDatabase.ExecuteSQL _
249 
            " INSERT INTO JIRA_ISSUES ( pv_id, iss_key, date_time_stamp )"&_
 209 
            " INSERT INTO JIRA_ISSUES ( pv_id, iss_key, date_time_stamp )"&_
250 
            " VALUES ( "& NNpv_id &", '"& LTrim(iss_id) &"', "& ORA_SYSDATETIME &")"
 210 
            " VALUES ( "& NNpv_id &", '"& LTrim(iss_id) &"', "& ORA_SYSDATETIME &")"
251 
 
 211 
 
252 
         'If iss_state = 0 Then
 - 
 
253 
         '   iss_state_human_readable = "No"
 - 
 
254 
         'Else
 - 
 
255 
         '   iss_state_human_readable = "Yes"
 - 
 
256 
         'End If
 - 
 
257 
 
 - 
 
258 
         If Err.Number = 0 Then
 212 
         If Err.Number = 0 Then
259 
            OraDatabase.ExecuteSQL _
 213 
            OraDatabase.ExecuteSQL _
260 
               "BEGIN  Log_Action ( "& NNpv_id &", 'jira_issue_added', "& objAccessControl.UserId &", 'Issue number: "& LTrim(iss_id) &"' );  END;"
 214 
               "BEGIN  Log_Action ( "& NNpv_id &", 'jira_issue_added', "& objAccessControl.UserId &", 'Issue number: "& LTrim(iss_id) &"' );  END;"
261 
         End If
 215 
         End If
262 
 
 216 
 
Line 362... Line 316...
362 
         If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
 316 
         If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
363 
           rsCQ.Move( rspMax * (rspPage - 1))
 317 
           rsCQ.Move( rspMax * (rspPage - 1))
364 
 
 318 
 
365 
           %>
 319 
           %>
366 
           <%
 320 
           <%
367 
           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
- 
 
 323 
               jiraIssue = rsCQ("project") & "-" & rsCQ("iss_num")
368 
           %>
 324 
           %>
369 
             <tr>
 325 
             <tr>
370 
               <td><input type="checkbox" name="FRiss_id" value="<%=rsCQ("iss_num")%>"></td>
 326 
               <td><input type="checkbox" name="FRiss_id" value='<%=jiraIssue%>'></td>
371 
               <td nowrap class="form_item">
 327 
               <td nowrap class="form_item">
372 
 
 328 
 
373 
               <%If parFRiss_num <> LENUM_ALL Then%>
 329 
               <%If parFRiss_num <> LENUM_ALL Then%>
374 
               <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
 330 
               <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
375 
               <%Else%>
 331 
               <%Else%>
376 
               <a href="<%=JIRA_URL%>/browse/<%=rsCQ("iss_num")%>" target="_blank"><%=rsCQ("iss_num")%>
 332 
               <a href="<%=JIRA_URL%>/browse/<%=jiraIssue%>" target="_blank"><%=jiraIssue%>
377 
               <%End If%>
 333 
               <%End If%>
378 
 
 334 
 
379 
               </a>
 335 
               </a>
380 
            </td>
 336 
            </td>
381 
            <td class="form_item"><%=rsCQ("state")%></td>
 337 
            <td class="form_item"><%=rsCQ("state")%></td>