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

 objPMod.PersistInQryString("proj_id")
 '----------------------------------------------
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetFormDetails ( parProjId, ByRef outobjDetails )
   Dim rsQry, query
   OraDatabase.Parameters.Add "PROJ_ID",   parProjId,    ORAPARM_INPUT, ORATYPE_NUMBER
   query = _
   " SELECT prj.* "&_
   " FROM PROJECTS prj"&_
   " WHERE prj.PROJ_ID = :PROJ_ID"
   Set rsQry = OraDatabase.DbCreateDynaset( query, ORADYN_DEFAULT )
   OraDatabase.Parameters.Remove "PROJ_ID"
   If rsQry.RecordCount > 0 Then
     outobjDetails.Item ("proj_id") = rsQry("proj_id")
     outobjDetails.Item ("proj_name") = rsQry("proj_name")
   Else
     Err.Raise 8, "Sub GetFormDetails in "& ScriptName, "Empty record set returned. parProjId="& parProjId
   End If
   rsQry.Close
   Set rsQry = Nothing
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub DeleteViewOwner (userId, viewId)
   On Error Resume Next
-  OraDatabase.BeginTrans
   OraDatabase.Parameters.Add "PROJ_ID",    Request("proj_id"), ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "VIEW_ID",    viewId,   ORAPARM_INPUT, ORATYPE_NUMBER
   OraDatabase.Parameters.Add "USER_ID_LIST",  userId,   ORAPARM_INPUT, ORATYPE_VARCHAR2
   OraDatabase.Parameters.Add "USER_ID",   objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
   objEH.TryORA ( OraSession )
   OraDatabase.ExecuteSQL _
   "BEGIN   REMOVE_PROJECT_VIEW_OWNER ( :PROJ_ID, :VIEW_ID, :USER_ID_LIST, :USER_ID );   END;"
   objEH.CatchORA ( OraSession )
   OraDatabase.Parameters.Remove "PROJ_ID"
   OraDatabase.Parameters.Remove "VIEW_ID"
   OraDatabase.Parameters.Remove "USER_ID_LIST"
   OraDatabase.Parameters.Remove "USER_ID"
