Subversion Repositories DevTools

Rev

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

Rev 119 Rev 129
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0   ' always load the page, dont store
5 
%>
 5 
%>
6 
<%
 6 
<%
7 
'=====================================================
 7 
'=====================================================
8 
'					Import Issues
 8 
'               Import Issues
9 
'=====================================================
 9 
'=====================================================
10 
%>
 10 
%>
11 
<!--#include file="common/conf.asp"-->
 11 
<!--#include file="common/conf.asp"-->
12 
<!--#include file="common/globals.asp"-->
 12 
<!--#include file="common/globals.asp"-->
13 
<!--#include file="common/qstr.asp"-->
 13 
<!--#include file="common/qstr.asp"-->
Line 28... Line 28...
28 
Dim parPv_id
 28 
Dim parPv_id
29 
Dim parFRiss_db
 29 
Dim parFRiss_db
30 
Dim parFRiss_id
 30 
Dim parFRiss_id
31 
Dim parFRiss_num
 31 
Dim parFRiss_num
32 
Dim rsCQ
 32 
Dim rsCQ
33 
Dim rspPage		' current page number for multiple page results
 33 
Dim rspPage      ' current page number for multiple page results
34 
Dim rspTotal	' total number of records
 34 
Dim rspTotal   ' total number of records
35 
Dim rspCount	' Record counter
 35 
Dim rspCount   ' Record counter
36 
Dim rspTotalPages	' Total number of pages required to display results
 36 
Dim rspTotalPages   ' Total number of pages required to display results
37 
Dim imported
 37 
Dim imported
38 
Dim retVal
 38 
Dim retVal
39 
Dim rsCQTemp
 39 
Dim rsCQTemp
40 
Dim SQLstr
 40 
Dim SQLstr
41 
Dim parPackage
 41 
Dim parPackage
Line 49... Line 49...
49 
Dim parIStates
 49 
Dim parIStates
50 
Dim parTitle
 50 
Dim parTitle
51 
Dim oIStates
 51 
Dim oIStates
52 
Dim checked
 52 
Dim checked
53 
'------------ Constants Declaration -----------
 53 
'------------ Constants Declaration -----------
54 
Const rspMax = 100	' maximum number of records displayed
 54 
Const rspMax = 100   ' maximum number of records displayed
55 
Const LENUM_ALL = "ALL"
 55 
Const LENUM_ALL = "ALL"
56 
Const LCONST_STAR = "*"
 56 
Const LCONST_STAR = "*"
57 
'------------ Variable Init -------------------
 57 
'------------ Variable Init -------------------
58 
parPv_id = Request("pv_id")
 58 
parPv_id = Request("pv_id")
59 
parRtag_id = Request("rtag_id")
 59 
parRtag_id = Request("rtag_id")
Line 78... Line 78...
78 
If rspPage = "" Then rspPage = 1
 78 
If rspPage = "" Then rspPage = 1
79 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
 79 
If ( Request("btn") = "Filter" )  OR ( Request("btn") = "Find" ) Then rspPage = 1
80 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
 80 
If (parFRiss_num = "") Then parFRiss_num = LENUM_ALL
81 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
 81 
If (parTitle = "") Then parTitle = LCONST_STAR  ' Default
82 
 
 82 
 
83 
If parFRiss_db = "" Then parFRiss_db = enumCLEARQUEST_DEVI_ID		' Default
 83 
If parFRiss_db = "" Then parFRiss_db = enumCLEARQUEST_DEVI_ID      ' Default
84 
 
 84 
 
85 
If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then
 85 
If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then
86 
	If (parPackage <> "") OR  (parProject <> "")  OR  (parProduct <> "") OR (parTitle <> LCONST_STAR) Then IsOptionUsed = TRUE
 86 
   If (parPackage <> "") OR  (parProject <> "")  OR  (parProduct <> "") OR (parTitle <> LCONST_STAR) Then IsOptionUsed = TRUE
87 
Else
 87 
Else
88 
	If (parCategMain <> "") OR  (parCategMinor <> "") Then IsOptionUsed = TRUE
 88 
   If (parCategMain <> "") OR  (parCategMinor <> "") Then IsOptionUsed = TRUE
89 
End If
 89 
End If
90 
 
 90 
 
91 
' Get DEVI issue states checked
 91 
' Get DEVI issue states checked
92 
Set oIStates = GetIStates()
 92 
Set oIStates = GetIStates()
93 
 
 93 
 
Line 98... Line 98...
98 
'Response.write "parIStates="& parIStates &", parSkipOpen="& parSkipOpen
 98 
'Response.write "parIStates="& parIStates &", parSkipOpen="& parSkipOpen
99 
%>
 99 
%>
100 
<%
 100 
<%
101 
'------------------------------------------------------------------------------------------------------------------------------------
 101 
'------------------------------------------------------------------------------------------------------------------------------------
102 
Function GetIStates()
 102 
Function GetIStates()
103 
	Dim IStates, aStates, stateId
 103 
   Dim IStates, aStates, stateId
104 
	Set IStates = CreateObject("Scripting.Dictionary")
 104 
   Set IStates = CreateObject("Scripting.Dictionary")
105
105 
 
106 
	If parIStates = "" Then
 106 
   If parIStates = "" Then
107 
		IStates.Item ("ALL") = "checked"
 107 
      IStates.Item ("ALL") = "checked"
108 
	Else
 108 
   Else
109
109 
 
110 
		aStates = Split( Replace( parIStates, " ", "" ), ",")
 110 
      aStates = Split( Replace( parIStates, " ", "" ), ",")
111
111 
 
112 
		For Each stateId In aStates
 112 
      For Each stateId In aStates
113 
			IStates.Item (CStr(stateId)) = "checked"
 113 
         IStates.Item (CStr(stateId)) = "checked"
114 
		Next
 114 
      Next
115
115 
 
116
116 
 
117 
	End If
 117 
   End If
118
118 
 
119 
	Set GetIStates = IStates
 119 
   Set GetIStates = IStates
120
120 
 
121 
End Function
 121 
End Function
122 
'------------------------------------------------------------------------------------------------------------------------------------
 122 
'------------------------------------------------------------------------------------------------------------------------------------
123 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ )
 123 
Function Get_Issues ( NNiss_db, NNiss_num, NNrecordCount, OOrsCQ )
124 
	Dim SQLstr, issARR, iss_num, col_name, Title
 124 
   Dim SQLstr, issARR, iss_num, col_name, Title
125
125 
 
126
126 
 
127
127 
 
128 
	If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 128 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
129 
		SQLstr = _
 129 
      SQLstr = _
130 
		" SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 130 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
131 
		"   FROM DEVI_PROD.admin.software_issue si,"&_
 131 
      "   FROM DEVI_PROD.admin.software_issue si,"&_
132 
		"        DEVI_PROD.admin.STATEDEF sd"&_
 132 
      "        DEVI_PROD.admin.STATEDEF sd"&_
133 
		"  WHERE si.STATE = sd.ID "
 133 
      "  WHERE si.STATE = sd.ID "
134
134 
 
135 
	ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 135 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
136 
		SQLstr = _
 136 
      SQLstr = _
137 
		" SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
 137 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
138 
		"   FROM TDSE_2002.admin.request si, "&_
 138 
      "   FROM TDSE_2002.admin.request si, "&_
139 
		"        TDSE_2002.admin.STATEDEF sd"&_
 139 
      "        TDSE_2002.admin.STATEDEF sd"&_
140 
		"  WHERE si.STATE = sd.ID "
 140 
      "  WHERE si.STATE = sd.ID "
141
141 
 
142 
	ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 142 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
143 
		SQLstr = _
 143 
      SQLstr = _
144 
		" SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
 144 
      " SELECT si.dbid AS iss_id, si.new_num AS iss_num, si.headline AS summary, sd.NAME AS state"&_
145 
		"   FROM VT5DM.admin.software_issue si,"&_
 145 
      "   FROM VT5DM.admin.software_issue si,"&_
146 
		"        VT5DM.admin.STATEDEF sd"&_
 146 
      "        VT5DM.admin.STATEDEF sd"&_
147 
		"  WHERE si.STATE = sd.ID "
147 
      "  WHERE si.STATE = sd.ID "
148 
	ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
 148 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
149 
		SQLstr = _
 149 
      SQLstr = _
150 
		" SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
 150 
      " SELECT si.dbid AS iss_id, si.job_number AS iss_num, si.problem_summary AS summary, sd.NAME AS state"&_
151 
		"   FROM VTSUP.admin.request si, "&_
 151 
      "   FROM VTSUP.admin.request si, "&_
