Subversion Repositories DevTools

Rev

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

Rev 6124 Rev 6176
Line 63... Line 63...
63 
                          "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
 63 
                          "Files and Folders@files_and_folders.asp?" & Persists_Query_String( Empty ), _
64 
                          "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 64 
                          "Action Log@action_log.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
65 
   End If
 65 
   End If
66 
 
 66 
 
67 
    ' Add a debug tab to show internal data
 67 
    ' Add a debug tab to show internal data
68 
    If (IsEmpty(Application("LiveSystem"))) Then
 68 
    If (IsEmpty(Application("LiveSystem"))) OR canActionControl("MSMaintainer") Then
69 
        ReDim Preserve TABarray1(UBound(TABarray1) + 1)
 69 
        ReDim Preserve TABarray1(UBound(TABarray1) + 1)
70 
        TABarray1(UBound(TABarray1)) = "Debug@pvdata.asp?"& Persists_Query_String( Empty )
 70 
        TABarray1(UBound(TABarray1)) = "Debug@pvdata.asp?"& Persists_Query_String( Empty )
71 
    End If
 71 
    End If
72 
 
 72 
 
73 
End If
 73 
End If