Subversion Repositories DevTools

Rev

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

Rev 3875 Rev 3896
Line 141... Line 141...
141 
 
 141 
 
142 
   rsTemp.Close
 142 
   rsTemp.Close
143 
   Set rsTemp = nothing
 143 
   Set rsTemp = nothing
144 
End Sub
 144 
End Sub
145 
 
 145 
 
- 
 
 146 
// The form passed to us may only have information for packages that need to change
- 
 
 147 
// The enumlocal_DONOT_DELETE_OLD_DEPENDENCIES does not appear to work
- 
 
 148 
//  Must provide a full set of dependencies with either a new version or the existing version
146 
 
 149 
//
147 
Sub Populate_depArray_from_EDIT_Custom ( NNpv_id, ARRdep, BBarray_is_empty, sDependBlock )
 150 
Sub Populate_depArray_from_EDIT_Custom ( NNpv_id, ARRdep, BBarray_is_empty, sDependBlock )
148 
   Dim depList, lastItem, i, recCnt, pkg_name, pkg_version, V_EXT
 151 
   Dim depList, lastItem, i, recCnt, pkg_name, pkg_version, V_EXT
149 
   Dim rsTemp, rsCurrent, Query_String
 152 
   Dim rsTemp, rsCurrent, Query_String
150 
 
 153 
 
151 
   Query_String = _
 154 
   Query_String = _
Line 159... Line 162...
159 
 
 162 
 
160 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 163 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
161 
 
 164 
 
162 
   recCnt = 0
 165 
   recCnt = 0
163 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 166 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
- 
 
 167 
      Dim pvid, pkgver, newver
- 
 
 168 
      pvid = rsTemp("pv_id")
- 
 
 169 
      pkgver = Request( "pkgn" & pvid )
- 
 
 170 
 
- 
 
 171 
      If pkgver <> "" Then
- 
 
 172 
        newver = pkgver
- 
 
 173 
      else
- 
 
 174 
        newver = rsTemp("pkg_version")
- 
 
 175 
      End if
- 
 
 176 
 
164 
      ReDim Preserve ARRdep( 2, recCnt )
 177 
      ReDim Preserve ARRdep( 2, recCnt )
165 
      ARRdep( COL_pkg_name, recCnt )    = rsTemp("pkg_name")
 178 
      ARRdep( COL_pkg_name, recCnt )    = rsTemp("pkg_name")
166 
      ARRdep( COL_pkg_version, recCnt ) = Request( "pkgn"& rsTemp("pv_id") )
 179 
      ARRdep( COL_pkg_version, recCnt ) = newver
167 
      ARRdep( COL_build_type, recCnt )  = Request( "bt"& rsTemp("pv_id") )
 180 
      ARRdep( COL_build_type, recCnt )  = Request( "bt"& pvid )
168 
 
 181 
 
169 
      If not rsTemp("pkg_version") =  Request( "pkgn"& rsTemp("pv_id") ) Then
 182 
      If not rsTemp("pkg_version") =  newver Then
170 
         sDependBlock = rsTemp("pkg_name") & " " & Request( "pkgn"& rsTemp("pv_id") )
 183 
         sDependBlock = rsTemp("pkg_name") & " " & newver
171 
      End If
 184 
      End If
172 
 
 185 
 
173 
      recCnt = recCnt + 1
 186 
      recCnt = recCnt + 1
174 
      BBarray_is_empty = FALSE
 187 
      BBarray_is_empty = FALSE
- 
 
 188 
 
175 
      rsTemp.MoveNext
 189 
      rsTemp.MoveNext
176 
   WEnd
 190 
   WEnd
177 
 
 191 
 
178 
   rsTemp.Close
 192 
   rsTemp.Close
179 
   Set rsTemp = nothing
 193 
   Set rsTemp = nothing