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>