Subversion Repositories DevTools

<%
'=====================================================
'                                       REMOVE PACKAGES
'                                        PAGE
'=====================================================
%>
<!--#include file="_tabs.asp"-->
<%
'------------ 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
%>
<table width="650" border="0" cellspacing="0" cellpadding="0">
  <tr> 
    <td> 
      <table width="100%" border="0" cellspacing="0" cellpadding="0">
        <tr> 
          <td width="1%">&nbsp;</td>
          <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
          <td width="1%">&nbsp;</td>
        </tr>
        <tr> 
          <td width="1%">&nbsp;</td>
          <td> 
            <table width="100%" border="0" cellspacing="0" cellpadding="0">
              <tr> 
                <td nowrap class="form_ttl">REMOVE package(s)</td>
                <td align="right" valign="bottom">
                  <!-- TABS -->
                                  &nbsp;
                </td>
              </tr>
            </table>
          </td>
          <td width="1%">&nbsp;</td>
        </tr>
        <tr> 
          <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
          <td background="images/lbox_bg_blue.gif"><!-- Heading --><img src="images/h_trsp_dot.gif" width="1" height="20"><!-- END Heading --></td>
          <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
        </tr>
        <tr> 
          <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
          <td bgcolor="#FFFFFF" valign="top"> 
            <!-- Body -->
           <table width="100%" border="0" cellspacing="1" cellpadding="2">
                        <form name="removepkgs" method="post" action="_remove_packages.asp" onSubmit="MM_validateForm('RMpv_id','Package selection','R');return document.MM_returnValue">
              <tr> 
                              <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
                              <td width="1%" nowrap class="form_group" valign="bottom">PACKAGES<a href="javascript:;" onMouseOver="formTips.show('addoldpkg')" onMouseOut="formTips.hide()"><img src="images/i_help.gif" width="12" height="12" hspace="2" align="absmiddle" border="0" ></a></td>
                              <td nowrap width="100%" align="right" class="form_step">&nbsp;</td>
              </tr>
              <tr> 
                <td width="1%">&nbsp;</td>
                <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">&nbsp;</td>
                              <td nowrap width="100%" background="images/bg_form_lightbluedark.gif"> 
                                <select name="RMpv_id" size="30" multiple class="form_item">
                                  <%
                                  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")%>
                                                <option value=""><%=Make_Separator ( currGroup )%></option>
                                                <option value="<%=rsLocRel.Fields("pv_id")%>" <%=pv_idSelected%>><%=rsLocRel("pkg_name") &" "& rsLocRel("pkg_version")%></option>
                                        <%Else%>
                                                <option value="<%=rsLocRel.Fields("pv_id")%>" <%=pv_idSelected%>><%=rsLocRel("pkg_name") &" "& rsLocRel("pkg_version")%></option>
                                        <%End If%>
                                  <%
                                        rsLocRel.MoveNext
                                  WEnd
                                  rsLocRel.Close
                                  Set rsLocRel = nothing
                                  %>  
                                </select>
                  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
                                  <input type="hidden" name="action" value="true">
                                  </td>
              </tr>
              <tr> 
                <td width="1%">&nbsp;</td>
                        <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
                <td nowrap width="100%" class="body_scol"> 
                          <input type="submit" name="btn" value="Remove" class="form_btn">
                  <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="history.back();">
                                  <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN>
                                  <br><br>
                </td>
              </tr>
                        </form>
            </table>
            <!-- END Body-->
          </td>
          <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
        </tr>
        <tr> 
          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
          <td background="images/lbox_bg_blue.gif"></td>
          <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
        </tr>
      </table>
    </td>
  </tr>
</table>