Subversion Repositories DevTools

Rev

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

Rev 1281 Rev 3974
Line 133... Line 133...
133 
      SQLstr = _
 133 
      SQLstr = _
134 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 134 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
135 
      "   FROM CQ_DEVI.admin.software_issue si,"&_
 135 
      "   FROM CQ_DEVI.admin.software_issue si,"&_
136 
      "        CQ_DEVI.admin.STATEDEF sd"&_
 136 
      "        CQ_DEVI.admin.STATEDEF sd"&_
137 
      "  WHERE si.STATE = sd.ID "
 137 
      "  WHERE si.STATE = sd.ID "
138 
 
 - 
 
139 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 - 
 
140 
      SQLstr = _
 - 
 
141 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
 - 
 
142 
      "   FROM CQ_TDSE.admin.request si, "&_
 - 
 
143 
      "        CQ_TDSE.admin.STATEDEF sd"&_
 - 
 
144 
      "  WHERE si.STATE = sd.ID "
 - 
 
145 
 
 - 
 
146 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 - 
 
147 
      SQLstr = _
 - 
 
148 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 - 
 
149 
      "   FROM CQ_VT5DM.admin.software_issue si,"&_
 - 
 
150 
      "        CQ_VT5DM.admin.STATEDEF sd"&_
 - 
 
151 
      "  WHERE si.STATE = sd.ID "
 - 
 
152 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
 - 
 
153 
      SQLstr = _
 - 
 
154 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
 - 
 
155 
      "   FROM CQ_VTSUP.admin.request si, "&_
 - 
 
156 
      "        CQ_VTSUP.admin.STATEDEF sd"&_
 - 
 
157 
      "  WHERE si.STATE = sd.ID "
 - 
 
158 
 
 - 
 
159 
 
 - 
 
160 
 
 - 
 
161 
   End If
 138 
   End If
162 
 
 139 
 
163 
 
 140 
 
164 
   '-- User filter --
 141 
   '-- User filter --
165 
   If (CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID) OR (CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 142 
   If (CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID) Then
166 
      ' Add package Filter
 143 
      ' Add package Filter
167 
      If (parPackage <> "") Then
 144 
      If (parPackage <> "") Then
168 
         SQLstr = SQLstr &" AND  si.package_ref = '"& Replace( parPackage, "'","''" ) &"'"
 145 
         SQLstr = SQLstr &" AND  si.package_ref = '"& Replace( parPackage, "'","''" ) &"'"
169 
      End If
 146 
      End If
170 
 
 147 
 
Line 188... Line 165...
188 
         Title = Replace( parTitle, "'", "''" )
 165 
         Title = Replace( parTitle, "'", "''" )
189 
         Title = Replace( Title, "*", "%" )
 166 
         Title = Replace( Title, "*", "%" )
190 
         SQLstr = SQLstr &" AND  si.headline LIKE ( '"& Title &"' )"
 167 
         SQLstr = SQLstr &" AND  si.headline LIKE ( '"& Title &"' )"
191 
      End If
 168 
      End If
192 
 
 169 
 
193 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) OR ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
 - 
 
194 
 
 - 
 
195 
      ' Add project Filter
 - 
 
196 
      If (parProject <> "") Then
 - 
 
197 
         SQLstr = SQLstr &" AND  si.category_main = '"& Replace( parCategMain, "'","''" ) &"'"
 - 
 
198 
      End If
 - 
 
199 
 
 - 
 
200 
      ' Add product Filter
 - 
 
201 
      If (parProduct <> "") Then
 - 
 
202 
         SQLstr = SQLstr &" AND  si.category_minor = '"& Replace( parCategMinor, "'","''" ) &"'"
 - 
 
203 
      End If
 - 
 
204 
 
 - 
 
205 
      ' Add Issue State Filter
 - 
 
206 
      If (parIStates <> "") Then
 - 
 
207 
         SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
 - 
 
208 
      End If
 - 
 
209 
 
 - 
 
210 
   End If
 170 
   End If
211 
 
 171 
 
212 
 
 172 
 
213 
   '-- Keyword search --
 173 
   '-- Keyword search --
214 
   If ( NNiss_num <> LENUM_ALL ) Then
 174 
   If ( NNiss_num <> LENUM_ALL ) Then
215 
      issARR = Split( Replace( NNiss_num, " ", ""), "," )
 175 
      issARR = Split( Replace( NNiss_num, " ", ""), "," )
216 
 
 176 
 
217 
      If ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID ) OR ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID ) Then
 - 
 
218 
         col_name = "job_number"
 - 
 
219 
      Else
 - 
 
220 
         col_name = "new_num"
 177 
      col_name = "new_num"