152 
		"        VTSUP.admin.STATEDEF sd"&_
 152 
      "        VTSUP.admin.STATEDEF sd"&_
153 
		"  WHERE si.STATE = sd.ID "
153 
      "  WHERE si.STATE = sd.ID "
154
154 
 
155
155 
 
156
156 
 
157 
	End If
 157 
   End If
158
158 
 
159
159 
 
160 
	'-- User filter --
 160 
   '-- User filter --
161 
	If (CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID) OR (CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 161 
   If (CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID) OR (CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
162 
		' Add package Filter
 162 
      ' Add package Filter
163 
		If (parPackage <> "") Then
 163 
      If (parPackage <> "") Then
164 
			SQLstr = SQLstr &" AND  si.package_ref = '"& Replace( parPackage, "'","''" ) &"'"
 164 
         SQLstr = SQLstr &" AND  si.package_ref = '"& Replace( parPackage, "'","''" ) &"'"
165 
		End If
 165 
      End If
166
166 
 
167 
		' Add project Filter
 167 
      ' Add project Filter
168 
		If (parProject <> "") Then
 168 
      If (parProject <> "") Then
169 
			SQLstr = SQLstr &" AND  si.project = '"& Replace( parProject, "'","''" ) &"'"
 169 
         SQLstr = SQLstr &" AND  si.project = '"& Replace( parProject, "'","''" ) &"'"
170 
		End If
 170 
      End If
171
171 
 
172 
		' Add product Filter
 172 
      ' Add product Filter
173 
		If (parProduct <> "") Then
 173 
      If (parProduct <> "") Then
174 
			SQLstr = SQLstr &" AND  si.product = '"& Replace( parProduct, "'","''" ) &"'"
 174 
         SQLstr = SQLstr &" AND  si.product = '"& Replace( parProduct, "'","''" ) &"'"
175 
		End If
 175 
      End If
176
176 
 
177 
		' Add Issue State Filter
 177 
      ' Add Issue State Filter
178 
		If (parIStates <> "") Then
 178 
      If (parIStates <> "") Then
179 
			SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
 179 
         SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
180 
		End If
 180 
      End If
181
181 
 
182 
		' Add Title keyword search
 182 
      ' Add Title keyword search
183 
		If ( parTitle <> LCONST_STAR ) Then
 183 
      If ( parTitle <> LCONST_STAR ) Then
184 
			Title = Replace( parTitle, "'", "''" )
 184 
         Title = Replace( parTitle, "'", "''" )
185 
			Title = Replace( Title, "*", "%" )
 185 
         Title = Replace( Title, "*", "%" )
186 
			SQLstr = SQLstr &" AND  si.headline LIKE ( '"& Title &"' )"
 186 
         SQLstr = SQLstr &" AND  si.headline LIKE ( '"& Title &"' )"
187 
		End If
 187 
      End If
188
188 
 
189 
	ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) OR ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
 189 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) OR ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
190
190 
 
191 
		' Add project Filter
 191 
      ' Add project Filter
192 
		If (parProject <> "") Then
 192 
      If (parProject <> "") Then
193 
			SQLstr = SQLstr &" AND  si.category_main = '"& Replace( parCategMain, "'","''" ) &"'"
 193 
         SQLstr = SQLstr &" AND  si.category_main = '"& Replace( parCategMain, "'","''" ) &"'"
194 
		End If
 194 
      End If
195
195 
 
196 
		' Add product Filter
 196 
      ' Add product Filter
197 
		If (parProduct <> "") Then
 197 
      If (parProduct <> "") Then
198 
			SQLstr = SQLstr &" AND  si.category_minor = '"& Replace( parCategMinor, "'","''" ) &"'"
 198 
         SQLstr = SQLstr &" AND  si.category_minor = '"& Replace( parCategMinor, "'","''" ) &"'"
199 
		End If
 199 
      End If
200 
 
 200 
 
201 
		' Add Issue State Filter
 201 
      ' Add Issue State Filter
202 
		If (parIStates <> "") Then
 202 
      If (parIStates <> "") Then
203 
			SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
 203 
         SQLstr = SQLstr &" AND  sd.id IN ("& parIStates &")"
204 
		End If
204 
      End If
205
205 
 
206 
	End If
 206 
   End If
207
207 
 
208
208 
 
209 
	'-- Keyword search --
 209 
   '-- Keyword search --
210 
	If ( NNiss_num <> LENUM_ALL ) Then
 210 
   If ( NNiss_num <> LENUM_ALL ) Then
211 
		issARR = Split( Replace( NNiss_num, " ", ""), "," )
 211 
      issARR = Split( Replace( NNiss_num, " ", ""), "," )
212
212 
 
213 
		If ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID ) OR ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID ) Then
 213 
      If ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID ) OR ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID ) Then
214 
			col_name = "job_number"
 214 
         col_name = "job_number"
215 
		Else
 215 
      Else
216 
			col_name = "new_num"
 216 
         col_name = "new_num"
217 
		End If
 217 
      End If
218 
		SQLstr = SQLstr & " AND ( "
 218 
      SQLstr = SQLstr & " AND ( "
219 
		For Each iss_num IN issARR
 219 
      For Each iss_num IN issARR
220 
			SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
 220 
         SQLstr = SQLstr &" ("& col_name &" LIKE '%"& iss_num &"%') OR"
221 
		Next
 221 
      Next
222
222 
 
223 
		SQLstr = Left( SQLstr, Len(SQLstr) - 2 )	' Remove last 'OR'
 223 
      SQLstr = Left( SQLstr, Len(SQLstr) - 2 )   ' Remove last 'OR'
224
224 
 
225 
		SQLstr = SQLstr & "     ) "
 225 
      SQLstr = SQLstr & "     ) "
226
226 
 
227 
	End If
 227 
   End If
228
228 
 
229
229 
 
230 
	'-- Get record count ---
 230 
   '-- Get record count ---
231 
	NNrecordCount = Get_Record_Count( SQLstr )
 231 
   NNrecordCount = Get_Record_Count( SQLstr )
232
232 
 
233
233 
 
234 
	'-- Order by --
 234 
   '-- Order by --
235 
	If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
 235 
   If CInt(NNiss_db) = enumCLEARQUEST_DEVI_ID Then
236 
		SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
 236 
      SQLstr = SQLstr &" ORDER BY si.submit_date DESC"
237
237 
 
238 
	ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
 238 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_TDSE_ID) Then
239 
		SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
 239 
      SQLstr = SQLstr &" ORDER BY si.when_reported DESC"
240
240 
 
241 
	ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
 241 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VTSUP_ID) Then
242 
		SQLstr = SQLstr &" ORDER BY si.iss_num DESC"
242 
      SQLstr = SQLstr &" ORDER BY si.iss_num DESC"
243 
 
 243 
 
244 
	ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
 244 
   ElseIf ( CInt(NNiss_db) = enumCLEARQUEST_VT5DM_ID) Then
245 
		SQLstr = SQLstr &" ORDER BY si.new_num DESC"
245 
      SQLstr = SQLstr &" ORDER BY si.new_num DESC"
246
246 
 
247 
	End If
 247 
   End If
248
248 
 
249 
	'Response.write SQLstr
 249 
   'Response.write SQLstr
250
250 
 
251 
	OOrsCQ.ActiveConnection = CQ_conn
 251 
   OOrsCQ.ActiveConnection = CQ_conn
252 
	OOrsCQ.Source = SQLstr
 252 
   OOrsCQ.Source = SQLstr
253 
	OOrsCQ.CursorType = 0
 253 
   OOrsCQ.CursorType = 0
254 
	OOrsCQ.CursorLocation = 2
 254 
   OOrsCQ.CursorLocation = 2
255 
	OOrsCQ.LockType = 3
 255 
   OOrsCQ.LockType = 3
256
256 
 
257 
	On Error Resume Next
 257 
   On Error Resume Next
258 
	OOrsCQ.Open()
 258 
   OOrsCQ.Open()
259
259 
 
260 
	Get_Issues = Err.Number
 260 
   Get_Issues = Err.Number
261
261 
 
262 
End Function
262 
End Function
263 
'------------------------------------------------------------------------------------------------------------------------------------
 263 
'------------------------------------------------------------------------------------------------------------------------------------
264 
Function Get_Record_Count ( SSsql )
 264 
Function Get_Record_Count ( SSsql )
265 
	Dim rsTemp
 265 
   Dim rsTemp
266 
	Set rsTemp = Server.CreateObject("ADODB.Recordset")
 266 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
267 
	rsTemp.ActiveConnection = CQ_conn
 267 
   rsTemp.ActiveConnection = CQ_conn
