Subversion Repositories DevTools

Rev

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

Rev 5177 Rev 5178
Line 137... Line 137...
137 
        If mode = emode Then
 137 
        If mode = emode Then
138 
            genReleaseMode = genReleaseMode & LMENU_TICK
 138 
            genReleaseMode = genReleaseMode & LMENU_TICK
139 
            mclass="menuitemDisable"
 139 
            mclass="menuitemDisable"
140 
        Else
 140 
        Else
141 
            If canActionInProject() Then
 141 
            If canActionInProject() Then
142 
                If canChangeMode Then
 142 
                If ReleaseModeAccessCheck(mode, emode) Then
143 
                    href = "<a href=""_change_release_mode.asp?mode_code=" & code & "&"& objPMod.ComposeURL() &""">"
 143 
                    href = "<a href=""_change_release_mode.asp?mode_code=" & code & "&"& objPMod.ComposeURL() &""">"
144 
                    genReleaseMode = genReleaseMode & href
 144 
                    genReleaseMode = genReleaseMode & href
145 
                Else
 145 
                Else
146 
                    mclass="menuitemDisable"
 146 
                    mclass="menuitemDisable"
147 
                End If
 147 
                End If
Line 153... Line 153...
153 
            If href <> "" Then genReleaseMode = genReleaseMode & "</a>"
 153 
            If href <> "" Then genReleaseMode = genReleaseMode & "</a>"
154 
            genReleaseMode = "<div class="""&mclass&""">" & genReleaseMode & "</div>"
 154 
            genReleaseMode = "<div class="""&mclass&""">" & genReleaseMode & "</div>"
155 
        End If
 155 
        End If
156 
    genReleaseMode = "'" & genReleaseMode & "'"
 156 
    genReleaseMode = "'" & genReleaseMode & "'"
157 
End Function
 157 
End Function
158 
 
 - 
 
159 
Dim canChangeMode : canChangeMode = FALSE
 - 
 
160 
If ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE Then
 - 
 
161 
    canChangeMode = canActionInProject()
 - 
 
162 
ElseIf ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then
 - 
 
163 
    canChangeMode = canActionControlInProject("ChangeModeFromRestrictive") OR canActionControlInProject("ChangeModeFromClosed")
- 
 
164 
ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then
 - 
 
165 
    canChangeMode = canActionControlInProject("ChangeModeFromRestrictive") OR canActionControlInProject("ChangeModeFromClosed")
- 
 
166 
ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then
 - 
 
167 
    canChangeMode = canActionControlInProject("ChangeModeFromClosed")
- 
 
168 
ElseIf ReleaseMode = enumDB_RELEASE_IN_PRESERVE_MODE Then
 - 
 
169 
    canChangeMode = canActionControl("MSMaintainer")
- 
 
170 
ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then
 - 
 
171 
    canChangeMode = canActionControl("MSMaintainer")
- 
 
172 
End If
 - 
 
173 
%>
 158 
%>
174 
linkset[2]=''
 159 
linkset[2]=''
175 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_OPEN_MODE, 1, "Open&nbsp;Mode" , "Packages can be released freely.")%>
 160 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_OPEN_MODE,        1, "Open&nbsp;Mode" , "Packages can be released freely.")%>
176 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_RESTRICTIVE_MODE, 2, "Restrictive&nbsp;Mode" , "Packages can only be released on approval.")%>
 161 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_RESTRICTIVE_MODE, 2, "Restrictive&nbsp;Mode" , "Packages can only be released on approval.")%>
177 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CCB_MODE, 4, "CCB&nbsp;Mode" , "Packages can only be released on CCB approval.")%>
 162 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CCB_MODE,         4, "CCB&nbsp;Mode" , "Packages can only be released on CCB approval.")%>
178 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CLOSED_MODE, 3, "Closed&nbsp;Mode" , "No changes allowed.")%>
 163 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CLOSED_MODE,      3, "Closed&nbsp;Mode" , "No changes allowed.")%>
179 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_PRESERVE_MODE, 6, "Preserve&nbsp;Mode" , "No change allowed. Archived, but artifacts retained in dpkg_archive")%>
 164 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_PRESERVE_MODE,    6, "Preserve&nbsp;Mode" , "No change allowed. Archived, but artifacts retained in dpkg_archive")%>
180 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_ARCHIVE_MODE, 5, "Archive&nbsp;Mode" , "No change allowed. Packages may be purged from dpkg_archive.")%>
 165 
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_ARCHIVE_MODE,     5, "Archive&nbsp;Mode" , "No change allowed. Packages may be purged from dpkg_archive.")%>
181 
linkset[2]+='<hr>'
 166 
linkset[2]+='<hr>'
182 
 
 167 
 
183 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("CloneReleaseContents") Then%>
 168 
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("CloneReleaseContents") Then%>
184 
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_release.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=400,height=200\')">Import&nbsp;Release&nbsp;Contents</a></div>'
 169 
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_release.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=400,height=200\')">Import&nbsp;Release&nbsp;Contents</a></div>'
185 
<%Else%>
 170 
<%Else%>