Subversion Repositories DevTools

Rev

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

Rev 5103 Rev 5114
Line 55... Line 55...
55
                             "Action Log@action_log.asp?"& Persists_Query_String( Empty ), _
55
                             "Action Log@action_log.asp?"& Persists_Query_String( Empty ), _
56
                             "Unit Test@unit_test_log.asp?"& Persists_Query_String( Empty ) )
56
                             "Unit Test@unit_test_log.asp?"& Persists_Query_String( Empty ) )
57
 
57
 
58
        ' Add a debug tab to show internal data
58
        ' Add a debug tab to show internal data
59
        If (IsEmpty(Application("LiveSystem"))) Then
59
        If (IsEmpty(Application("LiveSystem"))) Then
60
            ReDim Preserve yourArray(UBound(TABarray1) + 1)
60
            ReDim Preserve TABarray1(UBound(TABarray1) + 1)
61
            TABarray1(UBound(TABarray1)) = "Debug@pvdata.asp?"& Persists_Query_String( Empty )
61
            TABarray1(UBound(TABarray1)) = "Debug@pvdata.asp?"& Persists_Query_String( Empty )
62
        End If
62
        End If
63
      End If
63
      End If
64
   Else
64
   Else
65
      ' Tabs for Patches
65
      ' Tabs for Patches
Line 278... Line 278...
278
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='26'>"
278
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='26'>"
279
   Response.write "  <tr> "
279
   Response.write "  <tr> "
280
   If objAccessControl.UserLogedIn Then
280
   If objAccessControl.UserLogedIn Then
281
      Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()""><img src='images/i_user.gif' border='0' hspace='3'>"&  objAccessControl.FullName &"</a>&nbsp;&nbsp;</td>"
281
      Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()""><img src='images/i_user.gif' border='0' hspace='3'>"&  objAccessControl.FullName &"</a>&nbsp;&nbsp;</td>"
282
   Else
282
   Else
283
      Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">My Account</a></td>"
283
      Response.write "    <td align=middle noWrap valign=center><a class=mmItem href='members_index.asp' onMouseover=""showmenu(event,linkset[5])"" onMouseout=""delayhidemenu()"">My Account</a>&nbsp;&nbsp;</td>"
284
   End If
284
   End If
285
   Response.write "   <td align=middle>|</td>"
285
   Response.write "   <td align=middle>|</td>"
286
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[1])"" onMouseout=""delayhidemenu()"">Suite</a></td>"
286
   Response.write "    <td align=middle noWrap valign=center width='70'><a class=mmItem href='' onMouseover=""showmenu(event,linkset[1])"" onMouseout=""delayhidemenu()"">Suite</a></td>"
287
   Response.write "   <td align=middle>|</td>"
287
   Response.write "   <td align=middle>|</td>"
288
   If InStr(1,ScriptName,"sdk_", 1) <> 0 Then
288
   If InStr(1,ScriptName,"sdk_", 1) <> 0 Then