268
268 
 
269 
	rsTemp.Source = _
 269 
   rsTemp.Source = _
270 
	" SELECT COUNT(*) as record_count "&_
 270 
   " SELECT COUNT(*) as record_count "&_
271 
	"   FROM ("& SSsql &") ct"
 271 
   "   FROM ("& SSsql &") ct"
272
272 
 
273 
	rsTemp.CursorType = 0
 273 
   rsTemp.CursorType = 0
274 
	rsTemp.CursorLocation = 2
 274 
   rsTemp.CursorLocation = 2
275 
	rsTemp.LockType = 3
 275 
   rsTemp.LockType = 3
276 
	rsTemp.Open()
 276 
   rsTemp.Open()
277
277 
 
278 
	If (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) Then
278 
   If (NOT rsTemp.BOF) AND (NOT rsTemp.EOF) Then
279 
		Get_Record_Count = rsTemp("record_count")
 279 
      Get_Record_Count = rsTemp("record_count")
280 
	Else
 280 
   Else
281 
		Get_Record_Count = 0
 281 
      Get_Record_Count = 0
282 
	End If
 282 
   End If
283
283 
 
284 
	rsTemp.Close
 284 
   rsTemp.Close
285 
	Set rsTemp = nothing
 285 
   Set rsTemp = nothing
286 
End Function
 286 
End Function
287 
'------------------------------------------------------------------------------------------------------------------------------------
 287 
'------------------------------------------------------------------------------------------------------------------------------------
288 
Sub Get_CQ_Issues_States ( sIssIdList, nIssDB, outObjCQissState )
 288 
Sub Get_CQ_Issues_States ( sIssIdList, nIssDB, outObjCQissState )
289 
	Dim rsTemp, SQLstr
 289 
   Dim rsTemp, SQLstr
290 
	Set rsTemp = Server.CreateObject("ADODB.Recordset")
 290 
   Set rsTemp = Server.CreateObject("ADODB.Recordset")
291 
	rsTemp.ActiveConnection = CQ_conn
 291 
   rsTemp.ActiveConnection = CQ_conn
292
292 
 
293 
	If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
 293 
   If CInt(nIssDB) = enumCLEARQUEST_DEVI_ID Then
294 
		SQLstr = _
 294 
      SQLstr = _
295 
		" SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 295 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
296 
		"  FROM DEVI_PROD.admin.software_issue si,"&_
 296 
      "  FROM DEVI_PROD.admin.software_issue si,"&_
297 
		"       DEVI_PROD.admin.statedef sd"&_
 297 
      "       DEVI_PROD.admin.statedef sd"&_
298 
		" WHERE si.STATE = sd.ID"&_
 298 
      " WHERE si.STATE = sd.ID"&_
299 
		"   AND si.dbid IN ("& sIssIdList &")"
 299 
      "   AND si.dbid IN ("& sIssIdList &")"
300
300 
 
301 
	ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
 301 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_TDSE_ID Then
302 
		SQLstr = _
 302 
      SQLstr = _
303 
		" SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 303 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
304 
		"  FROM TDSE_2002.admin.request si,"&_
 304 
      "  FROM TDSE_2002.admin.request si,"&_
305 
		"       TDSE_2002.admin.statedef sd"&_
 305 
      "       TDSE_2002.admin.statedef sd"&_
306 
		" WHERE si.STATE = sd.ID"&_
 306 
      " WHERE si.STATE = sd.ID"&_
307 
		"   AND si.dbid IN ("& sIssIdList &")"
 307 
      "   AND si.dbid IN ("& sIssIdList &")"
308 
	ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
 308 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VT5DM_ID Then
309 
		SQLstr = _
 309 
      SQLstr = _
310 
		" SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 310 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
311 
		"  FROM VT5DM.admin.software_issue si,"&_
 311 
      "  FROM VT5DM.admin.software_issue si,"&_
312 
		"       VT5DM.admin.statedef sd"&_
 312 
      "       VT5DM.admin.statedef sd"&_
313 
		" WHERE si.STATE = sd.ID"&_
 313 
      " WHERE si.STATE = sd.ID"&_
314 
		"   AND si.dbid IN ("& sIssIdList &")"
 314 
      "   AND si.dbid IN ("& sIssIdList &")"
315 
	ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
 315 
   ElseIf CInt(nIssDB) = enumCLEARQUEST_VTSUP_ID Then
316 
		SQLstr = _
 316 
      SQLstr = _
317 
		" SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
 317 
      " SELECT si.dbid, sd.name AS state_name, si.state AS state_id"&_
318 
		"  FROM VTSUP.admin.request si,"&_
 318 
      "  FROM VTSUP.admin.request si,"&_
319 
		"       VTSUP.admin.statedef sd"&_
 319 
      "       VTSUP.admin.statedef sd"&_
320 
		" WHERE si.STATE = sd.ID"&_
 320 
      " WHERE si.STATE = sd.ID"&_
321 
		"   AND si.dbid IN ("& sIssIdList &")"
321 
      "   AND si.dbid IN ("& sIssIdList &")"
322
322 
 
323
323 
 
324 
	End If
 324 
   End If
325
325 
 
326
326 
 
327 
	rsTemp.Source = SQLstr
 327 
   rsTemp.Source = SQLstr
328 
	rsTemp.CursorType = 0
 328 
   rsTemp.CursorType = 0
329 
	rsTemp.CursorLocation = 2
 329 
   rsTemp.CursorLocation = 2
330 
	rsTemp.LockType = 3
 330 
   rsTemp.LockType = 3
331 
	rsTemp.Open()
 331 
   rsTemp.Open()
332
332 
 
333 
	While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
333 
   While (NOT rsTemp.BOF) AND (NOT rsTemp.EOF)
334 
		outObjCQissState.Add CStr(rsTemp("dbid")), CStr(rsTemp("state_name"))
 334 
      outObjCQissState.Add CStr(rsTemp("dbid")), CStr(rsTemp("state_name"))
335 
		rsTemp.MoveNext
 335 
      rsTemp.MoveNext
336 
	WEnd
 336 
   WEnd
337
337 
 
338 
	rsTemp.Close
 338 
   rsTemp.Close
339 
	Set rsTemp = nothing
 339 
   Set rsTemp = nothing
340 
End Sub
 340 
End Sub
341 
'------------------------------------------------------------------------------------------------------------------------------------
 341 
'------------------------------------------------------------------------------------------------------------------------------------
342 
Function Is_Pkg_Official ( nPv_id )
 342 
Function Is_Pkg_Official ( nPv_id )
343 
	Dim rsTemp, Query_String
 343 
   Dim rsTemp, Query_String
344 
	Query_String = _
 344 
   Query_String = _
345 
	" SELECT dlocked"&_
 345 
   " SELECT dlocked"&_
346 
	"  FROM package_versions "&_
 346 
   "  FROM package_versions "&_
347 
	" WHERE pv_id = "& nPv_id
 347 
   " WHERE pv_id = "& nPv_id
348 
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 348 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
349 
	If rsTemp("dlocked") = "Y" Then
 349 
   If rsTemp("dlocked") = "Y" Then
350 
		Is_Pkg_Official = TRUE
 350 
      Is_Pkg_Official = TRUE
351 
	Else
 351 
   Else
352 
		Is_Pkg_Official = FALSE
 352 
      Is_Pkg_Official = FALSE
353 
	End If
 353 
   End If
354 
	rsTemp.Close
 354 
   rsTemp.Close
355 
	Set rsTemp = nothing
 355 
   Set rsTemp = nothing
356 
End Function
 356 
End Function
357 
'------------------------------------------------------------------------------------------------------------------------------------
 357 
'------------------------------------------------------------------------------------------------------------------------------------
358 
Function Set_Issue_State ( sCQState )
 358 
Function Set_Issue_State ( sCQState )
359 
	If parSkipOpen <> "" Then
 359 
   If parSkipOpen <> "" Then
360 
		Set_Issue_State = enumISSUES_STATE_FIXED
 360 
      Set_Issue_State = enumISSUES_STATE_FIXED
361
361 
 
362 
	Else
 362 
   Else
363 
		Set_Issue_State = enumISSUES_STATE_IMPORTED
 363 
      Set_Issue_State = enumISSUES_STATE_IMPORTED
364
364 
 
365 
	End If
 365 
   End If
366 
End Function
 366 
End Function
367 
'------------------------------------------------------------------------------------------------------------------------------------
 367 
'------------------------------------------------------------------------------------------------------------------------------------
368 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
 368 
