Subversion Repositories DevTools

Rev

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

Rev 4955 Rev 5061
Line 34... Line 34...
34 
Sub MakeUnreleased ()
 34 
Sub MakeUnreleased ()
35 
   Dim objWSH
 35 
   Dim objWSH
36 
 
 36 
 
37 
   Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
 37 
   Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
38 
 
 38 
 
39 
   If pkgInfoHash.Item("can_unofficial") <> "true" AND NOT objAccessControl.IsActive("EditCriticalInfoForLockedPackage") Then Exit Sub
 39 
   If pkgInfoHash.Item("can_unofficial") <> "true" AND NOT canActionControlInProject("EditCriticalInfoForLockedPackage") Then Exit Sub
40 
 
 40 
 
41 
   OraDatabase.Parameters.Add "PV_ID",       Request("pv_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
 41 
   OraDatabase.Parameters.Add "PV_ID",       Request("pv_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
42 
   OraDatabase.Parameters.Add "RTAG_ID",       Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
 42 
   OraDatabase.Parameters.Add "RTAG_ID",       Request("rtag_id"),   ORAPARM_INPUT, ORATYPE_NUMBER
43 
   OraDatabase.Parameters.Add "USER_ID",       objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 43 
   OraDatabase.Parameters.Add "USER_ID",       objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
44 
 
 44