Subversion Repositories DevTools

Rev

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

Rev 3975 Rev 4553
Line 832... Line 832...
832 
 
 832 
 
833 
   If SSsection = "BODY" Then
 833 
   If SSsection = "BODY" Then
834 
      If NOT CBool(Request("action")) Then Exit Sub
 834 
      If NOT CBool(Request("action")) Then Exit Sub
835 
 
 835 
 
836 
      Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
 836 
      Dim SSsql, issARR, num_item, iss_num_col, issNumDict, rsCQ, recCount, maxRecCount
837 
      Set rsCQ = Server.CreateObject("ADODB.Recordset")
 - 
 
838 
      Set issNumDict = CreateObject("Scripting.Dictionary")
 837 
      Set issNumDict = CreateObject("Scripting.Dictionary")
839 
 
 838 
 
840 
 
 - 
 
841 
      '---- Find Issue numbers in ClearQuest ----
 839 
      '---- Find Issue numbers in ClearQuest ----
842 
      If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 840 
      If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
843 
         iss_num_col = "new_num"
 841 
         iss_num_col = "new_num"
844 
         SSsql = _
 842 
         SSsql = _
845 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 843 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
846 
         " FROM CQ_DEVI.admin.software_issue si"&_
 844 
         " FROM release_manager.cq_software_issue si"&_
847 
         " WHERE "
 845 
         " WHERE "
848 
      End If
 846 
      End If
849 
 
 847 
 
850 
 
 848 
 
851 
      '---- Split multiple search ----
 849 
      '---- Split multiple search ----
Line 865... Line 863...
865 
      Else
 863 
      Else
866 
         SSsql = SSsql & " (si."& iss_num_col &" LIKE '%"& Replace( SQLstring(SSiss_num_list), "*", "%") &"%')"
 864 
         SSsql = SSsql & " (si."& iss_num_col &" LIKE '%"& Replace( SQLstring(SSiss_num_list), "*", "%") &"%')"
867 
 
 865 
 
868 
      End If
 866 
      End If
869 
 
 867 
 
870 
      rsCQ.ActiveConnection = CQ_conn
 868 
      Set rsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
871 
      rsCQ.Source = SSsql
 - 
 
872 
      rsCQ.CursorType = 0
 - 
 
873 
      rsCQ.CursorLocation = 2
 - 
 
874 
      rsCQ.LockType = 3
 - 
 
875 
      rsCQ.Open()
 - 
 
876 
 
 869 
 
877 
      ' Get find results from CQ
 870 
      ' Get find results from CQ
878 
      recCount = 1
 871 
      recCount = 1
879 
      maxRecCount = 1000
 872 
      maxRecCount = 1000
880 
      issNumDict.ADD "-1", "-1"      ' take care of no results
 873 
      issNumDict.ADD "-1", "-1"      ' take care of no results
Line 2656... Line 2649...
2656 
 
 2649 
 
2657 
 
 2650 
 
2658 
<%
 2651 
<%
2659 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
 2652 
'-------------------------------------------------------------------------------------------------------------------------------------------------------------------
2660 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
 2653 
Function  Get_CQ_Issues ( SSsql, OOrsCQ )
2661 
   If OOrsCQ.State = 1 Then
 - 
 
2662 
      OOrsCQ.Close()
 - 
 
2663 
   End If
 - 
 
2664 
 
 - 
 
2665 
   On Error Resume Next
 2654 
    On Error Resume Next
2666 
   OOrsCQ.ActiveConnection = CQ_conn
 2655 
    Set OOrsCQ = OraDatabase.DbCreateDynaset( SSsql, cint(0))
2667 
   OOrsCQ.Source = SSsql
 - 
 
2668 
   OOrsCQ.CursorType = 0
 - 
 
2669 
   OOrsCQ.CursorLocation = 2
 - 
 
2670 
   OOrsCQ.LockType = 3
 - 
 
2671 
   OOrsCQ.Open()
 - 
 
2672 
 
 - 
 
2673 
   Get_CQ_Issues = Err.Number
 2656 
    Get_CQ_Issues = Err.Number
2674 
 
 - 
 
2675 
End Function
 2657 
End Function
2676 
'----------------------------------------------------------------------------------------------------------------------------------------
 2658 
'----------------------------------------------------------------------------------------------------------------------------------------
2677 
Function GetRMIssueState (NNpv_id, NNissId)
 2659 
Function GetRMIssueState (NNpv_id, NNissId)
2678 
   Dim rsTemp, Query_String
 2660 
   Dim rsTemp, Query_String
2679 
   Dim s
 2661 
   Dim s
Line 3053... Line 3035...
3053 
      If cqFilterStr = "" Then
 3035 
      If cqFilterStr = "" Then
3054 
         Response.Write "Select one or both of Fixed/Outstanding issues lists to be considered"
 3036 
         Response.Write "Select one or both of Fixed/Outstanding issues lists to be considered"
3055 
         Exit Sub
 3037 
         Exit Sub
3056 
      End If
 3038 
      End If
3057 
 
 3039 
 
3058 
      ' Create ADODB recordset for CLEARQUEST query
 - 
 
3059 
      Set rsCQQry = Server.CreateObject("ADODB.Recordset")
 - 
 
3060 
 
 - 
 
3061 
      ' Query RELEASE MANAGER for Package versions
 3040 
      ' Query RELEASE MANAGER for Package versions
3062 
      OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 3041 
      OraDatabase.Parameters.Add "RTAG_ID", NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
3063 
      Set rsRMQry = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
 3042 
      Set rsRMQry = OraDatabase.DbCreateDynaset( SQLstr, cint(0))
3064 
      OraDatabase.Parameters.Remove "RTAG_ID"
 3043 
      OraDatabase.Parameters.Remove "RTAG_ID"
3065 
 
 3044