Sub Import_Issues ( NNpv_id, NNiss_db, NNiss_id_list )
369 
	Dim issArr, iss_id, oCQissState, iss_num, iss_state, iss_state_human_readable
 369 
   Dim issArr, iss_id, oCQissState, iss_num, iss_state, iss_state_human_readable
370 
	If NNiss_id_list = "" Then Exit Sub
 370 
   If NNiss_id_list = "" Then Exit Sub
371 
	Set oCQissState = CreateObject("Scripting.Dictionary")
 371 
   Set oCQissState = CreateObject("Scripting.Dictionary")
372
372 
 
373 
	issArr = Split ( NNiss_id_list, ",")
 373 
   issArr = Split ( NNiss_id_list, ",")
374
374 
 
375 
	Call Get_CQ_Issues_States ( NNiss_id_list, NNiss_db, oCQissState )
 375 
   Call Get_CQ_Issues_States ( NNiss_id_list, NNiss_db, oCQissState )
376
376 
 
- 
 
 377 
   objEH.TryORA ( OraSession )
377 
	On Error Resume Next
 378 
   On Error Resume Next
378 
	OraSession.BeginTrans
 - 
 
379
379 
 
380 
	For Each iss_id In issArr
 380 
   For Each iss_id In issArr
381 
		iss_num = GetIssueNumber ( NNiss_db, iss_id )
 381 
      iss_num = GetIssueNumber ( NNiss_db, iss_id )
382 
		iss_state = Set_Issue_State ( oCQissState.Item (Trim(iss_id)) )
 382 
      iss_state = Set_Issue_State ( oCQissState.Item (Trim(iss_id)) )
383
383 
 
- 
 
 384 
      If Err.Number = 0 Then
384 
		OraDatabase.ExecuteSQL _
 385 
         OraDatabase.ExecuteSQL _
385 
			" INSERT INTO cq_issues ( pv_id, iss_db, iss_id, iss_state, mod_date )"&_
 386 
            " INSERT INTO cq_issues ( pv_id, iss_db, iss_id, iss_state, mod_date )"&_
386 
			" VALUES ( "& NNpv_id &", "& NNiss_db &", "& iss_id &", "& iss_state &", "& ORA_SYSDATE &")"
 387 
            " VALUES ( "& NNpv_id &", "& NNiss_db &", "& iss_id &", "& iss_state &", "& ORA_SYSDATE &")"
387
388 
 
388 
		If iss_state = 0 Then
 389 
         If iss_state = 0 Then
389 
			iss_state_human_readable = "No"
 390 
            iss_state_human_readable = "No"
390 
		Else
 391 
         Else
391 
			iss_state_human_readable = "Yes"
 392 
            iss_state_human_readable = "Yes"
392 
		End If
 393 
         End If
393
394 
 
- 
 
 395 
         If Err.Number = 0 Then
394 
		OraDatabase.ExecuteSQL _
 396 
            OraDatabase.ExecuteSQL _
395 
			"BEGIN  Log_Action ( "& NNpv_id &", 'issue_add', "& objAccessControl.UserId &", 'Issue number: "& iss_num &", Fixed: "& iss_state_human_readable &"' );  END;"
 397 
               "BEGIN  Log_Action ( "& NNpv_id &", 'issue_add', "& objAccessControl.UserId &", 'Issue number: "& iss_num &", Fixed: "& iss_state_human_readable &"' );  END;"
- 
 
 398 
         End If
- 
 
 399 
      End If
396
400 
 
397 
	Next
 401 
   Next
398
402 
 
399 
	OraSession.CommitTrans
 403 
   objEH.CatchORA ( OraSession )
400 
End Sub
 404 
End Sub
401 
'------------------------------------------------------------------------------------------------------------------------------------
 405 
'------------------------------------------------------------------------------------------------------------------------------------
402 
%>
 406 
%>
403 
<%
 407 
<%
404 
'Process submition
 408 
'Process submition
405 
If CBool(Request("action")) AND (Request("btn") = "Import")  AND objAccessControl.UserLogedIn Then
 409 
If CBool(Request("action")) AND (Request("btn") = "Import")  AND objAccessControl.UserLogedIn Then
406 
	Call Import_Issues ( parPv_id, parFRiss_db, parFRiss_id )
 410 
   Call Import_Issues ( parPv_id, parFRiss_db, parFRiss_id )
407 
	imported = TRUE
 411 
   imported = TRUE
408 
	Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
 412 
   Call OpenInParentWindow ("fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id)
409
413 
 
410 
End If
 414 
End If
411 
%>
 415 
%>
412 
<%
 416 
<%
413 
'-------------- Main Line ---------------
 417 
'-------------- Main Line ---------------
414 
retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ )
 418 
retVal = Get_Issues ( parFRiss_db, parFRiss_num, rspTotal, rsCQ )
Line 425... Line 429...
425 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
 429 
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
426 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
 430 
<link rel="stylesheet" href="images/navigation.css" type="text/css">
427 
<script language="JavaScript" src="images/common.js"></script>
 431 
<script language="JavaScript" src="images/common.js"></script>
428 
<script language="javascript">
 432 
<script language="javascript">
429 
<!--
 433 
<!--
430 
	function toggleOptions()
 434 
   function toggleOptions()
431 
	{
 435 
   {
432 
		var dbOpt = MM_findObj("FRiss_db");
 436 
      var dbOpt = MM_findObj("FRiss_db");
433 
		var dbName = dbOpt.options[dbOpt.selectedIndex].text;
 437 
      var dbName = dbOpt.options[dbOpt.selectedIndex].text;
434
438 
 
435 
		if (dbName == "DEVI")
 439 
      if (dbName == "DEVI")
436 
		{
 440 
      {
437 
			MM_findObj("DIVOPTIONSTDSE").style.display = "none";
 441 
         MM_findObj("DIVOPTIONSTDSE").style.display = "none";
438 
			MM_findObj("DIVOPTIONSDEVI").style.display = "block";
 442 
         MM_findObj("DIVOPTIONSDEVI").style.display = "block";
439 
		}
 443 
      }
440 
		else
 444 
      else
441 
		{
 445 
      {
442 
			MM_findObj("DIVOPTIONSDEVI").style.display = "none";
 446 
         MM_findObj("DIVOPTIONSDEVI").style.display = "none";
443 
			MM_findObj("DIVOPTIONSTDSE").style.display = "block";
 447 
         MM_findObj("DIVOPTIONSTDSE").style.display = "block";
444 
		}
 448 
      }
445 
	}
 449 
   }
446 
//-->
 450 
//-->
447 
</script>
 451 
</script>
448 
</head>
 452 
</head>
449 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 453 
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
450 
<%If retVal = 0 Then%>
 454 
<%If retVal = 0 Then%>
Line 459... Line 463...
459 
        </tr>
 463 
        </tr>
460 
        <tr>
 464 
        <tr>
461 
          <td align="left" class="wform_ttl">Database</td>
 465 
          <td align="left" class="wform_ttl">Database</td>
462 
          <td><select name="FRiss_db" class="form_item" id="FRiss_db" onChange="toggleOptions();">
 466 
          <td><select name="FRiss_db" class="form_item" id="FRiss_db" onChange="toggleOptions();">
463 
            <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
 467 
            <option value="<%=enumCLEARQUEST_DEVI_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_DEVI_ID Then%>selected<%End If%>>DEVI</option>
464 
			<option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
 468 
         <option value="<%=enumCLEARQUEST_TDSE_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_TDSE_ID Then%>selected<%End If%>>TDSE</option>
465 
			<%If objAccessControl.IsActive("ImportVasttrafikIssues") Then%>
469 
         <%If objAccessControl.IsActive("ImportVasttrafikIssues") Then%>
466 
			<option value="<%=enumCLEARQUEST_VT5DM_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>selected<%End If%>>VT5DM</option>
 470 
         <option value="<%=enumCLEARQUEST_VT5DM_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VT5DM_ID Then%>selected<%End If%>>VT5DM</option>
467 
			<option value="<%=enumCLEARQUEST_VTSUP_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>selected<%End If%>>VTSUP</option>
 471 
         <option value="<%=enumCLEARQUEST_VTSUP_ID%>" <%If CInt(parFRiss_db) = enumCLEARQUEST_VTSUP_ID Then%>selected<%End If%>>VTSUP</option>
468 
			<%End If%>
472 
         <%End If%>
469 
          </select></td>
 473 
          </select></td>
470 
        </tr>
 474 
        </tr>
471 
        <tr>
 475 
        <tr>
472 
          <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 476 
          <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
473 
          <td><a href="javascript:;" onClick="ToggleDisplay('DIVOPTIONS');" class="form_wtxt_link">Options...</a></td>
 477 
          <td><a href="javascript:;" onClick="ToggleDisplay('DIVOPTIONS');" class="form_wtxt_link">Options...</a></td>
