Subversion Repositories DevTools

Rev

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

Rev 5270 Rev 5293
Line 542... Line 542...
542 
      Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), rsQry("dlocked"), vcsInfoCollector )
 542 
      Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), rsQry("dlocked"), vcsInfoCollector )
543
543
544 
      %>
 544 
      %>
545 
 
 545 
 
546 
      <%
 546 
      <%
547 
        ' State
 547 
        ' Status:
548 
        Dim sstate
 548 
        Dim sstate
549 
        Dim bcan_unlock
 549 
        Dim bcan_unlock
550 
        Dim stitle
 550 
        Dim stitle
551 
        Dim bis_patch
 551 
        Dim bis_patch
552 
        Dim slockonclick: slockonclick=""
 552 
        Dim slockonclick: slockonclick=""
- 
 
 553 
        Dim spkgType
553 
 
 554 
 
554 
        bis_patch = not IsNull(pkgInfoHash.Item ("is_patch"))
555 
        bis_patch = not IsNull(pkgInfoHash.Item ("is_patch"))
555 
        If bis_patch Then
 556 
        If bis_patch Then
556 
          ' the user can unlock a patch if they have permission
 557 
          ' the user can unlock a patch if they have permission
557 
          ' packages can be unlocked by the btnUnlockRelease button
 558 
          ' packages can be unlocked by the btnUnlockRelease button
558 
          bcan_unlock = canActionControlInProject("UnlockPatch")
 559 
          bcan_unlock = canActionControlInProject("UnlockPatch")
- 
 
 560 
          spkgType = "Patch"
559 
        Else
 561 
        Else
560 
          bcan_unlock = canActionControlInProject("EditCriticalInfoForLockedPackage")
 562 
          bcan_unlock = canActionControlInProject("EditCriticalInfoForLockedPackage")
- 
 
 563 
          spkgType = "Package"
561 
        End If
 564 
        End If
562 
 
 565 
 
563 
        If pkgInfoHash.Item("is_sdkpkg") Then bcan_unlock = FALSE
 566 
        If pkgInfoHash.Item("is_sdkpkg") Then bcan_unlock = FALSE
564 
 
 567 
 
565 
        Select Case pkgInfoHash.Item ("dlocked")
 568 
        Select Case pkgInfoHash.Item ("dlocked")
Line 571... Line 574...
571 
            Case Else sstate = "Not Released. Invalid State"
 574 
            Case Else sstate = "Not Released. Invalid State"
572 
        End Select
 575 
        End Select
573
576
574 
        If bcan_unlock  Then
 577 
        If bcan_unlock  Then
575 
          If (pkgInfoHash.Item ("dlocked") = "Y") Then
 578 
          If (pkgInfoHash.Item ("dlocked") = "Y") Then
576 
            ' Unlock patch.
 579 
            ' Unlock patch/package.
577 
            stitle="Unlock the patch"
 580 
            stitle="Unlock the " & spkgType
578 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
 581 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
- 
 
 582 
 
579 
          ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
 583 
          ElseIf (pkgInfoHash.Item ("dlocked") = "N") Then
580 
            ' lock patch.
 584 
            ' lock patch/package.
581 
            stitle="Lock the patch. Release requirements are not applied."
 585 
            stitle="Lock the "& spkgType &". Release requirements are not applied."
582 
            shref="_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
 586 
            shref="_s_lock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
- 
 
 587 
 
583 
          Else
 588 
          Else
584 
            ' unlock patch.
 589 
            ' unlock patch/package.
585 
            stitle="Unlock the patch"
 590 
            stitle="Unlock the " & spkgType
586 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
 591 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
587 
            bcan_unlock = FALSE
 592 
            bcan_unlock = FALSE
588 
          End If
 593 
          End If
589 
        End if
 594 
        End if
590 
 
 - 
 
591 
      %>
 595 
      %>
592 
 
 596 
 
593 
      <tr>
 597 
      <tr>
594 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
 598 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top">
595 
         <% If bcan_unlock Then
 599 
         <% If bcan_unlock Then