Subversion Repositories DevTools

Rev

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

Rev 5086 Rev 5097
Line 168... Line 168...
168 
Call objBtnControl.Active  ( "btnDestroyWip", "N" )
 168 
Call objBtnControl.Active  ( "btnDestroyWip", "N" )
169 
Call objBtnControl.Visible ( "btnDestroyWip", "N" )
 169 
Call objBtnControl.Visible ( "btnDestroyWip", "N" )
170 
 
 170 
 
171 
If (pkgInfoHash.Item("can_edit_in_project") = "1") Then
 171 
If (pkgInfoHash.Item("can_edit_in_project") = "1") Then
172 
   '-- Change button setting on conditions ---
 172 
   '-- Change button setting on conditions ---
173 
   If ( pkgInfoHash.Item ("build_type") = "A" ) Then
 173 
   If ( pkgInfoHash.Item ("build_type") <> "M" ) Then
174 
      ' For automatic build
 174 
      ' For automatic build
175 
      Call objBtnControl.Visible ( "btnMakePending", "Y" )
 175 
      Call objBtnControl.Visible ( "btnMakePending", "Y" )
176 
 
 176 
 
177 
      Call objBtnControl.Visible ( "btnApprovePackage", "Y" )
 177 
      Call objBtnControl.Visible ( "btnApprovePackage", "Y" )
178 
      Call objBtnControl.Active  ( "btnApprovePackage", "N" )
 178 
      Call objBtnControl.Active  ( "btnApprovePackage", "N" )
179 
 
 179 
 
180 
      Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
 180 
      Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
181 
      Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
 181 
      Call objBtnControl.Visible ( "btnRejectPackage", "Y" )
182 
   Else
 182 
   Else
183 
      ' For Manual Build
 183 
      ' For Manual Build
- 
 
 184 
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) Then
184 
      If ( ReleaseMode = enumDB_RELEASE_IN_CCB_MODE ) And Not canShowControlInProject("ApproveForManualBuild") Then
 185 
          If Not canShowControlInProject("ApproveForManualBuild") Then
185 
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
 186 
         Call objBtnControl.Visible ( "btnMakeRelease", "N" )
186 
      Else
 187 
      Else
187 
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
 188 
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
188 
         Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
 189 
         Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
189 
      End If
 190 
      End If
- 
 
 191 
      End If
190 
 
 192 
 
191 
      If (pkgInfoHash.Item("is_patch")) <> "" Then
 193 
      If (pkgInfoHash.Item("is_patch")) <> "" Then
192 
         If canShowControlInProject ("ReleasePatch") Then
 194 
         If canShowControlInProject ("ReleasePatch") Then
193 
            Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
 195 
            Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
194 
         Else
 196 
         Else
Line 210... Line 212...
210 
 
 212 
 
211 
         If (ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (NOT canShowControlInProject("AlterReleaseContentsInRestrictiveMode")) Then
 213 
         If (ReleaseMode = enumDB_RELEASE_IN_CCB_MODE) OR (NOT canShowControlInProject("AlterReleaseContentsInRestrictiveMode")) Then
212 
            Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
 214 
            Call objBtnControl.Visible ( "btnMakeUnrelease", "N" )
213 
            Call objBtnControl.Visible ( "btnRemovePackage", "N" )
 215 
            Call objBtnControl.Visible ( "btnRemovePackage", "N" )
214 
         End If
 216 
         End If
215 
 
 - 
 
216 
      Else
 - 
 
217 
         'Call objBtnControl.Active ( "btnMakeRelease", "Y" )
 - 
 
218 
      End If
 217 
      End If
219 
 
 218 
 
- 
 
 219 
    If ( ReleaseMode = enumDB_RELEASE_IN_OPEN_MODE) Then
- 
 
 220 
         Call objBtnControl.Active ( "btnMakeRelease", "Y" )
- 
 
 221 
         Call objBtnControl.Visible ( "btnMakeRelease", "Y" )
- 
 
 222 
    End If
- 
 
 223 
 
220 
   End If
 224 
   End If
221 
End If
 225 
End If
222 
 
 226 
 
223 
 
 227 
 
224 
 
 228