474 
        </tr>
 478 
        </tr>
475 
      </table>
479 
      </table>
476
480 
 
477 
<DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
 481 
<DIV id="DIVOPTIONS" <%If IsOptionUsed Then%>style="display:block;"<%Else%>style="display:none;"<%End If%>>
478 
	  	<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%>>
 482 
        <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%>>
479 
        <table width="100" border="0" cellspacing="5" cellpadding="0">
 483 
        <table width="100" border="0" cellspacing="5" cellpadding="0">
480 
          <tr>
 484 
          <tr>
481 
            <td align="left" class="wform_ttl" valign="top">Title</td>
 485 
            <td align="left" class="wform_ttl" valign="top">Title</td>
482 
            <td class="form_wtxt_link"><input name="title" type="text" class="form_item" id="title" value="<%=parTitle%>" style="width:100%;"> * Wildcard available</td>
 486 
            <td class="form_wtxt_link"><input name="title" type="text" class="form_item" id="title" value="<%=parTitle%>" style="width:100%;"> * Wildcard available</td>
483 
          </tr>
 487 
          </tr>
484 
          <tr>
 488 
          <tr>
485 
            <td align="left" class="wform_ttl">Package</td>
 489 
            <td align="left" class="wform_ttl">Package</td>
486 
            <td><select name="package" class="form_item" id="package" style="width:100%;">
 490 
            <td><select name="package" class="form_item" id="package" style="width:100%;">
487 
              <option value="">ALL</option>
 491 
              <option value="">ALL</option>
488 
              <%
 492 
              <%
489 
			'---- PACKAGES ----
 493 
         '---- PACKAGES ----
490 
			Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 494 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
491 
			rsCQTemp.ActiveConnection = CQ_conn
 495 
         rsCQTemp.ActiveConnection = CQ_conn
492
496 
 
493 
			'-- Get projects
 497 
         '-- Get projects
494 
			SQLstr = _
 498 
         SQLstr = _
495 
			"SELECT si.PACKAGE_REF"&_
 499 
         "SELECT si.PACKAGE_REF"&_
496 
			"  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
 500 
         "  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
497 
			" WHERE NOT si.PACKAGE_REF IS NULL"&_
 501 
         " WHERE NOT si.PACKAGE_REF IS NULL"&_
498 
			" GROUP BY si.PACKAGE_REF"&_
 502 
         " GROUP BY si.PACKAGE_REF"&_
499 
			" ORDER BY si.PACKAGE_REF"
 503 
         " ORDER BY si.PACKAGE_REF"
500
504 
 
501 
			rsCQTemp.Source = SQLstr
 505 
         rsCQTemp.Source = SQLstr
502 
			rsCQTemp.CursorType = 0
 506 
         rsCQTemp.CursorType = 0
503 
			rsCQTemp.CursorLocation = 2
 507 
         rsCQTemp.CursorLocation = 2
504 
			rsCQTemp.LockType = 3
 508 
         rsCQTemp.LockType = 3
505 
			rsCQTemp.Open()
 509 
         rsCQTemp.Open()
506
510 
 
507 
  			While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 511 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
508 
			  %>
 512 
           %>
509 
              <option value="<%=rsCQTemp("package_ref")%>" <%If parPackage = Cstr(rsCQTemp("package_ref")) Then%>selected<%End If%>><%=rsCQTemp("package_ref")%></option>
 513 
              <option value="<%=rsCQTemp("package_ref")%>" <%If parPackage = Cstr(rsCQTemp("package_ref")) Then%>selected<%End If%>><%=rsCQTemp("package_ref")%></option>
510 
              <%rsCQTemp.MoveNext
 514 
              <%rsCQTemp.MoveNext
511 
			WEnd
 515 
         WEnd
512 
			rsCQTemp.Close()
 516 
         rsCQTemp.Close()
513 
			%>
 517 
         %>
514 
            </select></td>
 518 
            </select></td>
515 
          </tr>
 519 
          </tr>
516 
          <tr>
 520 
          <tr>
517 
            <td align="left" class="wform_ttl">Project</td>
 521 
            <td align="left" class="wform_ttl">Project</td>
518 
            <td><select name="project" class="form_item" id="project" style="width:100%;">
 522 
            <td><select name="project" class="form_item" id="project" style="width:100%;">
519 
              <option value="">ALL</option>
 523 
              <option value="">ALL</option>
520 
              <%
 524 
              <%
521 
			'---- PROJECT ----
 525 
         '---- PROJECT ----
522 
			Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 526 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
523 
			rsCQTemp.ActiveConnection = CQ_conn
 527 
         rsCQTemp.ActiveConnection = CQ_conn
524
528 
 
525 
			'-- Get projects
 529 
         '-- Get projects
526 
			SQLstr = _
 530 
         SQLstr = _
527 
			"SELECT si.PROJECT"&_
 531 
         "SELECT si.PROJECT"&_
528 
			"  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
 532 
         "  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
529 
			" WHERE NOT si.PROJECT IS NULL"&_
 533 
         " WHERE NOT si.PROJECT IS NULL"&_
530 
			" GROUP BY si.PROJECT"&_
 534 
         " GROUP BY si.PROJECT"&_
531 
			" ORDER BY si.PROJECT"
 535 
         " ORDER BY si.PROJECT"
532
536 
 
533 
			rsCQTemp.Source = SQLstr
 537 
         rsCQTemp.Source = SQLstr
534 
			rsCQTemp.CursorType = 0
 538 
         rsCQTemp.CursorType = 0
535 
			rsCQTemp.CursorLocation = 2
 539 
         rsCQTemp.CursorLocation = 2
536 
			rsCQTemp.LockType = 3
 540 
         rsCQTemp.LockType = 3
537 
			rsCQTemp.Open()
 541 
         rsCQTemp.Open()
538
542 
 
539 
  			While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 543 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
540 
			  %>
 544 
           %>
541 
              <option value="<%=rsCQTemp("project")%>" <%If parProject = Cstr(rsCQTemp("project")) Then%>selected<%End If%>><%=rsCQTemp("project")%></option>
 545 
              <option value="<%=rsCQTemp("project")%>" <%If parProject = Cstr(rsCQTemp("project")) Then%>selected<%End If%>><%=rsCQTemp("project")%></option>
542 
              <%rsCQTemp.MoveNext
 546 
              <%rsCQTemp.MoveNext
543 
			WEnd
 547 
         WEnd
544 
			rsCQTemp.Close()
 548 
         rsCQTemp.Close()
545 
			%>
 549 
         %>
546 
            </select></td>
 550 
            </select></td>
547 
          </tr>
 551 
          </tr>
548 
          <tr>
 552 
          <tr>
549 
            <td align="left" class="wform_ttl">Product</td>
 553 
            <td align="left" class="wform_ttl">Product</td>
550 
            <td><select name="product" class="form_item" id="product" style="width:100%;">
 554 
            <td><select name="product" class="form_item" id="product" style="width:100%;">
551 
                <option value="">ALL</option>
 555 
                <option value="">ALL</option>
552 
                <%
 556 
                <%
553 
			'---- PRODUCT ----
 557 
         '---- PRODUCT ----
554 
			Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 558 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
555 
			rsCQTemp.ActiveConnection = CQ_conn
 559 
         rsCQTemp.ActiveConnection = CQ_conn
556
560 
 
557 
			'-- Get projects
 561 
         '-- Get projects
558 
			SQLstr = _
 562 
         SQLstr = _
559 
			"SELECT si.PRODUCT"&_
 563 
         "SELECT si.PRODUCT"&_
560 
			"  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
 564 
         "  FROM DEVI_PROD.admin.SOFTWARE_ISSUE si"&_
561 
			" WHERE NOT si.PRODUCT IS NULL"&_
 565 
         " WHERE NOT si.PRODUCT IS NULL"&_
562 
			" GROUP BY si.PRODUCT"&_
 566 
         " GROUP BY si.PRODUCT"&_
563 
			" ORDER BY si.PRODUCT"
 567 
         " ORDER BY si.PRODUCT"
564
568 
 
565 
			rsCQTemp.Source = SQLstr
 569 
         rsCQTemp.Source = SQLstr
566 
			rsCQTemp.CursorType = 0
 570 
         rsCQTemp.CursorType = 0
567 
			rsCQTemp.CursorLocation = 2
 571 
         rsCQTemp.CursorLocation = 2
568 
			rsCQTemp.LockType = 3
 572 
         rsCQTemp.LockType = 3
