Subversion Repositories DevTools

Rev

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

Rev 165 Rev 167
Line 57... Line 57...
57 
   WEnd
 57 
   WEnd
58 
 
 58 
 
59 
   rsTemp.Close
 59 
   rsTemp.Close
60 
   Set rsTemp = nothing
 60 
   Set rsTemp = nothing
61 
End Sub
 61 
End Sub
- 
 
 62 
 
62 
'--------------------------------------------------------------------------------------------------------------------
 63 
'--------------------------------------------------------------------------------------------------------------------
63 
Sub Seed_DB ( ARRpkg, retPV_ID_LIST )
 64 
Sub Seed_DB ( ARRpkg, retPV_ID_LIST )
64 
   Dim i, lastRow
 65 
   Dim i, lastRow
65 
 
 66 
 
66 
   On Error Resume Next
 67 
   On Error Resume Next
Line 121... Line 122...
121 
%>
 122 
%>
122 
<%
 123 
<%
123 
'-----------------------  MAIN LINE  ---------------------------
 124 
'-----------------------  MAIN LINE  ---------------------------
124 
On Error Resume Next
 125 
On Error Resume Next
125 
Dim rsQry
 126 
Dim rsQry
- 
 
 127 
Dim bAdded: bAdded = False
- 
 
 128 
 
126 
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT OFFICIAL FROM RELEASE_TAGS WHERE RTAG_ID ="&Request("rtag_id"), cint(0))
 129 
Set rsQry = OraDatabase.DbCreateDynaset( "SELECT OFFICIAL FROM RELEASE_TAGS WHERE RTAG_ID ="&Request("rtag_id"), cint(0))
127 
objEH.Try
 130 
objEH.Try
128 
If rsQry("official") = "N" OR rsQry("official") = "R" Then
 131 
If rsQry("official") = "N" OR rsQry("official") = "R" Then
129 
 
 132 
 
130 
   '--- Process submition ---
 133 
   '--- Process submition ---
Line 132... Line 135...
132 
 
 135 
 
133 
      ' All mandatory parameters FOUND
 136 
      ' All mandatory parameters FOUND
134 
 
 137 
 
135 
      Call Populate_pkgArray ( Request("pkg_list"), pkgArray )
 138 
      Call Populate_pkgArray ( Request("pkg_list"), pkgArray )
136 
 
 139 
 
137 
 
 - 
 
138 
      'On Error Resume Next
 140 
      'On Error Resume Next
139 
      OraSession.BeginTrans
 141 
      OraSession.BeginTrans
140 
 
 142 
 
141 
      '---- SQL parameters ----
 143 
      '---- SQL parameters ----
142 
      OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 144 
      OraDatabase.Parameters.Add "RTAG_ID", Request("rtag_id"), ORAPARM_INPUT, ORATYPE_NUMBER
Line 159... Line 161...
159 
      If Err.number <> 0 Then
 161 
      If Err.number <> 0 Then
160 
         OraSession.RollBack
 162 
         OraSession.RollBack
161 
         Call RaiseMsg ( enum_MSG_ERROR, Err.description )
 163 
         Call RaiseMsg ( enum_MSG_ERROR, Err.description )
162 
      Else
 164 
      Else
163 
        OraSession.CommitTrans
 165 
        OraSession.CommitTrans
164 
        Dim objRC: Set objRC = New ReleaseChanged
 - 
 
165 
        Call objRC.Run_ReleaseChanged_List(Request("rtag_id"),pv_id_list,enumRELEASE_CHANGE_MODE_PKG_ADDED)
 - 
 
166 
        Set objRC = Nothing
 166 
        bAdded = True
167 
      End If
 167 
      End If
168 
 
 168 
 
169 
 
 - 
 
170 
      OraDatabase.Parameters.Remove "RTAG_ID"
 169 
      OraDatabase.Parameters.Remove "RTAG_ID"
171 
      OraDatabase.Parameters.Remove "USER_ID"
 170 
      OraDatabase.Parameters.Remove "USER_ID"
172 
      OraDatabase.Parameters.Remove "BASE_VIEW_ID"
 171 
      OraDatabase.Parameters.Remove "BASE_VIEW_ID"
173 
      OraDatabase.Parameters.Remove "PERSONAL_VIEW_ID"
 172 
      OraDatabase.Parameters.Remove "PERSONAL_VIEW_ID"
174 
 
 173 
 
- 
 
 174 
      If bAdded Then
- 
 
 175 
        Dim objRC: Set objRC = New ReleaseChanged
- 
 
 176 
        Call objRC.Run_ReleaseChanged_List(Request("rtag_id"),pv_id_list,enumRELEASE_CHANGE_MODE_PKG_ADDED)
- 
 
 177 
        Set objRC = Nothing
- 
 
 178 
      End If
175 
 
 179
176 
      Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id"))
 180 
      Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id"))
177 
   Else
 181 
   Else
178 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 182 
      Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
179 
      Response.write QSTR_All
 183 
      Response.write QSTR_All
180 
   End If
 184 
   End If