221 
      End If
 - 
 
222 
      SQLstr = SQLstr & " AND ( "
 178 
      SQLstr = SQLstr & " AND ( "
223 
      For Each iss_num IN issARR
 179 
      For Each iss_num IN issARR
224 
         SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
 180 
         SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
225 
      Next
 181 
      Next
226 
 
 182 
 
Line 236... Line 192...
236 
 
 192 
 
237 
 
 193 
 
238 
   '-- Order by --
 194 
   '-- Order by --
239 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 195 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
240 
      SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
 196 
      SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
241 
 
 - 
 
242 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 - 
 
243 
      SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
 - 
 
244 
 
 - 
 
245 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
 - 
 
246 
      SQLstr = SQLstr &" ORDER BY si.job_number DESC"
 - 
 
247 
 
 - 
 
248 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 - 
 
249 
      SQLstr = SQLstr &" ORDER BY si.new_num DESC"
 - 
 
250 
 
 - 
 
251 
   End If
 197 
   End If
252 
 
 198 
 
253 
   'Response.write SQLstr
 199 
   'Response.write SQLstr
254 
 
 200 
 
255 
   OOrsCQ.ActiveConnection = CQ_conn
 201 
   OOrsCQ.ActiveConnection = CQ_conn
Line 299... Line 245...
299 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 245 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
300 
      "  FROM CQ_DEVI.admin.software_issue si,"&_
 246 
      "  FROM CQ_DEVI.admin.software_issue si,"&_
301 
      "       CQ_DEVI.admin.statedef sd"&_
 247 
      "       CQ_DEVI.admin.statedef sd"&_
302 
      " WHERE si.STATE = sd.ID"&_
 248 
      " WHERE si.STATE = sd.ID"&_
303 
      "   AND si.dbid IN ("& sIssIdList &")"
 249 
      "   AND si.dbid IN ("& sIssIdList &")"
304 
 
 - 
 
305 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
 - 
 
306 
      SQLstr = _
 - 
 
307 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 - 
 
308 
      "  FROM CQ_TDSE.admin.request si,"&_
 - 
 
309 
      "       CQ_TDSE.admin.statedef sd"&_
 - 
 
310 
      " WHERE si.STATE = sd.ID"&_
 - 
 
311 
      "   AND si.dbid IN ("& sIssIdList &")"
 - 
 
312 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
 - 
 
313 
      SQLstr = _
 - 
 
314 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 - 
 
315 
      "  FROM CQ_VT5DM.admin.software_issue si,"&_
 - 
 
316 
      "       CQ_VT5DM.admin.statedef sd"&_
 - 
 
317 
      " WHERE si.STATE = sd.ID"&_
 - 
 
318 
      "   AND si.dbid IN ("& sIssIdList &")"
 - 
 
319 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
 - 
 
320 
      SQLstr = _
 - 
 
321 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 - 
 
322 
      "  FROM CQ_VTSUP.admin.request si,"&_
 - 
 
323 
      "       CQ_VTSUP.admin.statedef sd"&_
 - 
 
324 
      " WHERE si.STATE = sd.ID"&_
 - 
 
325 
      "   AND si.dbid IN ("& sIssIdList &")"
 - 
 
326 
 
 - 
 
327 
 
 - 
 
328 
   End If
 250 
   End If
329 
 
 251 
 
330 
 
 252 
 
331 
   rsTemp.Source = SQLstr
 253 
   rsTemp.Source = SQLstr
332 
   rsTemp.CursorType = 0
 254 
   rsTemp.CursorType = 0
Line 474... Line 396...
474 
               <tr>
 396 
               <tr>
475 
                  <td align="left" class="wform_ttl">Database</td>
 397 
                  <td align="left" class="wform_ttl">Database</td>
476 
                  <td>
 398 
                  <td>
477 
                     <select name="FRiss_db" class="form_item" id="FRiss_db" onChange="toggleOptions();">
 399 
                     <select name="FRiss_db" class="form_item" id="FRiss_db" onChange="toggleOptions();">
478 
                        <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
 400 
                        <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
479 
                        <option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
 - 
 
480 
                        <%If objAccessControl.IsActive("ImportVasttrafikIssues") Then%>
 - 
 
481 
                           <option value="<%=enumCLEARQUEST_VT5DM_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>selected<%End If%>>VT5DM</option>
 - 
 
482 
                           <option value="<%=enumCLEARQUEST_VTSUP_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>selected<%End If%>>VTSUP</option>
 - 
 
483 
                        <%End If%>
 - 
 
484 
                     </select>
 401 
                     </select>
485 
                  </td>
 402 
                  </td>
486 
               </tr>
 403 
               </tr>
487 
               <tr>
 404 
               <tr>
