| 119 |
ghuddy |
1 |
<%
|
|
|
2 |
'===================================================================
|
|
|
3 |
' Tab Controls
|
|
|
4 |
'===================================================================
|
|
|
5 |
%>
|
|
|
6 |
<%
|
|
|
7 |
'------------ VARIABLE DEFINITION -------------
|
|
|
8 |
Dim arrEnv, arrProductEnv
|
|
|
9 |
Dim LScriptName
|
|
|
10 |
Dim strURL
|
|
|
11 |
'------------ CONSTANTS DECLARATION -----------
|
|
|
12 |
'------------ VARIABLE INIT -------------------
|
|
|
13 |
|
|
|
14 |
If scriptName = "find.asp" Then
|
|
|
15 |
LScriptName = "dependencies.asp"
|
|
|
16 |
Else
|
|
|
17 |
LScriptName = scriptName
|
| 6879 |
dpurdie |
18 |
End If
|
|
|
19 |
'[1] Tab Image
|
|
|
20 |
'[2] Tab Name
|
|
|
21 |
'[3] Tab Link
|
| 7291 |
dpurdie |
22 |
strURL = objPMod.ComposeURL()
|
|
|
23 |
If Request("keyword") <> "" Then strURL = strURL + "&keyword="& Request("keyword")
|
|
|
24 |
If Request("searchtype") <> "" Then strURL = strURL + "&searchtype="& Request("searchtype")
|
| 6879 |
dpurdie |
25 |
|
|
|
26 |
arrEnv = Array ( _
|
|
|
27 |
Array("","Work In Progress",LScriptName &"?envtab="& enumENVTAB_WORK_IN_PROGRESS &"&"& strURL),_
|
|
|
28 |
Array("","Pending",LScriptName &"?envtab="& enumENVTAB_PLANNED &"&"& strURL),_
|
|
|
29 |
Array("","Released",LScriptName &"?envtab="& enumENVTAB_RELEASED &"&"& strURL),_
|
|
|
30 |
Array(""," All",LScriptName &"?envtab="& enumENVTAB_ALL &"&"& strURL))
|
|
|
31 |
|
|
|
32 |
arrProductEnv = Array ( _
|
|
|
33 |
Array("","Release",LScriptName &"?envtab="& enumENVTAB_PRODRELEASE &"&"& strURL),_
|
|
|
34 |
Array("","Integrate",LScriptName &"?envtab="& enumENVTAB_INTEGRATE &"&"& strURL),_
|
|
|
35 |
Array("","Test",LScriptName &"?envtab="& enumENVTAB_TEST &"&"& strURL),_
|
|
|
36 |
Array("","Deploy",LScriptName &"?envtab="& enumENVTAB_DEPLOY &"&"& strURL),_
|
|
|
37 |
Array("","Reject",LScriptName &"?envtab="& enumENVTAB_REJECT &"&"& strURL))
|
|
|
38 |
|
| 119 |
ghuddy |
39 |
%>
|