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>