| 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()
|
| 6879 |
dpurdie |
23 |
|
|
|
24 |
arrEnv = Array ( _
|
| 7294 |
dpurdie |
25 |
Array("","Work In Progress","onmouseover=""EnvDynaTabLink(this,'" & LScriptName & "','" &"?envtab=" & enumENVTAB_WORK_IN_PROGRESS & "&" & strURL & "');"""),_
|
|
|
26 |
Array("","Pending","onmouseover=""EnvDynaTabLink(this,'" & LScriptName & "','" &"?envtab=" & enumENVTAB_PLANNED & "&" & strURL & "');"""),_
|
|
|
27 |
Array("","Released","onmouseover=""EnvDynaTabLink(this,'" & LScriptName & "','" &"?envtab=" & enumENVTAB_RELEASED & "&" & strURL & "');"""),_
|
|
|
28 |
Array(""," All","onmouseover=""EnvDynaTabLink(this,'" & LScriptName & "','" &"?envtab=" & enumENVTAB_ALL & "&" & strURL & "');"""))
|
| 6879 |
dpurdie |
29 |
|
|
|
30 |
arrProductEnv = Array ( _
|
|
|
31 |
Array("","Release",LScriptName &"?envtab="& enumENVTAB_PRODRELEASE &"&"& strURL),_
|
|
|
32 |
Array("","Integrate",LScriptName &"?envtab="& enumENVTAB_INTEGRATE &"&"& strURL),_
|
|
|
33 |
Array("","Test",LScriptName &"?envtab="& enumENVTAB_TEST &"&"& strURL),_
|
|
|
34 |
Array("","Deploy",LScriptName &"?envtab="& enumENVTAB_DEPLOY &"&"& strURL),_
|
|
|
35 |
Array("","Reject",LScriptName &"?envtab="& enumENVTAB_REJECT &"&"& strURL))
|
|
|
36 |
|
| 119 |
ghuddy |
37 |
%>
|