Subversion Repositories DevTools

Rev

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

Rev 5058 Rev 5061
Line 112... Line 112...
112
var linkset=new Array()
112
var linkset=new Array()
113
// ---- Popup menu definition ----
113
// ---- Popup menu definition ----
114
 
114
 
115
linkset[0]=''
115
linkset[0]=''
116
<%=Projects_Menu ( 0 )%>
116
<%=Projects_Menu ( 0 )%>
117
 
117
<%
-
 
118
'-------------------------------------------------
-
 
119
' Function:     genReleaseMode    
-
 
120
' Description:  Generate one line of the Release State dropdown menu
-
 
121
Function genReleaseMode(mode, emode, code, name, title)
-
 
122
    genReleaseMode = ""
-
 
123
    Dim href: href = ""
-
 
124
    Dim mclass : mclass = "menuitems"
-
 
125
        If mode = emode Then
-
 
126
            genReleaseMode = genReleaseMode & LMENU_TICK
-
 
127
            mclass="menuitemDisable"
-
 
128
        Else
-
 
129
            If canActionInProject() Then
-
 
130
                If canChangeMode Then
-
 
131
                    href = "<a href=""_change_release_mode.asp?mode_code=" & code & "&"& objPMod.ComposeURL() &""">"
-
 
132
                    genReleaseMode = genReleaseMode & href
-
 
133
                Else
-
 
134
                    mclass="menuitemDisable"
-
 
135
                End If
-
 
136
                genReleaseMode = genReleaseMode & LMENU_BLANK
-
 
137
            End If
-
 
138
        End If
-
 
139
        If genReleaseMode <> "" Then
-
 
140
            genReleaseMode = genReleaseMode & "<span title=""" & title & """>&nbsp;" & name &"</span>"
-
 
141
            If href <> "" Then genReleaseMode = genReleaseMode & "</a>"
-
 
142
            genReleaseMode = "<div class="""&mclass&""">" & genReleaseMode & "</div>"
-
 
143
        End If
-
 
144
    genReleaseMode = "'" & genReleaseMode & "'"
-
 
145
End Function
118
 
146
 
-
 
147
Dim canChangeMode : canChangeMode = FALSE
-
 
148
If ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE Then
-
 
149
    canChangeMode = canActionInProject()
-
 
150
ElseIf ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then
-
 
151
    canChangeMode = canActionControlInProject("ChangeModeFromRestrictive") OR canActionControlInProject("ChangeModeFromClosed") 
-
 
152
ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then
-
 
153
    canChangeMode = canActionControlInProject("ChangeModeFromRestrictive") OR canActionControlInProject("ChangeModeFromClosed") 
-
 
154
ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then
-
 
155
    canChangeMode = canActionControlInProject("ChangeModeFromClosed") 
-
 
156
ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then
-
 
157
    canChangeMode = canActionControl("MSMaintainer") 
-
 
158
End If
-
 
159
%>
119
linkset[2]=''
160
linkset[2]=''
-
 
161
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_OPEN_MODE, 1, "Open&nbsp;Mode" , "Packages can be released freely.")%>
-
 
162
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_RESTRICTIVE_MODE, 2, "Restrictive&nbsp;Mode" , "Packages can only be released on approval.")%>
-
 
163
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CCB_MODE, 4, "CCB&nbsp;Mode" , "Packages can only be released on CCB approval.")%>
-
 
164
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_CLOSED_MODE, 3, "Closed&nbsp;Mode" , "No changes allowed.")%>
-
 
165
linkset[2]+=<%=genReleaseMode(ReleaseMode,enumDB_RELEASE_IN_ARCHIVE_MODE, 5, "Archive&nbsp;Mode" , "This would put the release into archive state.")%>
-
 
166
linkset[2]+='<hr>'
120
 
167
 
121
<%If (objAccessControl.IsVisible ("ChangeModeFromRestrictive")  OR  objAccessControl.IsVisible ("ChangeModeFromClosed")) And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") Then%>
-
 
122
 
-
 
123
   <%If ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE Then%>
-
 
124
 
-
 
125
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Open&nbsp;Mode</div>'
-
 
126
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
-
 
127
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
-
 
128
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
-
 
129
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
-
 
130
 
-
 
131
   <%ElseIf ReleaseMode = enumDB_RELEASE_IN_RESTRICTIVE_MODE Then%>
-
 
132
 
-
 
133
      <%If objAccessControl.IsVisible ("ChangeModeFromRestrictive") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
-
 
134
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
-
 
135
      <%End If%>
-
 
136
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Restrictive&nbsp;Mode</div>'
-
 
137
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
-
 
138
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
-
 
139
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
-
 
140
 
-
 
141
   <%ElseIf ReleaseMode = enumDB_RELEASE_IN_CCB_MODE Then%>
-
 
142
 
-
 
143
      <%If objAccessControl.IsVisible ("ChangeModeFromRestrictive") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
-
 
144
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
-
 
145
      <%End If%>
-
 
146
 
-
 
147
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
-
 
148
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;CCB&nbsp;Mode</div>'
-
 
149
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
-
 
150
      linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
-
 
151
 
-
 
152
   <%ElseIf ReleaseMode = enumDB_RELEASE_IN_CLOSED_MODE Then%>
-
 
153
 
-
 
154
      <%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
-
 
155
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
-
 
156
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
-
 
157
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
-
 
158
      <%End If%>
-
 
159
 
-
 
160
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Closed&nbsp;Mode</div>'
-
 
161
 
-
 
162
      <%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
-
 
163
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=5&<%=objPMod.ComposeURL()%>" title="This would put the release into archive state."><%=LMENU_BLANK%>&nbsp;Archive&nbsp;Mode</a></div>'
-
 
164
      <%End If%>
-
 
165
 
-
 
166
   <%ElseIf ReleaseMode = enumDB_RELEASE_IN_ARCHIVE_MODE Then%>
-
 
167
      <%If objAccessControl.IsVisible ("ChangeModeFromClosed") And objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects")  Then%>
-
 
168
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=1&<%=objPMod.ComposeURL()%>" title="Packages can be released freely."><%=LMENU_BLANK%>&nbsp;Open&nbsp;Mode</a></div>'
-
 
169
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=2&<%=objPMod.ComposeURL()%>" title="Packages can only be released on approval."><%=LMENU_BLANK%>&nbsp;Restrictive&nbsp;Mode</a></div>'
-
 
170
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=4&<%=objPMod.ComposeURL()%>" title="Packages can only be released on CCB approval."><%=LMENU_BLANK%>&nbsp;CCB&nbsp;Mode</a></div>'
-
 
171
         linkset[2]+='<div class="menuitems"><a href="_change_release_mode.asp?mode_code=3&<%=objPMod.ComposeURL()%>" title="No changes allowed."><%=LMENU_BLANK%>&nbsp;Closed&nbsp;Mode</a></div>'
-
 
172
      <%End If%>
-
 
173
 
-
 
174
      linkset[2]+='<div class="menuitems"><%=LMENU_TICK%>&nbsp;Archive&nbsp;Mode</a></div>'
-
 
175
 
-
 
176
   <%End If%>
-
 
177
 
-
 
178
   // Separator
-
 
179
   linkset[2]+='<hr>'
-
 
180
 
-
 
181
<%End If%>
-
 
182
 
-
 
183
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("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%>
186
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Release&nbsp;Contents</div>'
171
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Release&nbsp;Contents</div>'
187
<%End If%>
172
<%End If%>
188
 
173
 
189
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("ImportDependencies") Then%>
174
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("ImportDependencies") Then%>
190
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_dependency.asp?<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import&nbsp;Dependencies</a></div>'
175
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_dependency.asp?<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import&nbsp;Dependencies</a></div>'
191
<%Else%>
176
<%Else%>
192
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Dependencies</div>'
177
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Dependencies</div>'
193
<%End If%>
178
<%End If%>
194
 
179
 
195
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND objAccessControl.IsVisible ("ImportDependencies") Then%>
180
<%If (ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) AND canShowControlInProject ("ImportDependencies") Then%>
196
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_daemonconfig.asp?<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import&nbsp;Daemon&nbsp;Config</a></div>'
181
   linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_import_daemonconfig.asp?<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=200\')">Import&nbsp;Daemon&nbsp;Config</a></div>'
197
//   linkset[2]+='<div class="menuitems"><a href="import_daemonconfig.asp?rtag_id=<%=parRtag_id%>">Import&nbsp;Daemon&nbsp;Config</a></div>'
182
//   linkset[2]+='<div class="menuitems"><a href="import_daemonconfig.asp?rtag_id=<%=parRtag_id%>">Import&nbsp;Daemon&nbsp;Config</a></div>'
198
 
183
 
199
<%Else%>
184
<%Else%>
200
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Daemon&nbsp;Config</div>'
185
   linkset[2]+='<div class="menuitemDisable">Import&nbsp;Daemon&nbsp;Config</div>'
Line 202... Line 187...
202
 
187
 
203
linkset[2]+='<hr>'
188
linkset[2]+='<hr>'
204
linkset[2]+='<div class="menuitems"><a href="sdk_main_page.asp?rtag_id=<%=parRtag_id%>">Create SDK</a></div>'
189
linkset[2]+='<div class="menuitems"><a href="sdk_main_page.asp?rtag_id=<%=parRtag_id%>">Create SDK</a></div>'
205
 
190
 
206
linkset[2]+='<hr>'
191
linkset[2]+='<hr>'
207
linkset[2]+='<div class="menuitems"><a href="form_edit_release.asp?rtag_id_list=<%=parRtag_id%>">Release&nbsp;Properties</a></div>'
192
linkset[2]+='<div class="menuitems"><a href="form_edit_release.asp?rtag_id=<%=parRtag_id%>">Release&nbsp;Properties</a></div>'
208
linkset[2]+='<div class="menuitems"><a href="diff.asp?rtagB=<%=parRtag_id%>" >Merge&nbsp;Manager</a></div>'
193
linkset[2]+='<div class="menuitems"><a href="diff.asp?rtagB=<%=parRtag_id%>" >Merge&nbsp;Manager</a></div>'
209
linkset[2]+='<div class="menuitems"><a href="build_order.asp?rtag_id=<%=parRtag_id%>">Build&nbsp;Order</a></div>'
194
linkset[2]+='<div class="menuitems"><a href="build_order.asp?rtag_id=<%=parRtag_id%>">Build&nbsp;Order</a></div>'
210
linkset[2]+='<div class="menuitems"><a href="form_view_release_licencing.asp?rtag_id=<%=parRtag_id%>">View Licencing</a></div>'
195
linkset[2]+='<div class="menuitems"><a href="form_view_release_licencing.asp?rtag_id=<%=parRtag_id%>">View Licencing</a></div>'
211
linkset[2]+='<div class="menuitems"><a href="form_edit_release_licencing.asp?rtag_id=<%=parRtag_id%>">Edit Licencing</a></div>'
196
linkset[2]+='<div class="menuitems"><a href="form_edit_release_licencing.asp?rtag_id=<%=parRtag_id%>">Edit Licencing</a></div>'
212
linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'wAddDaemonInstruction.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=350\')">Add&nbsp;Daemon&nbsp;Instruction</a></div>'
197
linkset[2]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'wAddDaemonInstruction.asp?ToRtag_id=<%=parRtag_id%>&<%=objPMod.ComposeURL()%>\',\'ReleaseManager\',\'scrollbars=yes,resizable=yes,width=800,height=350\')">Add&nbsp;Daemon&nbsp;Instruction</a></div>'
213
 
198
 
214
   linkset[6]=''
199
   linkset[6]=''
215
   linkset[6]+='<div class="menuitems"><a href="admin_build_service.asp">Build&nbsp;Service</a></div>'
200
   linkset[6]+='<div class="menuitems"><a href="admin_build_service.asp">Build&nbsp;Service</a></div>'
216
   linkset[6]+='<div class="menuitems"><a href="admin_build_test_page.asp">Release&nbsp;Manager&nbsp;Tests</a></div>'
201
   linkset[6]+='<div class="menuitems"><a href="admin_build_test_page.asp">Release&nbsp;Manager&nbsp;Tests</a></div>'
217
<%If objAccessControl.IsActive("MSMaintainer") Then%>
202
<%If canActionControl("MSMaintainer") Then%>
218
   linkset[6]+='<div class="menuitems"><a href="admin_session_details.asp">Session&nbsp;Details</a></div>'
203
   linkset[6]+='<div class="menuitems"><a href="admin_session_details.asp">Session&nbsp;Details</a></div>'
219
<%End If%>
204
<%End If%>
220
<%If objAccessControl.IsActive("ConfigureBuildService") Then%>
205
<%If canActionControl("ConfigureBuildService") Then%>
221
   linkset[6]+='<hr>'
206
   linkset[6]+='<hr>'
222
   linkset[6]+='<div class="menuitems"><a href="admin_gbe_machtype.asp">GBE&nbsp;MachType</a></div>'
207
   linkset[6]+='<div class="menuitems"><a href="admin_gbe_machtype.asp">GBE&nbsp;MachType</a></div>'
223
   linkset[6]+='<div class="menuitems"><a href="admin_gbe_machclass.asp">GBE&nbsp;MachClass</a></div>'
208
   linkset[6]+='<div class="menuitems"><a href="admin_gbe_machclass.asp">GBE&nbsp;MachClass</a></div>'
224
   linkset[6]+='<div class="menuitems"><a href="admin_build_machine.asp">Build&nbsp;Machine</a></div>'
209
   linkset[6]+='<div class="menuitems"><a href="admin_build_machine.asp">Build&nbsp;Machine</a></div>'
225
   linkset[6]+='<div class="menuitems"><a href="admin_licences.asp">Licences</a></div>'
210
   linkset[6]+='<div class="menuitems"><a href="admin_licences.asp">Licences</a></div>'
226
   linkset[6]+='<div class="menuitems"><a href="admin_vcs_types.asp">Version&nbsp;Control&nbsp;Systems</a></div>'
211
   linkset[6]+='<div class="menuitems"><a href="admin_vcs_types.asp">Version&nbsp;Control&nbsp;Systems</a></div>'
227
<%End If%>
212
<%End If%>
228
<%If (objAccessControl.IsActive("CreateNewProject")) Then%>
213
<%If (canActionControl("CreateNewProject")) Then%>
229
   linkset[6]+='<hr>'
214
   linkset[6]+='<hr>'
230
   linkset[6]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_new_project.asp\',\'ReleaseManager\',\'resizable=yes,width=400,height=200\')">New&nbsp;Project</a></div>'
215
   linkset[6]+='<div class="menuitems"><a href="javascript:;" onClick="MM_openBrWindow(\'_wform_new_project.asp\',\'ReleaseManager\',\'resizable=yes,width=400,height=200\')">New&nbsp;Project</a></div>'
231
   linkset[6]+='<div class="menuitems"><a href="admin_projects.asp">Project&nbsp;Info</a></div>'
216
   linkset[6]+='<div class="menuitems"><a href="admin_projects.asp">Project&nbsp;Info</a></div>'
232
   linkset[6]+='<div class="menuitems"><a href="admin_project_suffix.asp">Project&nbsp;Suffix</a></div>'
217
   linkset[6]+='<div class="menuitems"><a href="admin_project_suffix.asp">Project&nbsp;Suffix</a></div>'
233
<%End If%>
218
<%End If%>