Subversion Repositories DevTools

Rev

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

Rev 5173 Rev 5179
Line 128... Line 128...
128 
Dim rsQry
 128 
Dim rsQry
129 
Dim bAdded: bAdded = False
 129 
Dim bAdded: bAdded = False
130 
 
 130 
 
131 
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT OFFICIAL FROM RELEASE_TAGS WHERE RTAG_ID ="&Request("rtag_id"), cint(0))
 131 
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT OFFICIAL FROM RELEASE_TAGS WHERE RTAG_ID ="&Request("rtag_id"), cint(0))
132 
objEH.Try
 132 
objEH.Try
133 
If rsQry("official") = "N" OR rsQry("official") = "R" Then
 133 
If releaseIsWritable(rsQry("official")) Then
134 
 
 134 
 
135 
   '--- Process submition ---
 135 
   '--- Process submition ---
136 
   If  ( Request("rtag_id") <> "" ) AND ( Request("pkg_list") <> "" ) Then
 136 
   If  ( Request("rtag_id") <> "" ) AND ( Request("pkg_list") <> "" ) Then
137 
 
 137 
 
138 
      ' All mandatory parameters FOUND
 138 
      ' All mandatory parameters FOUND