569 
			rsCQTemp.Open()
 573 
         rsCQTemp.Open()
570
574 
 
571 
  			While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 575 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
572 
			  %>
 576 
           %>
573 
                <option value="<%=rsCQTemp("product")%>" <%If parProduct = Cstr(rsCQTemp("product")) Then%>selected<%End If%>><%=rsCQTemp("product")%></option>
 577 
                <option value="<%=rsCQTemp("product")%>" <%If parProduct = Cstr(rsCQTemp("product")) Then%>selected<%End If%>><%=rsCQTemp("product")%></option>
574 
                <%rsCQTemp.MoveNext
 578 
                <%rsCQTemp.MoveNext
575 
			WEnd
 579 
         WEnd
576 
			rsCQTemp.Close()
 580 
         rsCQTemp.Close()
577 
			%>
 581 
         %>
578 
            </select></td>
 582 
            </select></td>
579 
          </tr>
 583 
          </tr>
580 
          <tr>
 584 
          <tr>
581 
            <td align="left" class="wform_ttl">&nbsp;</td>
 585 
            <td align="left" class="wform_ttl">&nbsp;</td>
582 
            <td><fieldset>
 586 
            <td><fieldset>
583 
              <legend class="form_wtxt_link">Issue Status </legend>
 587 
              <legend class="form_wtxt_link">Issue Status </legend>
584 
			  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 588 
           <table width="100%"  border="0" cellspacing="0" cellpadding="0">
585 
			  <%
 589 
           <%
586 
				'---- ISSUE STATES ----
 590 
            '---- ISSUE STATES ----
587 
				Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 591 
            Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
588 
				rsCQTemp.ActiveConnection = CQ_conn
 592 
            rsCQTemp.ActiveConnection = CQ_conn
589
593 
 
590 
				'-- Get Issuestates
 594 
            '-- Get Issuestates
591 
				SQLstr = _
 595 
            SQLstr = _
592 
				" SELECT sd.ID,"&_
 596 
            " SELECT sd.ID,"&_
593 
				"       sd.NAME"&_
 597 
            "       sd.NAME"&_
594 
				"  FROM DEVI_PROD.admin.STATEDEF sd"&_
 598 
            "  FROM DEVI_PROD.admin.STATEDEF sd"&_
595 
				" ORDER BY sd.ORDINAL"
 599 
            " ORDER BY sd.ORDINAL"
596
600 
 
597 
				rsCQTemp.Source = SQLstr
 601 
            rsCQTemp.Source = SQLstr
598 
				rsCQTemp.CursorType = 0
 602 
            rsCQTemp.CursorType = 0
599 
				rsCQTemp.CursorLocation = 2
 603 
            rsCQTemp.CursorLocation = 2
600 
				rsCQTemp.LockType = 3
 604 
            rsCQTemp.LockType = 3
601 
				rsCQTemp.Open()
 605 
            rsCQTemp.Open()
602
606 
 
603 
	  			While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 607 
              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
604 
					checked = ""
 608 
               checked = ""
605
609 
 
606 
					If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
 610 
               If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
607
611 
 
608 
				  %>
 612 
              %>
609 
					<tr>
 613 
               <tr>
610 
	                  <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
 614 
                     <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
611 
	                  <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
 615 
                     <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
612 
	                </tr>
 616 
                   </tr>
613 
	                <%rsCQTemp.MoveNext
 617 
                   <%rsCQTemp.MoveNext
614 
				WEnd
 618 
            WEnd
615 
				rsCQTemp.Close()
 619 
            rsCQTemp.Close()
616 
				%>
 620 
            %>
617 
            </table>
 621 
            </table>
618 
			</fieldset></td>
 622 
         </fieldset></td>
619 
          </tr>
 623 
          </tr>
620 
          <tr>
 624 
          <tr>
621 
            <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 625 
            <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
622 
            <td><img src="images/spacer.gif" width="100" height="1"></td>
 626 
            <td><img src="images/spacer.gif" width="100" height="1"></td>
623 
          </tr>
 627 
          </tr>
624 
        </table>
 628 
        </table>
625 
		</DIV>
629 
      </DIV>
626 
		<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%>>
 630 
      <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%>>
627 
        <table width="100" border="0" cellspacing="5" cellpadding="0">
 631 
        <table width="100" border="0" cellspacing="5" cellpadding="0">
628
632 
 
629 
		  <tr>
 633 
        <tr>
630 
            <td align="left" class="wform_ttl">Project</td>
 634 
            <td align="left" class="wform_ttl">Project</td>
631 
            <td><select name="categmain" class="form_item" id="categmain" style="width:100%;">
 635 
            <td><select name="categmain" class="form_item" id="categmain" style="width:100%;">
632 
              <option value="">ALL</option>
 636 
              <option value="">ALL</option>
633 
              <%
 637 
              <%
634 
			'---- PROJECT ----
 638 
         '---- PROJECT ----
635 
			Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 639 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
636 
			rsCQTemp.ActiveConnection = CQ_conn
 640 
         rsCQTemp.ActiveConnection = CQ_conn
637
641 
 
638 
			'-- Get projects
 642 
         '-- Get projects
639 
			SQLstr = _
 643 
         SQLstr = _
640 
			"SELECT si.CATEGORY_MAIN"&_
 644 
         "SELECT si.CATEGORY_MAIN"&_
641 
			"  FROM TDSE_2002.admin.REQUEST si"&_
 645 
         "  FROM TDSE_2002.admin.REQUEST si"&_
642 
			" WHERE NOT si.CATEGORY_MAIN IS NULL"&_
 646 
         " WHERE NOT si.CATEGORY_MAIN IS NULL"&_
643 
			" GROUP BY si.CATEGORY_MAIN"&_
 647 
         " GROUP BY si.CATEGORY_MAIN"&_
644 
			" ORDER BY si.CATEGORY_MAIN"
 648 
         " ORDER BY si.CATEGORY_MAIN"
645
649 
 
646 
			rsCQTemp.Source = SQLstr
 650 
         rsCQTemp.Source = SQLstr
647 
			rsCQTemp.CursorType = 0
 651 
         rsCQTemp.CursorType = 0
648 
			rsCQTemp.CursorLocation = 2
 652 
         rsCQTemp.CursorLocation = 2
649 
			rsCQTemp.LockType = 3
 653 
         rsCQTemp.LockType = 3
650 
			rsCQTemp.Open()
 654 
         rsCQTemp.Open()
651
655 
 
652 
  			While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 656 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
653 
			  %>
 657 
           %>
