Subversion Repositories DevTools

Rev

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

Rev 5246 Rev 5251
Line 209... Line 209...
209 
Function GetReleaseMode ( NNrtag_id )
 209 
Function GetReleaseMode ( NNrtag_id )
210 
   GetReleaseInfo NNrtag_id
 210 
   GetReleaseInfo NNrtag_id
211 
   GetReleaseMode = releaseInfoHash("official")
 211 
   GetReleaseMode = releaseInfoHash("official")
212 
End Function
 212 
End Function
213 
'-----------------------------------------------------------------------------------------------------------------------------
 213 
'-----------------------------------------------------------------------------------------------------------------------------
214 
'   Get basic Release Info
 214 
'   Get basic Release Info on global releaseInfoHash
215 
'   List of fields may be extended as required (could use *)
 215 
'   List of fields may be extended as required (could use *)
216 
Sub GetReleaseInfo ( NNrtag_id )
 216 
Sub GetReleaseInfo ( NNrtag_id )
217 
   Dim rsTemp, Query_String, item
 217 
   Dim rsTemp, Query_String, item
218 
   If NNrtag_id = "" Then NNrtag_id = "-1"
 218 
   If NNrtag_id = "" Then NNrtag_id = "-1"
219 
 
 219 
 
220 
   Set releaseInfoHash = CreateObject("Scripting.Dictionary")
 220 
   Set releaseInfoHash = CreateObject("Scripting.Dictionary")
221 
 
 221 
 
222 
   Query_String = "SELECT rtag_id ,official, lxr FROM release_tags WHERE rtag_id = "& NNrtag_id
 222 
   Query_String = " SELECT rt.RTAG_ID ,rt.lxr, rt.official," &_
- 
 
 223 
                  "   NVL(lx.lxrserver, 'N') as lxrserver" &_
- 
 
 224 
                  " FROM Release_tags rt,"&_
- 
 
 225 
                  "   lxr_state lx"&_
- 
 
 226 
                  " WHERE rt.RTAG_ID = lx.RTAG_ID(+)"&_
- 
 
 227 
                  " AND rt.RTAG_ID = " & NNrtag_id
- 
 
 228 
 
223 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 229 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
224 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 230 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
225 
      For Each item In rsTemp.Fields
231 
      For Each item In rsTemp.Fields
226 
        'Response.Write("<pre> item:" & Lcase(item.name) & ":" & item)
 232 
        'Response.Write("<br><pre> item:" & Lcase(item.name) & ":" & item & "</pre>")
227 
        releaseInfoHash.Add  Lcase(item.name), item.value
 233 
        releaseInfoHash.Add  Lcase(item.name), item.value
228 
      Next
 234 
      Next
229 
   End If
 235 
   End If
230 
 
 236 
 
231 
   rsTemp.Close
 237 
   rsTemp.Close
Line 2169... Line 2175...
2169 
        releaseIsMergable = True
 2175 
        releaseIsMergable = True
2170 
    Else
 2176 
    Else
2171 
        releaseIsMergable = False
 2177 
        releaseIsMergable = False
2172 
    End If
 2178 
    End If
2173 
End Function
 2179 
End Function
- 
 
 2180 
'-------------------------------------------------
- 
 
 2181 
' Function:         RenderLxrStateString
- 
 
 2182 
' Description:      Return a string to show the current LXR state
- 
 
 2183 
Function RenderLxrStateString(rtagid, lxr, lxrState, txt)
- 
 
 2184 
    If lxr = "N" AND lxrState = "N" Then
- 
 
 2185 
        RenderLxrStateString = ""
- 
 
 2186 
    Else
- 
 
 2187 
        Dim lxrUrl : lxrUrl = LXR_URL & "/" & rtagid
- 
 
 2188 
        Dim image, hover
- 
 
 2189 
        Select Case lxrState
- 
 
 2190 
            Case "I"
- 
 
 2191 
                image = "LXRlogo64.jpeg"
- 
 
 2192 
                hover = "LXR Index available"
- 
 
 2193 
            Case "C"
- 
 
 2194 
                image = "LXRlogo64_off.jpeg"
- 
 
 2195 
                hover = "LXR Index available, but no longer updated"
- 
 
 2196 
            Case "N"
- 
 
 2197 
                image = "LXRlogo64_progress.jpeg"
- 
 
 2198 
                hover = "LXR Requested, but not yet available"
- 
 
 2199 
            Case Else
- 
 
 2200 
                image = "LXRlogo64_progress.jpeg"
- 
 
 2201 
                hover = "LXR Requested, unknown State:(" & lxrState &")"
- 
 
 2202 
        End Select
- 
 
 2203 
        RenderLxrStateString = "<a class=mmItem href='"&lxrUrl&"'><img src=""images/"&image&""" height=16 border=0 vspace=0 hspace=0 style='vertical-align : bottom' title='"&hover&"'>" & txt &"</a>"
- 
 
 2204 
    End If
- 
 
 2205 
End Function
2174 
 
 2206 
 
2175 
%>
 2207 
%>