Subversion Repositories DevTools

Rev

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

Rev 7063 Rev 7260
Line 30... Line 30...
30 
'------------ Variable Definition -------------
 30 
'------------ Variable Definition -------------
31 
Dim rsQry
 31 
Dim rsQry
32 
Dim parRtagId
 32 
Dim parRtagId
33 
Dim query_string
 33 
Dim query_string
34 
Dim rcon_id
 34 
Dim rcon_id
35 
Dim shref_base
 - 
 
36 
Dim canControl
 35 
Dim canControl
37 
'------------ Constants Declaration -----------
 36 
'------------ Constants Declaration -----------
38 
'------------ Variable Init -------------------
 37 
'------------ Variable Init -------------------
39 
parRtagId = Request("rtag_id")
 38 
parRtagId = Request("rtag_id")
40 
objPMod.PersistInQryString("rtag_id")
 39 
objPMod.PersistInQryString("rtag_id")
Line 57... Line 56...
57 
   OraDatabase.Parameters.Remove "USER_ID"
 56 
   OraDatabase.Parameters.Remove "USER_ID"
58 
 
 57 
 
59 
End Sub
 58 
End Sub
60 
'--------------------------------------------------------------------------------------------------------------------------
 59 
'--------------------------------------------------------------------------------------------------------------------------
61 
'------------ RUN BEFORE PAGE RENDER ----------
 60 
'------------ RUN BEFORE PAGE RENDER ----------
62 
shref_base = "http://" & archive_server & "/devl/abtlog/"
 - 
 
63 
 
 - 
 
64 
'----------------------------------------------------
 61 
'----------------------------------------------------
65 
' --- RUN onPostBack ---
 62 
' --- RUN onPostBack ---
66 
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
 63 
If Request("action") <> "" AND objAccessControl.UserLogedIn Then
67 
 
 64 
 
68 
  If objEH.Finally Then
 65 
  If objEH.Finally Then
Line 154... Line 151...
154 
 
 151 
 
155 
        Else
 152 
        Else
156 
            rowClass = "rootFile"
 153 
            rowClass = "rootFile"
157 
            rowData = "<a class=""txt_linked"" title=""" & rsQry("root_file") &_
 154 
            rowData = "<a class=""txt_linked"" title=""" & rsQry("root_file") &_
158 
                      " Log file may have expired."" " &_
 155 
                      " Log file may have expired."" " &_
159 
                      "href=""" & shref_base & rsQry("root_file") & """>" &_
 156 
                      "href=""" & ABTLOG_URL & "/" & rsQry("root_file") & """>" &_
160 
                      "Build Failure Log File</a>"
 157 
                      "Build Failure Log File</a>"
161 
        End If
 158 
        End If
162 
 
 159 
 
163 
        Dim checkBoxData, checkBoxClass
 160 
        Dim checkBoxData, checkBoxClass
164 
        If NiceInt(rsQry("root_pv_id"), -1) = -1   Then
 161 
        If NiceInt(rsQry("root_pv_id"), -1) = -1   Then