Subversion Repositories DevTools

Rev

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

Rev 4955 Rev 5020
Line 576... Line 576...
576
<%
576
<%
577
'------------------------------------------------------------------------------------------------------------------------------------------------
577
'------------------------------------------------------------------------------------------------------------------------------------------------
578
Function GetEnvTab ( sEnvTab )
578
Function GetEnvTab ( sEnvTab )
579
   If sEnvTab <> "" Then
579
   If sEnvTab <> "" Then
580
      GetEnvTab = sEnvTab
580
      GetEnvTab = sEnvTab
581
      Response.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") = sEnvTab
581
      Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") = sEnvTab
582
   Else
582
   Else
583
      If Request.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") <> "" Then
583
      If Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") <> "" Then
584
         GetEnvTab = Request.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab")
584
         GetEnvTab = Request.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab")
585
      Else
585
      Else
586
         GetEnvTab = enumENVTAB_WORK_IN_PROGRESS
586
         GetEnvTab = enumENVTAB_WORK_IN_PROGRESS
587
         Response.Cookies(COOKIE_RELEASE_MANAGER_MEMORY)("envtab") = enumENVTAB_WORK_IN_PROGRESS
587
         Response.Cookies(COOKIE_RELEASEMANAGER_MEMORY)("envtab") = enumENVTAB_WORK_IN_PROGRESS
588
      End If
588
      End If
589
   End If
589
   End If
590
 
-
 
591
End Function
590
End Function
592
'------------------------------------------------------------------------------------------------------------------------------------------------
591
'------------------------------------------------------------------------------------------------------------------------------------------------
593
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
592
Sub Display_Env_BaseView ( NNbase_view_id, SSbase_view, BBviewCollapsed, SScontents )
594
%>
593
%>
595
<table width="100%"  border="0" cellspacing="0" cellpadding="0">
594
<table width="100%"  border="0" cellspacing="0" cellpadding="0">