WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/_environment.asp

 Dim parOLshow     ' show/hide outer-latest
 Dim parBshow      ' expand/collapse base views
 Dim parPshow      ' expand/collapse personal views
 Dim parPview      ' enable/disable all personal views
 Dim parDview      ' enable/disable   deployment   view.
+Dim hasPview      ' Has Personal View
 Dim IMG_locked
 Dim rsEnvQry
 Dim pvIdInList
 Dim checked
 Dim disabled
 parOLshow = QStrPar("OLshow")
 parBshow = QStrPar("Bshow")
 parPshow = QStrPar("Pshow")
 parPview = QStrPar("Pview")
 parDview = QStrPar("Dview")
+hasPview = hasPersonalViews()
+If NOT hasPview  Then parPview = "disable"
 '----------------------------------------------
 %>
 <script language="JavaScript" type="text/javascript">
 <!--
    Dim qstrPar
    Dim nViewType
    Dim nTrueRecordCount
    Dim nOperation
    Dim relContentsSTR, viewCollapsed, curr_view_id, view_name
+   Dim canBeEmpty
    If isDefined("allowNoPackage") Then
       SSscript = "dependencies.asp"
    Else
       SSscript = scriptName
       qstrPar = "Bshow"
    ElseIf SSviewtype = "personal" Then
       nViewType = 2
       qstrPar = "Pshow"
    End If
+   canBeEmpty = false
 'rmDebug = rmDebug & " ,NNEnvTab[" & NNEnvTab & "," & CInt(NNEnvTab) & "]"
    OraDatabase.Parameters.Add "VIEW_TYPE",           nViewType, ORAPARM_INPUT, ORATYPE_NUMBER
    'OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST",   ShowView( Pipes2Commas( SSshowviews ), SSviewtype ), ORAPARM_INPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Add "VIEW_ID_SHOW_LIST",   GetShowViewList(), ORAPARM_INPUT, ORATYPE_VARCHAR2
    OraDatabase.Parameters.Add "RTAG_ID",             NNrtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
    Else
       ' Decide which environment list is to be displayed
       Select Case CInt( NNEnvTab )
          Case enumENVTAB_WORK_IN_PROGRESS
             OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_WORK_IN_PROGRESS_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
+            canBeEmpty = true
          Case enumENVTAB_PLANNED
             OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_PENDING_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
+            canBeEmpty = true
          Case enumENVTAB_RELEASED
             OraDatabase.ExecuteSQL "BEGIN  PK_ENVIRONMENT.GET_RELEASED_ITEMS ( :VIEW_TYPE, :USER_ID, :RTAG_ID, :VIEW_ID_SHOW_LIST, :TRUE_RECORD_COUNT, :RECORD_SET );  END;"
          Case Else
          '   'Release is empty. Draw default box for Base view
          '   Call DisplayInfo ( "EMPTY_RELEASE_CONTENTS", "100%" )
+         '
          'End If
-         If qstrPar = "Pshow"  Then
+         If qstrPar = "Pshow" AND hasPview AND NOT canBeEmpty Then
             'Release is empty. Draw default box for Personal view
             Call DisplayInfo ( "PERSONAL_VIEW_NOT_SETUP", "100%" )
          End If
       End If
    ' Destroy
    rsView.Close
    Set rsView = nothing
 End Sub
 '------------------------------------------------------------------------------------------------------------------------------------------------
+' Detect the presence of a Personal View so that the controls can be disabled if the user does
+' not have any.
+'
-Sub PopulateGetShowViews ( ByRef outShowView )
+Function hasPersonalViews ( )
+   Dim rsTemp, Query_String
+   hasPersonalViews = false
-   If Session(SESSION_SHOW_BASE_VIEW) <> "" Then
+   If objAccessControl.UserLogedIn Then
-      Set outShowView = Session(SESSION_SHOW_BASE_VIEW)
+       Query_String = "select count(*) from views where owner_id = " & objAccessControl.UserId
+       Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
+       If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
+          If  rsTemp.Fields(0) > 0 Then
+              hasPersonalViews = true
+          End If
+       End If
+       rsTemp.Close
+       Set rsTemp = nothing
    End If
-End Sub
+End Function
 '------------------------------------------------------------------------------------------------------------------------------------------------
 Function GetShowViewList ()
    'If SSparshow <> "" Then
    '   ' get list from query string
    '   ShowView = SSparshow
       GetShowViewList = Request.Cookies(COOKIE_RELMGR_SHOW_VIEW)
    End If
 End Function
 '------------------------------------------------------------------------------------------------------------------------------------------------
 ' This function forms a URL to use for refreshing the current dependencies.asp based page using the settings that are in effect at the time.
 ' Most importantly, it filters out the pv_id parameter if it is null (which otherwise would cause the page to be rendered incorreclty for an
 ' as yet, unknown reason).
+'
                    ' Anybody can view properties
                    Response.write "<td width='1'><a href='form_edit_release.asp?rtag_id="&parRtag_id&"' title='Release properties'><img src='images/abtn_release_properties.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
                   Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
                   If objAccessControl.UserLogedIn Then
