| Line 205... |
Line 205... |
| 205 |
rsTemp.Close
|
205 |
rsTemp.Close
|
| 206 |
Set rsTemp = nothing
|
206 |
Set rsTemp = nothing
|
| 207 |
End Function
|
207 |
End Function
|
| 208 |
'-----------------------------------------------------------------------------------------------------------------------------
|
208 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 209 |
Function GetReleaseMode ( NNrtag_id )
|
209 |
Function GetReleaseMode ( NNrtag_id )
|
| - |
|
210 |
GetReleaseInfo NNrtag_id
|
| - |
|
211 |
GetReleaseMode = releaseInfoHash("official")
|
| - |
|
212 |
End Function
|
| - |
|
213 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| - |
|
214 |
' Get basic Release Info
|
| - |
|
215 |
' List of fields may be extended as required (could use *)
|
| - |
|
216 |
Sub GetReleaseInfo ( NNrtag_id )
|
| 210 |
Dim rsTemp, Query_String
|
217 |
Dim rsTemp, Query_String, item
|
| 211 |
If NNrtag_id = "" Then NNrtag_id = "-1"
|
218 |
If NNrtag_id = "" Then NNrtag_id = "-1"
|
| 212 |
|
219 |
|
| - |
|
220 |
If Not IsEmpty(releaseInfoHash) Then
|
| - |
|
221 |
releaseInfoHash = Nothing
|
| 213 |
Query_String = _
|
222 |
End If
|
| 214 |
" SELECT official FROM release_tags WHERE rtag_id = "& NNrtag_id
|
223 |
Set releaseInfoHash = CreateObject("Scripting.Dictionary")
|
| 215 |
|
224 |
|
| - |
|
225 |
Query_String = "SELECT rtag_id ,official, lxr FROM release_tags WHERE rtag_id = "& NNrtag_id
|
| 216 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
226 |
Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
|
| 217 |
'Response.write "DB"& NNrtag_id
|
- |
|
| 218 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
227 |
If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
|
| 219 |
GetReleaseMode = rsTemp.Fields("official")
|
228 |
For Each item In rsTemp.Fields
|
| - |
|
229 |
'Response.Write("<pre> item:" & Lcase(item.name) & ":" & item)
|
| - |
|
230 |
releaseInfoHash.Add Lcase(item.name), item.value
|
| 220 |
|
231 |
Next
|
| 221 |
End If
|
232 |
End If
|
| 222 |
|
233 |
|
| 223 |
rsTemp.Close
|
234 |
rsTemp.Close
|
| 224 |
Set rsTemp = nothing
|
235 |
Set rsTemp = nothing
|
| 225 |
End Function
|
236 |
End Sub
|
| - |
|
237 |
|
| 226 |
'-----------------------------------------------------------------------------------------------------------------------------
|
238 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 227 |
Function Get_Devl_Environment
|
239 |
Function Get_Devl_Environment
|
| 228 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") <> "" Then
|
240 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") <> "" Then
|
| 229 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") = "clearcase" Then
|
241 |
If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("devl_environment") = "clearcase" Then
|
| 230 |
Get_Devl_Environment = "jats" 'clear case does not have import
|
242 |
Get_Devl_Environment = "jats" 'clear case does not have import
|