Subversion Repositories DevTools

Rev

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

Rev 5929 Rev 5964
Line 237... Line 237...
237 
   If AssocMASSREF Then
 237 
   If AssocMASSREF Then
238 
      Call objBtnControl.Visible ( "btnNewVersion-MASSREF", "Y" )
 238 
      Call objBtnControl.Visible ( "btnNewVersion-MASSREF", "Y" )
239 
   End If
 239 
   End If
240 
 
 240 
 
241 
   If (parRtag_id > 0) AND canShowControlInProject("DeprecatePackage") Then
 241 
   If (parRtag_id > 0) AND canShowControlInProject("DeprecatePackage") Then
242 
      Dim rsDeprecate
 - 
 
243 
      If NOT IsNull(pkgInfoHash.Item ("v_ext")) Then
 242 
      If (pkgInfoHash.Item("is_deprecated")) Then
244 
         Set rsDeprecate = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& parRtag_id &" AND V_EXT ='"& pkgInfoHash.Item ("v_ext") &"' AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
 - 
 
245 
      Else
 - 
 
246 
         Set rsDeprecate = OraDatabase.DbCreateDynaset("SELECT * FROM DEPRECATED_PACKAGES WHERE RTAG_ID ="& parRtag_id &" AND V_EXT IS NULL AND PKG_ID = "& pkgInfoHash.Item ("pkg_id") &"", cint(0))
 - 
 
247 
      End If
 - 
 
248 
 
 - 
 
249 
      If (rsDeprecate.RecordCount) = 0 Then
 - 
 
250 
         Call objBtnControl.Visible ( "btnDeprecation", "Y" )
 243 
         Call objBtnControl.Visible ( "btnDeprecation", "Y" )
251 
      Else
 244 
      Else
252 
         Call objBtnControl.Visible ( "btnUnDeprecation", "Y" )
 245 
         Call objBtnControl.Visible ( "btnUnDeprecation", "Y" )
253 
      End If
 246 
      End If
254 
      rsDeprecate.Close()
 - 
 
255 
      Set rsDeprecate = nothing
 - 
 
256 
   Else
 247 
   Else
257 
    Call objBtnControl.Active ( "btnDeprecation",  "N")
 248 
    Call objBtnControl.Active ( "btnDeprecation",  "N")
258 
    Call objBtnControl.Visible ( "btnDeprecation",  "Y")
 249 
    Call objBtnControl.Visible ( "btnDeprecation",  "Y")
259 
   End If
 250 
   End If
260 
 
 251 
 
Line 335... Line 326...
335 
        If ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then
 326 
        If ( (objAccessControl.UserName = pkgInfoHash.Item("creator")) OR (canActionControlInProject("DestroyPackageFromRelease")) ) Then
336 
            Call objBtnControl.Active  ( "btnDestroyWip", "Y" )
 327 
            Call objBtnControl.Active  ( "btnDestroyWip", "Y" )
337 
        End If
 328 
        End If
338 
   End If
 329 
   End If
339 
 
 330 
 
- 
 
 331 
   If pkgInfoHash.Item("is_wip")  Then
- 
 
 332 
        Call objBtnControl.Active  ( "btnRemovePackage", "N" )
- 
 
 333 
        Call objBtnControl.Visible ( "btnRemovePackage", "N" )
- 
 
 334 
   End If
- 
 
 335 
 
340 
End If
 336 
End If
341 
 
 337 
 
342 
 
 338 
 
343 
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then
 339 
If IsNull(pkgInfoHash.Item ("is_obsolete")) Then
344 
   Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )
 340 
   Call objBtnControl.Visible ( "btnObsoletePatch", "Y" )