+                      If hasPview Then
-                     If QStrPar("Pview") = "disable" Then
+                         If parPview = "disable" Then
-                        Dim ref : ref = RefreshedURL(QStrPar("Dview"), "", Request("pv_id"), Request("rtag_id"))
+                            Dim ref : ref = RefreshedURL(parDview, "", Request("pv_id"), Request("rtag_id"))
-                        Response.write "<td width='1'><a href='"& RefreshedURL(QStrPar("Dview"), "", Request("pv_id"), Request("rtag_id")) &"' title='Personal view disabled. Click to enable."&ref&"'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
+                            Response.write "<td width='1'><a href='"&ref&"' title='Personal view disabled. Click to enable.'><img src='images/abtn_base_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
-                     Else
+                         Else
-                        ref = RefreshedURL(QStrPar("Dview"), "disable", Request("pv_id"), Request("rtag_id"))
+                            ref = RefreshedURL(parDview, "disable", Request("pv_id"), Request("rtag_id"))
-                        Response.write "<td width='1'><a href='"& RefreshedURL(QStrPar("Dview"), "disable", Request("pv_id"), Request("rtag_id")) &"' title='Personal view enabled. Click for full view."&ref&"'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
+                            Response.write "<td width='1'><a href='"&ref&"' title='Personal view enabled. Click for full view.'><img src='images/abtn_personal_view.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
+                         End If
+                      Else
+                            Response.write "<td width='1'><span title='No Personal View configured.'><img src='images/abtn_personal_view_off.gif'  width='26' height='26' hspace='1' border='0'></span></td>"
-                     End If
+                      End If
                   Else
                      Response.write "<td width='1'><img src='images/abtn_personal_view_off.gif' width='26' height='26' hspace='1' border='0'></td>"
                   End If
-                  If QStrPar("Dview") = "enable" Then
+                  If parDview = "enable" Then
-                     Response.write "<td width='1'><a href='"& RefreshedURL("", QStrPar("Pview"), Request("pv_id"), Request("rtag_id")) &"' title='Click to switch to Release View'><img src='icons/ReleaseView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
+                     Response.write "<td width='1'><a href='"& RefreshedURL("", parPview, Request("pv_id"), Request("rtag_id")) &"' title='Click to switch to Release View'><img src='icons/ReleaseView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
                   Else
-                     Response.write "<td width='1'><a href='"& RefreshedURL("enable", QStrPar("Pview"), Request("pv_id"), Request("rtag_id")) &"' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
+                     Response.write "<td width='1'><a href='"& RefreshedURL("enable", parPview, Request("pv_id"), Request("rtag_id")) &"' title='Click to switch to Deployment View'><img src='icons/DeploymentView.gif'  width='25' height='25' hspace='1' border='0'></a></td>"
                   End If
                   Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
                   Response.write "<td width='1'><a href='javascript:;' title='SDK Managment' onClick='ToggleDisplay(""DIV_RELEASE_SDK"",""SPAN_RELEASE_SDK"",""SPAN_RELEASE_SDK_ON""); ' ><SPAN name='SPAN_RELEASE_SDK' id='SPAN_RELEASE_SDK' style='display:block;'><img src='images/abtn_link_release.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_RELEASE_SDK_ON' id='SPAN_RELEASE_SDK_ON' style='display:none;'><img src='images/abtn_link_release_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
                   Response.write "<td width='1'><img src='images/spacer.gif' width='7' height='25'></td>"
                   Response.write "<td width='1'><a href='javascript:;' title='Advanced Search...' onClick='ToggleAdvancedSearch(); ' ><SPAN name='SPAN_ADVANCED_SEARCH' id='SPAN_ADVANCED_SEARCH' style='display:block;'><img src='images/abtn_advanced_search.gif' width='25' height='25' border='0' hspace='1' ></SPAN><SPAN name='SPAN_ADVANCED_SEARCH_ON' id='SPAN_ADVANCED_SEARCH_ON' style='display:none;'><img src='images/abtn_advanced_search_on.gif' width='25' height='25' border='0' hspace='1' ></SPAN></a></td>"
-                  If ( (QStrPar("Dview") <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
+                  If ( (parDview <> "enable") AND ( (CInt(nEnvTab) = enumENVTAB_PLANNED) OR (Request("envtab") = enumENVTAB_PLANNED) ) ) Then
                      If objAccessControl.UserLogedIn Then
                         If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE ) OR _
                                 canActionControlInProject("ApproveForAutoBuild") OR _
                                 canActionControlInProject("ApproveForManualBuild") Then
                               Response.write "<td width='1'><a href='#' onClick='makeBulkRelease();'><img src='images/abtn_make_release_bulk.gif' title='Make Bulk Release...'></td>"
                <!-- TAB CONTROLS ++++++++++++++++++++++ -->
                <%
                Set objTabControl = New TabControl
                objTabControl.TemplateDoc = ReadFile( Server.MapPath("controls/ERGTabStyleDreamWeaver/dreamweaver_style.html") ) ' Supply tab style definition
                objTabControl.TabStyle = "StyleDreamWeaver"
-               If   QStrPar("Dview") = "enable"   Then
+               If   parDview = "enable"   Then
                   objTabControl.AddTabDefnition ( arrProductEnv )   '-   Integration/Test/Deploy
                Else
                   objTabControl.AddTabDefnition ( arrEnv )
                End If
                objTabControl.SelectByIndex ( nEnvTab )

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_environment.asp @ 5179 – Rev 5142 → 5167