654 
              <option value="<%=rsCQTemp("CATEGORY_MAIN")%>" <%If parCategMain = Cstr(rsCQTemp("CATEGORY_MAIN")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MAIN")%></option>
 658 
              <option value="<%=rsCQTemp("CATEGORY_MAIN")%>" <%If parCategMain = Cstr(rsCQTemp("CATEGORY_MAIN")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MAIN")%></option>
655 
              <%rsCQTemp.MoveNext
 659 
              <%rsCQTemp.MoveNext
656 
			WEnd
 660 
         WEnd
657 
			rsCQTemp.Close()
 661 
         rsCQTemp.Close()
658 
			%>
 662 
         %>
659 
            </select></td>
 663 
            </select></td>
660 
          </tr>
 664 
          </tr>
661 
          <tr>
 665 
          <tr>
662 
            <td align="left" class="wform_ttl">Product</td>
 666 
            <td align="left" class="wform_ttl">Product</td>
663 
            <td><select name="categminor" class="form_item" id="categminor" style="width:100%;">
 667 
            <td><select name="categminor" class="form_item" id="categminor" style="width:100%;">
664 
              <option value="">ALL</option>
 668 
              <option value="">ALL</option>
665 
              <%
 669 
              <%
666 
			'---- PRODUCT ----
 670 
         '---- PRODUCT ----
667 
			Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 671 
         Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
668 
			rsCQTemp.ActiveConnection = CQ_conn
 672 
         rsCQTemp.ActiveConnection = CQ_conn
669
673 
 
670 
			'-- Get product
 674 
         '-- Get product
671 
			SQLstr = _
 675 
         SQLstr = _
672 
			"SELECT si.CATEGORY_MINOR"&_
 676 
         "SELECT si.CATEGORY_MINOR"&_
673 
			"  FROM TDSE_2002.admin.REQUEST si"&_
 677 
         "  FROM TDSE_2002.admin.REQUEST si"&_
674 
			" WHERE NOT si.CATEGORY_MINOR IS NULL"&_
 678 
         " WHERE NOT si.CATEGORY_MINOR IS NULL"&_
675 
			" GROUP BY si.CATEGORY_MINOR"&_
 679 
         " GROUP BY si.CATEGORY_MINOR"&_
676 
			" ORDER BY si.CATEGORY_MINOR"
 680 
         " ORDER BY si.CATEGORY_MINOR"
677
681 
 
678 
			rsCQTemp.Source = SQLstr
 682 
         rsCQTemp.Source = SQLstr
679 
			rsCQTemp.CursorType = 0
 683 
         rsCQTemp.CursorType = 0
680 
			rsCQTemp.CursorLocation = 2
 684 
         rsCQTemp.CursorLocation = 2
681 
			rsCQTemp.LockType = 3
 685 
         rsCQTemp.LockType = 3
682 
			rsCQTemp.Open()
 686 
         rsCQTemp.Open()
683
687 
 
684 
  			While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 688 
           While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
685 
			  %>
 689 
           %>
686 
              <option value="<%=rsCQTemp("CATEGORY_MINOR")%>" <%If parCategMinor = Cstr(rsCQTemp("CATEGORY_MINOR")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MINOR")%></option>
 690 
              <option value="<%=rsCQTemp("CATEGORY_MINOR")%>" <%If parCategMinor = Cstr(rsCQTemp("CATEGORY_MINOR")) Then%>selected<%End If%>><%=rsCQTemp("CATEGORY_MINOR")%></option>
687 
              <%rsCQTemp.MoveNext
 691 
              <%rsCQTemp.MoveNext
688 
			WEnd
 692 
         WEnd
689 
			rsCQTemp.Close()
 693 
         rsCQTemp.Close()
690 
			%>
 694 
         %>
691 
            </select></td>
 695 
            </select></td>
692 
          </tr>
 696 
          </tr>
693 
          <tr>
 697 
          <tr>
694 
            <td align="left" class="wform_ttl">&nbsp;</td>
 698 
            <td align="left" class="wform_ttl">&nbsp;</td>
695 
            <td><fieldset>
 699 
            <td><fieldset>
696 
              <legend class="form_wtxt_link">Issue Status </legend>
 700 
              <legend class="form_wtxt_link">Issue Status </legend>
697 
			  <table width="100%"  border="0" cellspacing="0" cellpadding="0">
 701 
           <table width="100%"  border="0" cellspacing="0" cellpadding="0">
698 
			  <%
 702 
           <%
699 
				'---- ISSUE STATES ----
 703 
            '---- ISSUE STATES ----
700 
				Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
 704 
            Set rsCQTemp = Server.CreateObject("ADODB.Recordset")
701 
				rsCQTemp.ActiveConnection = CQ_conn
 705 
            rsCQTemp.ActiveConnection = CQ_conn
702
706 
 
703 
				'-- Get Issuestates
 707 
            '-- Get Issuestates
704 
				SQLstr = _
 708 
            SQLstr = _
705 
				" SELECT sd.ID,"&_
 709 
            " SELECT sd.ID,"&_
706 
				"       sd.NAME"&_
 710 
            "       sd.NAME"&_
707 
				"  FROM TDSE_2002.admin.STATEDEF sd"&_
 711 
            "  FROM TDSE_2002.admin.STATEDEF sd"&_
708 
				" UNION "&_
 712 
            " UNION "&_
709 
				" SELECT sd.ID,"&_
 713 
            " SELECT sd.ID,"&_
710 
				"       sd.NAME"&_
 714 
            "       sd.NAME"&_
711 
				"  FROM VTSUP.admin.STATEDEF sd"
 715 
            "  FROM VTSUP.admin.STATEDEF sd"
712
716 
 
713 
				rsCQTemp.Source = SQLstr
 717 
            rsCQTemp.Source = SQLstr
714 
				rsCQTemp.CursorType = 0
 718 
            rsCQTemp.CursorType = 0
715 
				rsCQTemp.CursorLocation = 2
 719 
            rsCQTemp.CursorLocation = 2
716 
				rsCQTemp.LockType = 3
 720 
            rsCQTemp.LockType = 3
717 
				rsCQTemp.Open()
 721 
            rsCQTemp.Open()
718
722 
 
719 
	  			While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
 723 
              While (NOT rsCQTemp.BOF) AND (NOT rsCQTemp.EOF)
720 
					checked = ""
 724 
               checked = ""
721
725 
 
722 
					If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
 726 
               If oIStates.Exists("ALL")  OR  oIStates.Exists(Cstr(rsCQTemp("id"))) Then checked = "checked"
723
727 
 
724 
				  %>
 728 
              %>
725 
					<tr>
 729 
               <tr>
726 
	                  <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
 730 
                     <td width="1"><input type="checkbox" name="istates" value="<%=rsCQTemp("id")%>" <%=checked%>></td>
727 
	                  <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
 731 
                     <td width="100%" class="form_wtxt_link"><%=rsCQTemp("name")%></td>
728 
	                </tr>
 732 
                   </tr>
729 
	                <%rsCQTemp.MoveNext
 733 
                   <%rsCQTemp.MoveNext
730 
				WEnd
 734 
            WEnd
731 
				rsCQTemp.Close()
 735 
            rsCQTemp.Close()
732 
				%>
 736 
            %>
733 
            </table>
 737 
            </table>
734 
			</fieldset></td>
738 
         </fieldset></td>
735 
          </tr>
 739 
          </tr>
736 
          <tr>
 740 
          <tr>
737 
            <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
 741 
            <td align="right" class="wform_ttl"><img src="images/spacer.gif" width="80" height="1"></td>
738 
            <td><img src="images/spacer.gif" width="100" height="1"></td>
 742 
            <td><img src="images/spacer.gif" width="100" height="1"></td>
739 
          </tr>
 743 
          </tr>
740 
        </table>
 744 
        </table>
741 
		</DIV>
 745 
      </DIV>
742
746 
 
743 
 
 747 
 
744 
</DIV>
 748 
</DIV>
745
749 
 
746 
        <table width="400" border="0" cellspacing="5" cellpadding="0">
 750 
        <table width="400" border="0" cellspacing="5" cellpadding="0">
747 
          <tr background="images/lbox_bg_blue.gif">
 751 
          <tr background="images/lbox_bg_blue.gif">
748 
            <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
 752 
            <td colspan="2"><img src="images/spacer.gif" width="1" height="1"></td>
749 
          </tr>
 753 
          </tr>
750 
          <tr>
 754 
          <tr>
751 
            <td width="1">&nbsp;</td>
 755 
            <td width="1">&nbsp;</td>
752 
            <td width="100%"><input type="submit" name="btn" value="Find &raquo;" class="form_btn_comp"></td>
 756 
            <td width="100%"><input type="submit" name="btn" value="Find &raquo;" class="form_btn_comp"></td>
753 
          </tr>
 757 
          </tr>
754 
        </table></td>
 758 
        </table></td>
755 
    </tr>
 759 
    </tr>
756
760 
 
757 
	 <tr>
761 
    <tr>
758 
      <td background="images/lbox_bg_blue.gif" width="1%" height="1%">&nbsp;</td>
 762 
      <td background="images/lbox_bg_blue.gif" width="1%" height="1%">&nbsp;</td>
759 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;</td>
 763 
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;</td>
760 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
 764 
      <td background="images/lbox_bg_blue.gif" align="right" width="50%">
761 
	    <input type="submit" name="btn" value="Import" class="form_btn_comp">
765 
       <input type="submit" name="btn" value="Import" class="form_btn_comp">
762 
        <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
766 
        <input type="reset" name="btn" value="Close" class="form_btn_comp" onclick="self.close()">
763 
      </td>
 767 
      </td>
764 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
768 
      <td background="images/lbox_bg_blue.gif" align="right" width="1%" nowrap>
765 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
 769 
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
766 
    </tr>
 770 
    </tr>
767 
    <tr>
771 
    <tr>
768 
      <td height="100%" width="1%">&nbsp;</td>
 772 
      <td height="100%" width="1%">&nbsp;</td>
769 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
 773 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
770 
	    <%If imported Then%>
 774 
       <%If imported Then%>
771 
			<%Call DisplayInfo ( "ISSUES_IMPORTED", "300" )%>
 775 
         <%Call DisplayInfo ( "ISSUES_IMPORTED", "300" )%>
772 
		<%End If%>
 776 
      <%End If%>
773 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 777 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
774 
          <tr>
778 
          <tr>
775 
            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 779 
            <td width="1%" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
776 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Number</td>
 780 
            <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Issue Number</td>
777 
			<td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
 781 
         <td width="1%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">State</td>
778 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
 782 
            <td width="100%" nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Summary</td>
779 
          </tr>
 783 
          </tr>
780 
		  <%
 784 
        <%
781 
		  rspCount = 0
 785 
        rspCount = 0
782 
	      If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
786 
         If (NOT rsCQ.BOF) AND (NOT rsCQ.EOF) Then
783 
			  rsCQ.Move( rspMax * (rspPage - 1))
 787 
           rsCQ.Move( rspMax * (rspPage - 1))
784
788 
 
785 
			  %>
 789 
           %>
786 
			  <%
 790 
           <%
787 
			  While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
 791 
           While ((NOT rsCQ.BOF) AND (NOT rsCQ.EOF) AND (rspCount < rspMax))
788
792 
 
789 
				If (objAccessControl.IsActive("ImportOpenIssues")) Then
 793 
            If (objAccessControl.IsActive("ImportOpenIssues")) Then
790 
					Select Case UCase( rsCQ("state") )
 794 
               Select Case UCase( rsCQ("state") )
791 
						Case "OPEN"
 795 
                  Case "OPEN"
792 
							disabled = ""
 796 
                     disabled = ""
793 
						Case "SUSPENDED"
 797 
                  Case "SUSPENDED"
794 
							disabled = ""
 798 
                     disabled = ""
795 
						Case Else
 799 
                  Case Else
796 
							disabled = ""
 800 
                     disabled = ""
797 
					End Select
 801 
               End Select
798 
				End If
 802 
            End If
799
803 
 
800 
				If NOT (objAccessControl.IsActive("ImportOpenIssues")) Then
 804 
            If NOT (objAccessControl.IsActive("ImportOpenIssues")) Then
801 
					If (parSkipOpen <> "") Then
805 
               If (parSkipOpen <> "") Then
802 
						Select Case UCase( rsCQ("state") )
 806 
                  Select Case UCase( rsCQ("state") )
803 
							Case "OPEN"
 807 
                     Case "OPEN"
804 
								disabled = "disabled"
 808 
                        disabled = "disabled"
805 
							Case Else
 809 
                     Case Else
806 
								disabled = ""
 810 
                        disabled = ""
807 
						End Select
 811 
                  End Select
808 
					Else
 812 
               Else
809 
						Select Case UCase( rsCQ("state") )
 813 
                  Select Case UCase( rsCQ("state") )
810 
							Case "CLOSED"
 814 
                     Case "CLOSED"
811 
								disabled = "disabled"
 815 
                        disabled = "disabled"
812 
							Case Else
 816 
                     Case Else
813 
								disabled = ""
 817 
                        disabled = ""
814 
						End Select
 818 
                  End Select
815 
					End If
819 
               End If
816 
				End If
 820 
            End If
817
821 
 
818
822 
 
819 
			  %>
 823 
           %>
820 
	          <tr>
824 
             <tr>
821 
	            <td><input type="checkbox" name="FRiss_id" value="<%=rsCQ("iss_id")%>" <%=disabled%>></td>
 825 
               <td><input type="checkbox" name="FRiss_id" value="<%=rsCQ("iss_id")%>" <%=disabled%>></td>
822 
	            <td nowrap class="form_item">
 826 
               <td nowrap class="form_item">
823 
					<a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=parFRiss_db%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked">
 827 
               <a href="javascript:;" onClick="MM_openBrWindow('_wform_issues_details.asp?iss_db=<%=parFRiss_db%>&iss_id=<%=rsCQ("iss_id")%>','IssueDetails','resizable=yes,width=580,height=500')" class="txt_linked">
824 
					<%If parFRiss_num <> LENUM_ALL Then%>
 828 
               <%If parFRiss_num <> LENUM_ALL Then%>
825 
					<%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
 829 
               <%=Highlight_Substring( rsCQ("iss_num"), parFRiss_num )%>
826 
					<%Else%>
 830 
               <%Else%>
827 
					<%=rsCQ("iss_num")%>
 831 
               <%=rsCQ("iss_num")%>
828 
					<%End If%>
 832 
               <%End If%>
829 
					</a>
 833 
               </a>
830 
				</td>
 834 
            </td>
831 
				<td class="form_item"><%=rsCQ("state")%></td>
 835 
            <td class="form_item"><%=rsCQ("state")%></td>
832 
	            <td class="form_item"><%=Server.HTMLEncode(rsCQ("summary"))%></td>
 836 
               <td class="form_item"><%=Server.HTMLEncode(rsCQ("summary"))%></td>
833 
	          </tr>
 837 
             </tr>
834 
			  <%rspCount = rspCount + 1
 838 
           <%rspCount = rspCount + 1
835 
			  	rsCQ.MoveNext
 839 
              rsCQ.MoveNext
836 
			  WEnd
 840 
           WEnd
837 
			  rsCQ.Close
 841 
           rsCQ.Close
838 
			  Set rsCQ = nothing%>
 842 
           Set rsCQ = nothing%>
839 
		  <%End If%>
 843 
        <%End If%>
840 
          <tr>
844 
          <tr>
841 
            <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
 845 
            <td background="images/bg_form_lightbluedark.gif">&nbsp;</td>
842 
            <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
 846 
            <td colspan="3" nowrap background="images/bg_form_lightbluedark.gif" class="form_step">
843 
				<%
 847 
            <%
844 
				If rspTotal > rspMax Then
 848 
            If rspTotal > rspMax Then
845 
					If CInt(rspPage) = CInt(rspTotalPages) Then
 849 
               If CInt(rspPage) = CInt(rspTotalPages) Then
846 
						Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
 850 
                  Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& rspTotal
847 
					Else
 851 
               Else
848 
						Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
 852 
                  Response.write "Found "& rspTotal &" records, showing "& (rspMax * rspPage) - rspMax + 1 &" - "& (rspCount * rspPage)
849 
					End If
 853 
               End If
850 
				Else
 854 
            Else
851 
					Response.write "Found "& rspTotal &" records"
 855 
               Response.write "Found "& rspTotal &" records"
852 
				End If
 856 
            End If
853 
				%>
 857 
            %>
854 
			</td>
 858 
         </td>
855 
          </tr>
 859 
          </tr>
856 
        </table>
 860 
        </table>
857 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 861 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
858 
          <tr>
 862 
          <tr>
859 
            <td align="center">
 863 
            <td align="center">
860 
			  <%If CInt(rspPage) > 1 Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) - 1;  importform.submit();" class="txt_linked">&lt;previous</a><%End If%>&nbsp;
 864 
           <%If CInt(rspPage) > 1 Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) - 1;  importform.submit();" class="txt_linked">&lt;previous</a><%End If%>&nbsp;
861 
              <%If CInt(rspPage) < CInt(rspTotalPages) Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) + 1;  importform.btn.value='next';" class="txt_linked">next &gt;</a><%End If%></td>
 865 
              <%If CInt(rspPage) < CInt(rspTotalPages) Then%><a href="javascript:void(document.importform.submit())" onClick="importform.rpg.value = parseInt(importform.rpg.value) + 1;  importform.btn.value='next';" class="txt_linked">next &gt;</a><%End If%></td>