488 
                  <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 405 
                  <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
489 
                  <td><a href="javascript:;" onClick="ToggleDisplay('DIVOPTIONS');" class="form_wtxt_link">Options...</a></td>
 406 
                  <td><a href="javascript:;" onClick="ToggleDisplay('DIVOPTIONS');" class="form_wtxt_link">Options...</a></td>
490 
               </tr>
 407 
               </tr>
491 
            </table>
 408 
            </table>
492 
 
 409 
 
493 
            <DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 410 
            <DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
494 
               <DIV id="DIVOPTIONSDEVI" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID OR CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 411 
               <DIV id="DIVOPTIONSDEVI" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
495 
                  <table width="100" border="0" cellspacing="5" cellpadding="0">
 412 
                  <table width="100" border="0" cellspacing="5" cellpadding="0">
496 
                     <tr>
 413 
                     <tr>
497 
                        <td align="left" class="wform_ttl" valign="top">Title</td>
 414 
                        <td align="left" class="wform_ttl" valign="top">Title</td>
498 
                        <td class="form_wtxt_link"><input name="title" type="text" class="form_item" id="title" value="<%=parTitle%>" style="width:100%;"> * Wildcard available</td>
 415 
                        <td class="form_wtxt_link"><input name="title" type="text" class="form_item" id="title" value="<%=parTitle%>" style="width:100%;"> * Wildcard available</td>
499 
                     </tr>
 416 
                     </tr>
Line 648... Line 565...
648 
                        <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 565 
                        <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
649 
                        <td><img src="images/spacer.gif" width="100" height="1"></td>
 566 
                        <td><img src="images/spacer.gif" width="100" height="1"></td>
650 
                     </tr>
 567 
                     </tr>
651 
                  </table>
 568 
                  </table>
652 
               </DIV>
 569 
               </DIV>
653 
               <DIV id="DIVOPTIONSTDSE" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID OR CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 - 
 
654 
                  <table width="100" border="0" cellspacing="5" cellpadding="0">
 - 
 
655 
                     <tr>
 - 
 
656 
                        <td align="left" class="wform_ttl">Project</td>
 - 
 
657 
                        <td>
 - 
 
658 
                           <select name="categmain" class="form_item" id="categmain" style="width:100%;">
 - 
 
659 
                              <option value="">ALL</option>
 - 
 
660 
                              <%
 - 
 
661 
                              '---- PROJECT ----
 - 
 
662 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
663 
                              rsCQTemp.ActiveConnection = CQ_conn
 - 
 
664 
 
 - 
 
665 
                              '-- Get projects
 - 
 
666 
                              SQLstr = _
 - 
 
667 
                              "SELECT si.CATEGORY_MAIN"&_
 - 
 
668 
                              "  FROM CQ_TDSE.admin.REQUEST si"&_
 - 
 
669 
                              " WHERE NOT si.CATEGORY_MAIN IS NULL"&_
 - 
 
670 
                              " GROUP BY si.CATEGORY_MAIN"&_
 - 
 
671 
                              " ORDER BY si.CATEGORY_MAIN"
 - 
 
672 
 
 - 
 
673 
                              rsCQTemp.Source = SQLstr
 - 
 
674 
                              rsCQTemp.CursorType = 0
 - 
 
675 
                              rsCQTemp.CursorLocation = 2
 - 
 
676 
                              rsCQTemp.LockType = 3
 - 
 
677 
                              rsCQTemp.Open()
 - 
 
678 
 
 - 
 
679 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
680 
                                 %>
 - 
 