-  OraDatabase.CommitTrans
 End Sub
 '--------------------------------------------------------------------------------------------------------------------------
 Sub GetUserViewId(value, posComma)
     txt = value
     posComma = InStr(txt, ",")
       viewId = Mid(value, posUnderscore + 1, posComma-1)
       Call DeleteViewOwner(userId, viewId)
       txt = Mid(txt, posComma + 1, Len(txt))
       posComma = InStr(txt, ",")
     Wend
     If posComma = 0 Then
       posUnderscore = Instr(txt, "_")
       If posUnderscore>0 Then
       userId = Mid(txt, 1, posUnderscore - 1)
       viewId = Mid(txt, posUnderscore + 1)
       Call DeleteViewOwner(userId, viewId)
       End If
     End if
     If objEH.Finally Then
       Call OpenInWindow ( "form_edit_project_view.asp?proj_id="&Request("proj_id")&"&FRview_id="&Request("FRview_id") )
     End If
   End If
 End If
 '----------------------------------------------
 %>
 <script language="JavaScript1.2" src="images/popup_menu.js"></script>
 </head>
 <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0">
 <!-- MENU LAYERS -------------------------------------->
 <div id="popmenu" class="menuskin" onMouseover="clearhidemenu();highlightmenu(event,'on')" onMouseout="highlightmenu(event,'off');dynamichide(event)">
 </div>
 <!-- TIPS LAYERS -------------------------------------->
 <div id="formTipsLayer" style="position: absolute; z-index: 1000; visibility: hidden; left:0; top: 0; width: 10">&nbsp;</div>
 <!----------------------------------------------------->
 <!-- HEADER -->
 '-- FROM START ---------------------------------------------------------------------------------------------------------
 objFormComponent.FormName = "FormName"
 objFormComponent.Action = ScriptName
 Call objFormComponent.FormStart()
 %>
   <tr>
     <td width="1" background="images/bg_home_orange.gif" valign="top">
     </td>
     <td width="100%" rowspan="2" align="center" valign="top" bgcolor="#EEEFEF">
       <table width="10" border="0" cellspacing="0" cellpadding="0">
         <tr>
 <%
 If parSourceRtagId <> "" Then
   Call Messenger ( "New release will be created from <br>"& objFormCollector.Item("location"), 3, "100%" )
 End If
 %>
 <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
 <!--#include file="messages/_msg_inline.asp"-->
 <!-- +++++++++++++++++++++++++++++++++++++++++++++++++++++++++++ -->
             <br>
             <table width="100%"  border="0" cellspacing="2" cellpadding="0">
               <tr>
 RecordCount=0
   Query_String = _
 "  SELECT DISTINCT vi.view_id, vi.view_name"&_
 "  FROM VIEWS vi"&_
 "  WHERE vi.view_name = 'PROJECT WIDE'"
 Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 RecordCount=rsQry.RecordCount
 OraDatabase.Parameters.Remove "PROJ_ID"
 Response.write "<select name='FRview_id' onChange=""Cascaded_Menu('parent','"& scriptName &"?proj_id="& parProjId &"&FRview_id=',this,0)"" class='form_item'>"
 While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
   If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
     Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
   Else
     Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
   End If
   rsQry.MoveNext
 WEnd
 rsQry.Close()
 OraDatabase.Parameters.Add "PROJ_ID", parProjId,   ORAPARM_INPUT, ORATYPE_NUMBER
   Query_String = _
 "  SELECT DISTINCT vi.view_id, vi.view_name"&_
 "   RELEASE_TAGS rt"&_
 "  WHERE rc.BASE_VIEW_ID = vi.VIEW_ID"&_
 "   AND rt.proj_id = "& parProjId &_
 "   AND rc.rtag_id = rt.rtag_id"&_
 "   ORDER BY UPPER( vi.view_name )"
 Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
 RecordCount=RecordCount+rsQry.RecordCount
 OraDatabase.Parameters.Remove "PROJ_ID"
 While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
   If CDbl(Request("FRview_id")) = CDbl(rsQry.Fields("view_id")) Then
     Response.write "<option value='"& rsQry.Fields("view_id") &"' selected>"& rsQry.Fields("view_name") &"</option>"
   Else
     Response.write "<option value='"& rsQry.Fields("view_id") &"'>"&          rsQry.Fields("view_name") &"</option>"
   End If
   rsQry.MoveNext
 WEnd
 rsQry.Close()
 Set rsQry = nothing
 %>
                   </select>
 <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 <%
 If RecordCount>0 and objAccessControl.IsActive("AdminView") Then
 %>
                   <a href="javascript:;" class ="form_iname" onClick="MM_openBrWindow('wAddApplicationUser.asp?proj_id=<%=parProjId%>&view_id=<%=Request("FRview_id")%>','AddApplicationUser','scrollbars=yes,resizable=yes,width=650,height=800')"><img src="images/email-contact-orange.gif">Add View Owner</a>
 <%
 End If
 %>
 <!-- +++++++++++++++++++++++++++++++++++ -->
                 </td>
                 <td width="9%" valign="top"></td>
                   <tr>
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col"></td>
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Base View</td>
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">Full Name</td>
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Name</td>
                     <td valign="top" nowrap background="images/bg_table_col.gif" class="body_col">User Email</td>
                     <td valign="top">
 currViewId = -1
   Set rsQry = OraDatabase.DbCreateDynaset( "SELECT * FROM USERS USR, MEMBERS_GROUP MG, VIEWS V, AUTOBUILD_FAILURE AF WHERE  AF.PROJ_ID = "& Request("proj_id") &" AND AF.GROUP_EMAIL_ID = MG.GROUP_EMAIL_ID AND USR.USER_ID = MG.USER_ID AND V.VIEW_ID = AF.VIEW_ID ORDER BY V.VIEW_NAME, USR.FULL_NAME" , cint(0) )
 '--- Render rows ---
 Do While (NOT rsQry.BOF) AND (NOT rsQry.EOF)
 ' -------- GROUP BY BASE VIEW  -----------------
 If CDbl(currViewid) <> CDbl(rsQry("view_id")) Then
 %>
                   <tr>
                     <td colspan="5" background="images/bg_rep_line.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                   </tr>
                   <tr>
                     <td nowrap class="body_scol"></td>
                     <td nowrap class="body_scol"></td>
                   </tr>
 <%
   currViewId = CDbl(rsQry("view_id"))
 End If
 %>
                   <tr>
                     <td align="center"><input type="checkbox" name="user_view_id_list" value="<%=rsQry("user_id")%>_<%=rsQry("view_id")%>"></td>
                     <td nowrap class="body_rowg"></td>
                     <td nowrap class="body_rowg"><%=rsQry("full_name")%></td>
 %>
                   <tr>
                     <td colspan="8" background="images/bg_table_border.gif"><img src="images/spacer.gif" width="1" height="1"></td>
                   </tr>
 <%
   End If
 Loop
 rsQry.Close()
 Set rsQry = nothing
 %>
                   <tr>
                     <td class="form_iname">&nbsp;</td>
                     <td>&nbsp;</td>
                     <td class="val_err"></td>
                   </tr>
           <td 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 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>
   <!-- ACTION BUTTONS ---------------------------------------------->
   <!-- ACTION BUTTONS END  ------------------------------------------>
     </td>
     <td width="1" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
   </tr>
   <tr>
     <td valign="bottom" align="center" background="images/bg_home_orange.gif"><img src="images/img_vtree.gif" width="86" height="99" vspace="20" hspace="30"></td>
     <td background="images/bg_lght_gray.gif" valign="top"><img src="images/h_trsp_dot.gif" width="1" height="500"></td>
   </tr>
 <%
 Call objFormComponent.FormEnd()
 '-- FROM END ----------------------------------------------------------------------------------------------------------------
 %>
 </table>
 <!-- FOOTER -->
 <!--#include file="_footer.asp"-->
 </body>
 </html>
 <%
 Call Destroy_All_Objects
-%>
 %>

Subversion Repositories DevTools

(root)/ManagerSuite/Release_Manager/trunk/form_edit_project_view.asp @ 151 – Rev 121 → 129