Subversion Repositories DevTools

Rev

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

Rev 3866 Rev 3881
Line 599... Line 599...
599 
          bcan_unlock = 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
 600 
        Else
601 
          bcan_unlock = objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
 601 
          bcan_unlock = objAccessControl.IsActive("EditCriticalInfoForLockedPackage")
602 
        End If
 602 
        End If
603 
 
 603 
 
604 
        If (pkgInfoHash.Item ("dlocked") = "Y") Then
 604 
        Select Case pkgInfoHash.Item ("dlocked")
605 
          sstate = "Released"
 605 
            Case "Y"  sstate = "Released"
606 
        Else
 606 
            Case "N"  sstate = "Not Released"
- 
 
 607 
            Case "P"  sstate = "Not Released. Pending approval"
- 
 
 608 
            Case "A"  sstate = "Not Released. Aproved for build"
607 
          sstate = "Not released"
 609 
            Case "R"  sstate = "Not Released. Rejected"
- 
 
 610 
            Case Else sstate = "Not Released. Invalid State"
608 
        End If
 611 
        End Select
609
612
610 
        If bcan_unlock  Then
 613 
        If bcan_unlock  Then
611 
          If (pkgInfoHash.Item ("dlocked") = "Y") Then
 614 
          If (pkgInfoHash.Item ("dlocked") = "Y") Then
612 
            ' Unlock patch.
 615 
            ' Unlock patch.
613 
            stitle="Unlock the patch"
 616 
            stitle="Unlock the patch"
614 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id
 617 
            shref="_s_unlock_package.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id