681 
                                 <option value="<%=rsCQTemp("CATEGORY_MAIN")%>" <%If parCategMain = Cstr(rsCQTemp("CATEGORY_MAIN")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MAIN")%></option>
 - 
 
682 
                                 <%
 - 
 
683 
                                 rsCQTemp.MoveNext
 - 
 
684 
                              WEnd
 - 
 
685 
                              rsCQTemp.Close()
 - 
 
686 
                              %>
 - 
 
687 
                           </select>
 - 
 
688 
                        </td>
 - 
 
689 
                     </tr>
 - 
 
690 
                     <tr>
 - 
 
691 
                        <td align="left" class="wform_ttl">Product</td>
 - 
 
692 
                        <td>
 - 
 
693 
                           <select name="categminor" class="form_item" id="categminor" style="width:100%;">
 - 
 
694 
                              <option value="">ALL</option>
 - 
 
695 
                              <%
 - 
 
696 
                              '---- PRODUCT ----
 - 
 
697 
                              Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
698 
                              rsCQTemp.ActiveConnection = CQ_conn
 - 
 
699 
 
 - 
 
700 
                              '-- Get product
 - 
 
701 
                              SQLstr = _
 - 
 
702 
                              "SELECT si.CATEGORY_MINOR"&_
 - 
 
703 
                              "  FROM CQ_TDSE.admin.REQUEST si"&_
 - 
 
704 
                              " WHERE NOT si.CATEGORY_MINOR IS NULL"&_
 - 
 
705 
                              " GROUP BY si.CATEGORY_MINOR"&_
 - 
 
706 
                              " ORDER BY si.CATEGORY_MINOR"
 - 
 
707 
 
 - 
 
708 
                              rsCQTemp.Source = SQLstr
 - 
 
709 
                              rsCQTemp.CursorType = 0
 - 
 
710 
                              rsCQTemp.CursorLocation = 2
 - 
 
711 
                              rsCQTemp.LockType = 3
 - 
 
712 
                              rsCQTemp.Open()
 - 
 
713 
 
 - 
 
714 
                              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
715 
                                 %>
 - 
 
716 
                                 <option value="<%=rsCQTemp("CATEGORY_MINOR")%>" <%If parCategMinor = Cstr(rsCQTemp("CATEGORY_MINOR")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MINOR")%></option>
 - 
 
717 
                                 <%
 - 
 
718 
                                 rsCQTemp.MoveNext
 - 
 
719 
                              WEnd
 - 
 
720 
                              rsCQTemp.Close()
 - 
 
721 
                              %>
 - 
 
722 
                           </select>
 - 
 
723 
                        </td>
 - 
 
724 
                     </tr>
 - 
 
725 
                     <tr>
 - 
 
726 
                        <td align="left" class="wform_ttl">&nbsp;</td>
 - 
 
727 
                        <td>
 - 
 
728 
                           <fieldset>
 - 
 
729 
                              <legend class="form_wtxt_link">Issue Status </legend>
 - 
 
730 
                              <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 - 
 
731 
                                 <%
 - 
 
732 
                                 '---- ISSUE STATES ----
 - 
 
733 
                                 Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 - 
 
734 
                                 rsCQTemp.ActiveConnection = CQ_conn
 - 
 
735 
 
 - 
 
736 
                                 '-- Get Issuestates
 - 
 
737 
                                 SQLstr = _
 - 
 
738 
                                 " SELECT sd.ID,"&_
 - 
 
739 
                                 "       sd.NAME"&_
 - 
 
740 
                                 "  FROM CQ_TDSE.admin.STATEDEF sd"&_
 - 
 
741 
                                 " UNION "&_
 - 
 
742 
                                 " SELECT sd.ID,"&_
 - 
 
743 
                                 "       sd.NAME"&_
 - 
 
744 
                                 "  FROM CQ_VTSUP.admin.STATEDEF sd"
 - 
 
745 
 
 - 
 
746 
                                 rsCQTemp.Source = SQLstr
 - 
 
747 
                                 rsCQTemp.CursorType = 0
 - 
 
748 
                                 rsCQTemp.CursorLocation = 2
 - 
 
749 
                                 rsCQTemp.LockType = 3
 - 
 
750 
                                 rsCQTemp.Open()
 - 
 
751 
 
 - 
 
752 
                                 While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 - 
 
753 
                                    checked = ""
 - 
 
754 
 
 - 
 
755 
                                    If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
 - 
 
756 
 
 - 
 
757 
                                    %>
 - 
 
758 
                                    <tr>
 - 
 
759 
                                       <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
 - 
 
760 
                                       <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
 - 
 
761 
                                    </tr>
 - 
 
762 
                                    <%
 - 
 
763 
                                    rsCQTemp.MoveNext
 - 
 
764 
                                 WEnd
 - 
 
765 
                                 rsCQTemp.Close()
 - 
 
766 
                                 %>
 - 
 
767 
                              </table>
 - 
 
768 
                           </fieldset>
 - 
 
769 
                        </td>
 - 
 
770 
                     </tr>
 - 
 
771 
                     <tr>
 - 
 
772 
                        <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 - 
 
773 
                        <td><img src="images/spacer.gif" width="100" height="1"></td>
 - 
 
774 
                     </tr>
 - 
 
775 
                  </table>
 - 
 
776 
               </DIV>
 - 
 
777 
            </DIV>
 570 
            </DIV>
778 
 
 - 
 
779 
            <table width="400" border="0" cellspacing="5" cellpadding="0">
 571 
            <table width="400" border="0" cellspacing="5" cellpadding="0">
780 
               <tr background="images/lbox_bg_blue.gif">
 572 
               <tr background="images/lbox_bg_blue.gif">
781 
                  <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
 573 
                  <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
782 
               </tr>
 574 
               </tr>
783 
               <tr>
 575 
               <tr>