Subversion Repositories DevTools

Rev

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

Rev 2731 Rev 3610
Line 591... Line 591...
591
        Dim stitle
591
        Dim stitle
592
        Dim bis_patch
592
        Dim bis_patch
593
        Dim slockonclick: slockonclick=""
593
        Dim slockonclick: slockonclick=""
594
 
594
 
595
        bis_patch = not IsNull(pkgInfoHash.Item ("is_patch")) 
595
        bis_patch = not IsNull(pkgInfoHash.Item ("is_patch")) 
-
 
596
        If bis_patch Then
596
        ' the user can unlock a patch if they have permission
597
          ' the user can unlock a patch if they have permission
597
        ' packages can be unlocked by the btnUnlockRelease button
598
          ' packages can be unlocked by the btnUnlockRelease button
598
        bcan_unlock = bis_patch AND objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND (objAccessControl.IsActive("UnlockPatch"))
599
          bcan_unlock = objAccessControl.IsDataActive ("PROJECTS", DB_PROJ_ID, "EditProjects") AND objAccessControl.IsActive("UnlockPatch")
-
 
600
        Else
-
 
601
          bcan_unlock = objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
-
 
602
        End If
599
 
603
 
600
        If (pkgInfoHash.Item ("dlocked") = "Y") Then
604
        If (pkgInfoHash.Item ("dlocked") = "Y") Then
601
          sstate = "Released"
605
          sstate = "Released"
602
        Else
606
        Else
603
          sstate = "Not released"
607
          sstate = "Not released"
Line 608... Line 612...
608
            ' Unlock patch.
612
            ' Unlock patch.
609
            stitle="Unlock the patch"
613
            stitle="Unlock the patch"
610
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
614
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
611
          ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
615
          ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
612
            ' lock patch.
616
            ' lock patch.
613
            shref="_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
-
 
614
            stitle="Lock the patch. Release requirements are not applied."
617
            stitle="Lock the patch. Release requirements are not applied."
-
 
618
            shref="_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
-
 
619
          Else
-
 
620
            ' unlock patch.
-
 
621
            stitle="Unlock the patch"
-
 
622
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
-
 
623
            bcan_unlock = FALSE
615
          End If
624
          End If
616
        End if
625
        End if
617
 
626
 
618
      %>
627
      %>
619
 
628
 
620
      <tr>
629
      <tr>
621
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
630
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
622
         <% If bcan_unlock Then
631
         <% If bcan_unlock Then
623
              If (slockonclick = "") Then%>
632
              If (slockonclick = "") Then%>
624
                <a href=<%=shref%> class='body_txt' title=<%=stitle%>><strong>Status:</strong><img src='images/i_edit.gif' width='12' height='12' border='0' ></a>
633
                <a class='body_txt' title='<%=stitle%>' href='<%=shref%>' > <strong>Status:</strong><img src='images/i_edit.gif' width='12' height='12' border='0' ></a>
625
         <%   Else %>
634
         <%   Else %>
626
                <a href=<%=shref%> onClick=<%=slockonclick%> class='body_txt' title=<%=stitle%>><strong>Status:</strong><img src='images/i_edit.gif' width='12' height='12' border='0' ></a>
635
                <a href='<%=shref%>' onClick='<%=slockonclick%>' class='body_txt' title='<%=stitle%>'> <strong>Status:</strong> <img src='images/i_edit.gif' width='12' height='12' border='0' ></a>
627
         <%   End If %>
636
         <%   End If %>
628
         <% Else %>
637
         <% Else %>
629
              <b><strong>Status:</strong></b>
638
              <b><strong>Status:</strong></b>
630
         <% End If %>
639
         <% End If %>
631
         </td>
640
         </td>
Line 1337... Line 1346...
1337
         <a name="RIPPLE_PROPERTIES"></a>
1346
         <a name="RIPPLE_PROPERTIES"></a>
1338
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1347
         <table width="100%" border="0" cellspacing="1" cellpadding="2">
1339
            <tr>
1348
            <tr>
1340
               <td class="body_colb"></td>
1349
               <td class="body_colb"></td>
1341
               <td align="right" valign="bottom">
1350
               <td align="right" valign="bottom">
1342
                  <%If (objAccessControl.IsVisible( "RipplePackage" ) AND pageIsEditable) OR criticalSectionIsEditable Then%>
1351
                  <%If (objAccessControl.IsVisible( "RipplePackage" ) AND pageIsEditable) OR criticalSectionIsEditable OR objAccessControl.IsVisible( "PegPackageVersions" ) Then%>
1343
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_ripple_properties.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','RippleType','resizable=yes,width=800,height=500')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1352
                     <a href='javascript:;' onClick="MM_openBrWindow('_wform_ripple_properties.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','RippleType','resizable=yes,width=800,height=500')" class="txt_linked">Edit<img src="images/i_edit.gif" width="12" height="12" hspace="2" border="0" align="absmiddle"></a>
1344
                  <%End If%>
1353
                  <%End If%>
1345
               </td>
1354
               </td>
1346
            </tr>
1355
            </tr>
1347
         </table>
1356
         </table>