WebSVN – DevTools – Diff – /ManagerSuite/Release_Manager/trunk/_wform_add_missing_dependency.asp

 <%
 Sub Get_Pkg_Information ( NNpv_id)
    Dim rsTemp, Query_String
    Query_String = _
-   " SELECT pkg.pkg_name, pv.pkg_version, pv.dlocked,pv.modified_stamp,um.full_name as modifier,pv.created_stamp,uc.full_name as creator"&_
+   " SELECT pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.dlocked,pv.modified_stamp,um.full_name as modifier,pv.created_stamp,uc.full_name as creator"&_
    "   FROM packages pkg, package_versions pv, users um, users uc"&_
    "  WHERE pkg.pkg_id = pv.pkg_id"&_
    "    AND pv.modifier_id = um.user_id (+)" &_
    "    AND pv.creator_id = uc.user_id (+)" &_
    "    AND pv.pv_id = "& NNpv_id
    Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
    If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
+      pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
       pkgInfoHash.Add "pkg_name", (rsTemp.Fields("pkg_name"))
       pkgInfoHash.Add "pkg_version", (rsTemp.Fields("pkg_version"))
       pkgInfoHash.Add "dlocked", (rsTemp.Fields("dlocked"))
       pkgInfoHash.Add "modified_stamp", (rsTemp.Fields("modified_stamp"))
       pkgInfoHash.Add "modifier", (rsTemp.Fields("modifier"))
    OraDatabase.Parameters.Remove "PV_ID"
    OraDatabase.Parameters.Remove "USER_ID"
    OraDatabase.Parameters.Remove "VIEW_ID"
 End Sub
-Function Release_Groups ( SSrtag_id )
+Function Release_Groups ( SSrtag_id, SSpkg_id )
 	Release_Groups = _
-	"SELECT view_id, view_name"&_
+    "SELECT vi.view_id, vi.view_name, bv.hint"&_
-	"  FROM views "&_
+    "  FROM views vi,"&_
+    "  ("&_
+    "    SELECT DISTINCT rc.BASE_VIEW_ID, '>&nbsp;' AS hint"&_
+    "    FROM release_content rc,"&_
+    "         package_versions pv"&_
+    "    WHERE rc.pv_id = pv.pv_id"&_
+    "    AND pv.pkg_id IN (" & SSpkg_id & ")"&_
+    "  ) bv "&_
+    "WHERE"&_
-	" WHERE base_view='Y'"&_
+    "   UPPER(vi.base_view) = 'Y'"&_
+    "   AND bv.BASE_VIEW_ID (+) = vi.VIEW_ID "&_
-	"ORDER BY UPPER(view_name)"
+    "ORDER BY vi.view_name ASC"
 End Function
 %>
 <%
 'Process submition
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
 <form name="addmissingdep" method="post" action="<%=scriptName%>">
    <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
       <tr>
          <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/i_add_deps.gif" width="22" height="25" hspace="5"></td>
-         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Add missing Dependency</td>
+         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Add Missing Dependency</td>
          <td background="images/lbox_bg_blue.gif" align="right" width="50%">
             <input type="submit" name="btn" value="Add" style="width:50" class="form_btn_comp">
             <input type="reset" name="btn" value="Cancel" style="width:50" class="form_btn_comp" onclick="self.close()">
          </td>
          <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
          <td height="100%" width="1%">&nbsp;</td>
          <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
             <table width="100%" border="0" cellspacing="1" cellpadding="2">
                <tr>
                   <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
-                  <td width="1%" nowrap class="form_group" valign="bottom">Dependency Details</td>
+                  <td width="1%" nowrap class="form_group" valign="bottom">Details of Dependency that will be Added:</td>
                   <td nowrap width="100%">&nbsp; </td>
                   <td nowrap width="100%">&nbsp; </td>
                </tr>
                <tr>
                   <td width="1%">&nbsp;</td>
                      <%=EuroDateTime(pkgInfoHash.Item ("created_stamp")) & " by " & pkgInfoHash.Item ("creator")%>
                   </td>
                </tr>
                <tr>
                   <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
-                  <td width="1%" nowrap class="form_group" valign="bottom">Select Destination view</td>
+                  <td width="1%" nowrap class="form_group" valign="bottom">Select Destination View</td>
                   <td nowrap width="100%">&nbsp; </td>
                </tr>
                <tr>
                  <td width="1%">&nbsp;</td>
-                 <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Base View</td>
+                 <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif" valign=top>Base View</td>
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif">
+                   <table border=0 cellpadding=0 cellspacing=0 class="rep_small">
+                     <tr>
+                       <td>
-      			 <select name="view_id" class="form_item">
+      			         <select name="view_id" class="form_item">
+                           <option></option>
                  <%
                    Dim iDefault_View_id: iDefault_View_id = -1
                    If Not IsNull(parBase_view_id) Then iDefault_View_id = parBase_view_id
    			       Dim rsRelGroups
+                   Dim bSelected: bSelected=False
-			       Set rsRelGroups = OraDatabase.DbCreateDynaset( Release_Groups( parRtag_id), cint(0))
+			       Set rsRelGroups = OraDatabase.DbCreateDynaset( Release_Groups( parRtag_id,pkgInfoHash.Item ("pkg_id")), cint(0))
 			       While ((NOT rsRelGroups.BOF) AND (NOT rsRelGroups.EOF))
+                     If (NOT IsNull(rsRelGroups("hint"))) AND (NOT bSelected) Then
+                       Response.write "<option selected value='"& rsRelGroups("view_id") &"'>"& rsRelGroups("hint") & rsRelGroups("view_name") &"</option>"
+                       bSelected=True
-                 %>
+                     Else
-                     <option <%  If CInt(rsRelGroups.Fields("view_id")) = CInt(iDefault_View_id) Then%>selected<%End If%> value="<%=rsRelGroups.Fields("view_id")%>"><%=UCase(rsRelGroups.Fields("view_name"))%></option>
+                       Response.write "<option value='"& rsRelGroups("view_id") &"'>"& rsRelGroups("hint") & rsRelGroups("view_name") &"</option>"
-                 <%
+                     End If
                      rsRelGroups.MoveNext
 			       WEnd
  			       rsRelGroups.Close
 			       set rsRelGroups = nothing
 			     %>
-			     </select>
+			             </select>
+                       </td>
-                 <%
+                     </tr>
-                   Dim sonclick
+                     <tr>
-                   Dim surl
+                       <td>
-                   surl = "_wform_new_group.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&rfile=" & scriptName & "&ppv_id=" & parPPv_id
+                         NOTE: '>' is a suggestion of where to place this dependency.
-                   sonclick = "MM_openBrWindow('" & surl & "','NewGroup','resizable=yes,width=450,height=300');"
+                         It denotes views where it has been placed in other releases.
+                       </td>
-                 %>
+                     </tr>
-                 <img onclick="<%=sonclick%>" src="images/i_new_group.gif" width="20" height="20" align="absmiddle" border="0" alt="Create NEW group" title="Create NEW group"></a>
+                   </table>
                  </td>
                </tr>
                <tr>
                   <input type="hidden" name="pv_id" value="<%=parPv_id%>">
                   <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/_wform_add_missing_dependency.asp @ 4553 – Rev 183 → 185