Subversion Repositories DevTools

Rev

Go to most recent revision | Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
6584 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
Option explicit
4
Response.Expires = 0   ' always load the page, dont store
5
%>
6
<%
7
'=====================================================
8
'           Update a Licence Text
9
'=====================================================
10
%>
11
<!--#include file="common/conf.asp"-->
12
<!--#include file="common/globals.asp"-->
13
<!--#include file="common/formating.asp"-->
14
<!--#include file="common/qstr.asp"-->
15
<!--#include file="common/common_subs.asp"-->
16
<!--#include file="common/common_dbedit.asp"-->
17
<!--#include file="common/_popup_window_common.asp"-->
18
<%
19
' Set rfile parameter. This is a return page after Login
20
Call objPMod.StoreParameter ( "rfile", "admin_baseviews.asp" )
21
'------------ ACCESS CONTROL ------------------
22
%>
23
<!--#include file="_access_control_login.asp"-->
24
<!--#include file="_access_control_general.asp"-->
25
<!--#include file="_access_control_project.asp"-->
26
<%
27
'------------ Variable Definition -------------
28
Dim sMessage
29
Dim parViewId
30
Dim ViewName
31
'------------ Constants Declaration -----------
32
'------------ Variable Init -------------------
33
parViewId = Request("view_id")
34
sMessage = NULL
35
'----------------------------------------------
36
%>
37
<%
38
'-----------------------------------------------------------------------------------------------------------------------------
39
Sub Get_BaseName_Config ( NNview_id, out_name )
40
   Dim rsTemp, Query_String
41
 
42
   Query_String = _
43
   " select view_id, view_name from views where view_id=" & NNview_id 
44
 
45
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
46
 
47
   out_name = rsTemp("view_name")
48
 
49
   rsTemp.Close()
50
   Set rsTemp = nothing
51
End Sub
52
'-----------------------------------------------------------------------------------------------------------------------------------
53
Sub Update_BaseName_Config ( NNview_id, sName)
54
 
55
   OraDatabase.Parameters.Add "VIEW_ID",       NNview_id,   ORAPARM_INPUT,    ORATYPE_NUMBER
56
   OraDatabase.Parameters.Add "VIEW_NAME",     sName,       ORAPARM_INPUT,    ORATYPE_VARCHAR2
57
 
58
   objEH.ErrorRedirect = FALSE
59
   objEH.TryORA ( OraSession )
60
   On Error Resume Next
61
 
62
   OraDatabase.ExecuteSQL "UPDATE views set view_name = :VIEW_NAME WHERE VIEW_ID = :VIEW_ID"
63
 
64
   objEH.CatchORA ( OraSession )
65
   If objEH.Finally Then
66
      Call OpenInParentWindow ("admin_baseviews.asp" )
67
      Call CloseWindow
68
   End If
69
 
70
   OraDatabase.Parameters.Remove "VIEW_ID"
71
   OraDatabase.Parameters.Remove "VIEW_NAME"
72
 
73
End Sub
74
'-----------------------------------------------------------------------------------------------------------------------------------
75
%>
76
<%
77
'------------ Action Requirements -------------------
78
'Process submition
79
If CBool(Request("action")) AND objAccessControl.UserLogedIn AND parViewId <> "" AND  Request("ViewName") <> "" Then
80
    Call Update_BaseName_Config ( parViewId, Request("ViewName") )
81
End If
82
 
83
Call Get_BaseName_Config ( parViewId, ViewName )
84
 
85
%>
86
<html>
87
   <head>
88
      <title>Release Manager</title>
89
      <link rel="shortcut icon" href="<%=FavIcon%>"/>
90
      <meta http-equiv="Pragma" content="no-cache">
91
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
92
      <link rel="stylesheet" href="images/release_manager_style.css?ver=<%=VixVerNum%>" type="text/css">
93
      <link rel="stylesheet" href="images/navigation.css?ver=<%=VixVerNum%>" type="text/css">
94
      <script language="JavaScript" src="images/common.js?ver=<%=VixVerNum%>"></script>
95
      <!-- TIPS -->
96
      <script language="JavaScript" src="images/tipster.js?ver=<%=VixVerNum%>"></script>
97
      <script language="JavaScript" src="images/_help_tips.js?ver=<%=VixVerNum%>"></script>
98
   </head>
99
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();">
100
      <form class="form_tight" action="<%=scriptName%>" method="post" name="LicenceName" onsubmit="MM_validateForm('licName','Licence Name','RminLength:3');return document.MM_returnValue;">
101
         <table width="100%" border="0" cellspacing="0" cellpadding="2">
102
         <tr>
103
            <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
104
               <!-- LOCAL ERROR +++++++++++++++++++++++++++++++++++++++++++++++ -->
105
               <%Call Messenger ( sMessage , 3, "100%" )%>
106
               <!-- MESSAGE +++++++++++++++++++++++++++++++++++++++++++++++++++ -->
107
               <!--#include file="messages/_msg_inline.asp"-->
108
               <table width="100%" border="0" cellspacing="0" cellpadding="0">
109
               <tr>
110
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
111
                  <td width="100%">
112
                     <table width="100%" border="0" cellspacing="1" cellpadding="4">
113
                     <tr>
114
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_field">Base Name</td>
115
                        <td nowrap background="images/bg_form_lightbluedark.gif" class="form_item" colspan="3" width="100%">
116
                           <input name="ViewName" type="text" size="30" maxlength="30" class="form_item" value='<%=ViewName%>'>
117
                        </td>
118
                     </tr>
119
                     </table>
120
                  </td>
121
               </tr>
122
               </table>
123
               <input type="hidden" name="action" value="true">
124
               <input type="hidden" name="view_id" value="<%=parViewId%>">
125
            </td>
126
         </tr>
127
         <tr>
128
            <td><%=ProgressBar()%></td>
129
            <td align="right" nowrap class="wform_ttl">
130
               <input type="submit" name="btn" value="Save" class="form_btn">
131
               <input type="reset" name="btn" value="Close" class="form_btn" onclick="parent.closeIFrame();">
132
            </td>
133
         </tr>
134
         </table>
135
      </form>
136
   </body>
137
</html>
138
<!-- DESTRUCTOR ------->
139
<!--#include file="common/destructor.asp"-->