Subversion Repositories DevTools

Rev

Rev 7337 | Rev 7395 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7337 Rev 7380
Line 266... Line 266...
266
<%If canActionControlInProject("CreateNewRelease") Then%>
266
<%If canActionControlInProject("CreateNewRelease") Then%>
267
   linkset[2]+='<div class="menuitems"><a href="form_add_release.asp?source_rtag_id=<%=parRtag_id%>&proj_id=<%=DB_PROJ_ID%>&branch=Y&<%=objPMod.ComposeURL()%>">Clone&nbsp;Release</a></div>'
267
   linkset[2]+='<div class="menuitems"><a href="form_add_release.asp?source_rtag_id=<%=parRtag_id%>&proj_id=<%=DB_PROJ_ID%>&branch=Y&<%=objPMod.ComposeURL()%>">Clone&nbsp;Release</a></div>'
268
<%Else%>
268
<%Else%>
269
   linkset[2]+='<div class="menuitemDisable">Clone Release</div>'
269
   linkset[2]+='<div class="menuitemDisable">Clone Release</div>'
270
<%End If%>
270
<%End If%>
-
 
271
 
271
<%If canActionControlInProject("DestroyRelease") AND releaseIsClosed(ReleaseMode) Then%>
272
<%If (canActionControlInProject("DestroyRelease") OR releaseInfoHash("userCanDelete") = 1 ) AND releaseIsClosed(ReleaseMode) Then%>
272
   linkset[2]+='<div class="menuitems menufake"><span onClick="destroyThisRelease();">Destroy&nbsp;Release</span></div>'
273
   linkset[2]+='<div class="menuitems menufake"><span onClick="destroyThisRelease();">Destroy&nbsp;Release</span></div>'
273
<%Else%>
274
<%Else%>
274
   linkset[2]+='<div class="menuitemDisable">Destroy Release</div>'
275
   linkset[2]+='<div class="menuitemDisable">Destroy Release</div>'
275
<%End If%>
276
<%End If%>
276
 
277
 
Line 425... Line 426...
425
 
426
 
426
Sub Print_TopRight_Menu_ROW2
427
Sub Print_TopRight_Menu_ROW2
427
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"
428
   Response.write "<table bgcolor='#ffffff' border='0' cellpadding='0' cellspacing='0' height='35'>"
428
   Response.write "  <tr> "
429
   Response.write "  <tr> "
429
   If QStrPar("rtag_id") <> "" Then
430
   If QStrPar("rtag_id") <> "" Then
430
       Dim lxrContent : lxrContent = RenderLxrStateString(releaseInfoHash("rtag_id"),releaseInfoHash("lxr"),releaseInfoHash("lxrserver"), releaseInfoHash("official")," LXR")
431
       Dim lxrContent : lxrContent = RenderLxrStateString(releaseInfoHash("rtag_id"),releaseInfoHash("lxr"),releaseInfoHash("lxrServer"), releaseInfoHash("official")," LXR")
431
      If lxrContent <> "" Then
432
      If lxrContent <> "" Then
432
        Response.write "   <td class='mmEntry'>"& lxrContent &"</td>"
433
        Response.write "   <td class='mmEntry'>"& lxrContent &"</td>"
433
        Response.write "   <td align=middle>|</td>"
434
        Response.write "   <td align=middle>|</td>"
434
      End If
435
      End If
435
      Response.write "    <td class='mmEntry'><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[2])"" onMouseout=""delayhidemenu()"">Release</a></td>"
436
      Response.write "    <td class='mmEntry'><a class=mmItem href='#' onMouseover=""showmenu(event,linkset[2])"" onMouseout=""delayhidemenu()"">Release</a></td>"