Subversion Repositories DevTools

Rev

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

Rev 5173 Rev 5179
Line 310... Line 310...
310 
 
 310 
 
311 
        ' Determine the state of the Release
 311 
        ' Determine the state of the Release
312 
        ' Can only add packages to a release that is in Open Mode(N) or Restricted Mode(R)
 312 
        ' Can only add packages to a release that is in Open Mode(N) or Restricted Mode(R)
313 
        Set rsQry = OraDatabase.DbCreateDynaset( "SELECT OFFICIAL FROM RELEASE_TAGS WHERE RTAG_ID ="&parRtag_id, cint(0))
 313 
        Set rsQry = OraDatabase.DbCreateDynaset( "SELECT OFFICIAL FROM RELEASE_TAGS WHERE RTAG_ID ="&parRtag_id, cint(0))
314 
        objEH.Try
 314 
        objEH.Try
315 
        If rsQry("official") = "N" OR rsQry("official") = "R" Then
 315 
        If releaseIsWritable(rsQry("official")) Then
316 
 
 316 
 
317 
          OraSession.BeginTrans
 317 
          OraSession.BeginTrans
318 
 
 318 
 
319 
          '---- SQL parameters ----
 319 
          '---- SQL parameters ----
320 
          OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER
 320 
          OraDatabase.Parameters.Add "RTAG_ID", parRtag_id, ORAPARM_INPUT, ORATYPE_NUMBER