<% '===================================================== ' REMOVE PACKAGES ' PAGE '===================================================== %> <% '------------ Variable Definition ------------- Dim parPv_id Dim rsLocRel '------------ Constants Declaration ----------- '------------ Variable Init ------------------- parPv_id = QStrPar("pv_id") '---------------------------------------------- %> <% Function Get_Local_Release_Pkgs ( NNrtag_id ) Get_Local_Release_Pkgs = _ " SELECT pv.pv_id, pkg.pkg_name, pv.pkg_version, vi.view_name"&_ " FROM PACKAGES pkg, package_versions pv, release_content rel, views vi"&_ " WHERE pkg.pkg_id = pv.pkg_id"&_ " AND pv.pv_id = rel.pv_id"&_ " AND vi.view_id = rel.base_view_id"&_ " AND rel.rtag_id = "& NNrtag_id &_ " ORDER BY vi.view_name ASC, UPPER(pkg.pkg_name) ASC" End Function Function Make_Separator ( SSname ) Dim sepLen, chrBefore, chrAfter sepLen = 40 'separator length chrBefore = (sepLen - Len(SSname)) \ 2 chrAfter = sepLen - Len(SSname) - chrBefore Make_Separator = String(chrBefore, "_")& UCase(SSname) &String(chrAfter, "_") End Function %>

REMOVE package(s)     PACKAGES       <% Dim currGroup, pv_idSelected currGroup = "" pv_idSelected = "" Set rsLocRel = OraDatabase.DbCreateDynaset( Get_Local_Release_Pkgs ( parRtag_id ), cint(0)) While ((NOT rsLocRel.BOF) AND (NOT rsLocRel.EOF))%> <% If parPv_id = CStr(rsLocRel.Fields("pv_id")) Then pv_idSelected = "selected" Else pv_idSelected = "" End If %> <%If currGroup <> rsLocRel.Fields("view_name") Then%> <%currGroup = rsLocRel.Fields("view_name")%> <%=Make_Separator ( currGroup )%> " <%=pv_idSelected%>><%=rsLocRel("pkg_name") &" "& rsLocRel("pkg_version")%> <%Else%> " <%=pv_idSelected%>><%=rsLocRel("pkg_name") &" "& rsLocRel("pkg_version")%> <%End If%> <% rsLocRel.MoveNext WEnd rsLocRel.Close Set rsLocRel = nothing %>   Processing...