Subversion Repositories DevTools

Rev

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

Rev 39 Rev 3947
Line 750... Line 750...
750 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
 750 
               <td width="1%" nowrap class="form_field"><img src="images/spacer.gif" width="30" height="8"></td>
751 
               <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
 751 
               <td width="1%" align="right" nowrap class="form_field" valign="top">ClearQuest Database</td>
752 
               <td width="100%">
 752 
               <td width="100%">
753 
                  <select name="FRiss_db" class="form_item">
 753 
                  <select name="FRiss_db" class="form_item">
754 
                     <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
 754 
                     <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
755 
                     <option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
 - 
 
756 
                  </select>
 755 
                  </select>
757 
               </td>
 756 
               </td>
758 
            </tr>
 757 
            </tr>
759 
            <tr>
 758 
            <tr>
760 
               <td nowrap class="form_field">&nbsp;</td>
 759 
               <td nowrap class="form_field">&nbsp;</td>
Line 787... Line 786...
787 
      Set rsCQ = Server.CreateObject("ADODB.Recordset")
 786 
      Set rsCQ = Server.CreateObject("ADODB.Recordset")
788 
      Set issNumDict = CreateObject("Scripting.Dictionary")
 787 
      Set issNumDict = CreateObject("Scripting.Dictionary")
789 
 
 788 
 
790 
 
 789 
 
791 
      '---- Find Issue numbers in ClearQuest ----
 790 
      '---- Find Issue numbers in ClearQuest ----
792 
      If CDbl(NNiss_db) = enumCLEARQUEST_MASSI_ID Then
 - 
 
793 
         iss_num_col = "new_num"
 - 
 
794 
         SSsql = _
 - 
 
795 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 - 
 
796 
         " FROM MASSI.admin.software_issue si"&_
 - 
 
797 
         " WHERE "
 - 
 
798 
 
 - 
 
799 
 
 - 
 
800 
      ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DPGIM_ID Then
 - 
 
801 
         iss_num_col = "new_num"
 - 
 
802 
         SSsql = _
 - 
 
803 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 - 
 
804 
         " FROM DPGIM.admin.software_issue si"&_
 - 
 
805 
         " WHERE "
 - 
 
806 
 
 - 
 
807 
 
 - 
 
808 
      ElseIf CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 791 
      If CDbl(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
809 
         iss_num_col = "new_num"
 792 
         iss_num_col = "new_num"
810 
         SSsql = _
 793 
         SSsql = _
811 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 794 
         " SELECT si.dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
812 
         " FROM CQ_DEVI.admin.software_issue si"&_
 795 
         " FROM CQ_DEVI.admin.software_issue si"&_
813 
         " WHERE "
 796 
         " WHERE "
814 
 
 - 
 
815 
 
 - 
 
816 
      ElseIf CDbl(NNiss_db) = enumCLEARQUEST_TDSE_ID Then
 - 
 
817 
         iss_num_col = "job_number"
 - 
 
818 
         SSsql = _
 - 
 
819 
         " SELECT dbid AS iss_id, si."& iss_num_col &" AS iss_num"&_
 - 
 
820 
         " FROM CQ_TDSE.admin.request si"&_
 - 
 
821 
         " WHERE "
 - 
 
822 
 
 - 
 
823 
      End If
 797 
      End If
824 
 
 798 
 
825 
 
 799 
 
826 
      '---- Split multiple search ----
 800 
      '---- Split multiple search ----
827 
      SSiss_num_list = Trim(SSiss_num_list)
 801 
      SSiss_num_list = Trim(SSiss_num_list)