Subversion Repositories DevTools

Rev

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

Rev 5009 Rev 5061
Line 254... Line 254...
254
 
254
 
255
      Else
255
      Else
256
         If Request("rtag_id_list") = "" Then
256
         If Request("rtag_id_list") = "" Then
257
            Err.Raise 8, "Please select one release.", "No further details available."
257
            Err.Raise 8, "Please select one release.", "No further details available."
258
         Else
258
         Else
259
            Call OpenInWindow ( "form_edit_release.asp?rtag_id_list="& Replace( Request("rtag_id_list"), " ","" ) & "&" & objPMod.ComposeURLWithout("proj_id") )
259
            Call OpenInWindow ( "form_edit_release.asp?rtag_id="& Replace( Request("rtag_id_list"), " ","" ) & "&" & objPMod.ComposeURLWithout("proj_id") )
260
         End If
260
         End If
261
 
261
 
262
      End If
262
      End If
263
 
263
 
264
   objEH.Catch
264
   objEH.Catch
Line 513... Line 513...
513
                  ' Set spacing to minimum between buttons
513
                  ' Set spacing to minimum between buttons
514
                  objBtnControl.ButtonSpacer = 0
514
                  objBtnControl.ButtonSpacer = 0
515
                  objBtnControl.ImageHspace = 2
515
                  objBtnControl.ImageHspace = 2
516
 
516
 
517
                  ' Access Control
517
                  ' Access Control
518
                  If NOT objAccessControl.IsActive("CreateNewRelease") Then Call objBtnControl.Active ( "btnNewRelease", "N" )
518
                  If NOT canActionControlInProject("CreateNewRelease") Then Call objBtnControl.Active ( "btnNewRelease", "N" )
519
                  If NOT objAccessControl.IsActive("DestroyRelease") Then Call objBtnControl.Active ( "btnDestroyRelease", "N" )
519
                  If NOT canActionControlInProject("DestroyRelease") Then Call objBtnControl.Active ( "btnDestroyRelease", "N" )
520
                  If NOT objAccessControl.IsActive("CreateNewRelease") Then Call objBtnControl.Active ( "btnMoveRelease", "N" )
520
                  If NOT canActionControlInProject("ConfigureRelease") Then Call objBtnControl.Active ( "btnMoveRelease", "N" )
521
 
521
 
522
                  ' -- Render Buttons
522
                  ' -- Render Buttons
523
                  Call objBtnControl.Render  ( aBtnsDef, objAccessControl )
523
                  Call objBtnControl.Render  ( aBtnsDef, objAccessControl )
524
                  %>
524
                  %>
525
               </td>
525
               </td>