Subversion Repositories DevTools

Rev

Rev 6879 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6879 Rev 7291
Line 17... Line 17...
17 
	LScriptName = scriptName
 17 
	LScriptName = scriptName
18 
End If
18 
End If
19 
    '[1] Tab Image
 19 
    '[1] Tab Image
20 
	'[2] Tab Name
 20 
	'[2] Tab Name
21 
	'[3] Tab Link
 21 
	'[3] Tab Link
22 
If Request("keyword") = "" Then
 - 
 
23 
	strURL = objPMod.ComposeURL()
 22 
strURL = objPMod.ComposeURL()
24 
Else
 - 
 
25 
	strURL = objPMod.ComposeURL() + "&keyword="& Request("keyword")
 23 
If Request("keyword")    <> "" Then strURL = strURL + "&keyword="& Request("keyword")
26 
End If
 - 
 
- 
 
 24 
If Request("searchtype") <> "" Then strURL = strURL + "&searchtype="& Request("searchtype")
27 
 
 25 
 
28 
arrEnv = Array ( _
 26 
arrEnv = Array ( _
29 
                Array("","Work&nbsp;In&nbsp;Progress",LScriptName &"?envtab="& enumENVTAB_WORK_IN_PROGRESS &"&"& strURL),_
 27 
                Array("","Work&nbsp;In&nbsp;Progress",LScriptName &"?envtab="& enumENVTAB_WORK_IN_PROGRESS &"&"& strURL),_
30 
                Array("","Pending",LScriptName &"?envtab="& enumENVTAB_PLANNED &"&"& strURL),_
 28 
                Array("","Pending",LScriptName &"?envtab="& enumENVTAB_PLANNED &"&"& strURL),_
31 
                Array("","Released",LScriptName &"?envtab="& enumENVTAB_RELEASED &"&"& strURL),_
 29 
                Array("","Released",LScriptName &"?envtab="& enumENVTAB_RELEASED &"&"& strURL),_