862 
          </tr>
 866 
          </tr>
863 
        </table>
 867 
        </table>
864 
        <br>
 868 
        <br>
865 
      </td>
 869 
      </td>
866 
    </tr>
 870 
    </tr>
867 
    <tr>
871 
    <tr>
868 
      <td width="1%" height="1%" background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
 872 
      <td width="1%" height="1%" background="images/lbox_bg_blue.gif"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
869 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
 873 
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
870 
    </tr>
 874 
    </tr>
871 
  </table>
 875 
  </table>
872 
<input name="rpg" type="hidden" value="<%=rspPage%>">
876 
<input name="rpg" type="hidden" value="<%=rspPage%>">
873 
<input name="skip_open" type="hidden" value="<%=parSkipOpen%>">
 877 
<input name="skip_open" type="hidden" value="<%=parSkipOpen%>">
874 
<input name="pv_id" type="hidden" value="<%=parPv_id%>">
 878 
<input name="pv_id" type="hidden" value="<%=parPv_id%>">
875 
<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
 879 
<input name="rtag_id" type="hidden" value="<%=parRtag_id%>">
876 
<input name="action" type="hidden" value="true">
 880 
<input name="action" type="hidden" value="true">
877 
</form>
 881 
</form>
Line 881... Line 885...
881 
</body>
 885 
</body>
882 
</html>
 886 
</html>
883 
 
 887 
 
884 
 
 888 
 
885 
<!-- DESTRUCTOR ------->
 889 
<!-- DESTRUCTOR ------->
886 
<!--#include file="common/destructor.asp"-->
 - 
 
887 

            890
            
<!--#include file="common/destructor.asp"-->

          

          

            -
            
 

            891