Subversion Repositories DevTools

Rev

Rev 5357 | Rev 5590 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
5357 dpurdie 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
Option explicit
4
Response.Expires = 0   ' always load the page, dont store
5
%>
6
<%
7
'=====================================================
8
'               EDIT Scheduled Task
9
'=====================================================
10
%>
11
<!--#include file="common/conf.asp"-->
12
<!--#include file="common/globals.asp"-->
13
<!--#include file="common/qstr.asp"-->
14
<!--#include file="common/common_subs.asp"-->
15
<!--#include file="common/formating.asp"-->
16
<!--#include file="common/common_dbedit.asp"-->
17
<!--#include file="common/_popup_window_common.asp"-->
18
<%
19
'------------ ACCESS CONTROL ------------------
20
%>
21
<!--#include file="_access_control_login.asp"-->
22
<!--#include file="_access_control_general.asp"-->
23
<!--#include file="_access_control_project.asp"-->
24
<%
25
'------------ Variable Definition -------------
26
Dim rsTemp
27
'------------ Constants Declaration -----------
28
'------------ Variable Init -------------------
29
'----------------------------------------------
30
%>
31
<%
32
Function Update_Scheduling_Message( SSmsg_id, SSmsg, SSduedate )
33
   objEH.TryORA ( OraSession )
34
   On Error Resume Next
35
   OraDatabase.ExecuteSQL _
36
      " UPDATE message_board"&_
37
      " SET msg_details = '"& SSmsg &"', due_date = "& TO_ORADATE( SSduedate ) &_
38
      " WHERE msg_id = "& SSmsg_id
39
   objEH.CatchORA ( OraSession )
40
End Function
41
 
42
Function Delete_Scheduling_Message( SSmsg_id )
43
   objEH.TryORA ( OraSession )
44
   On Error Resume Next
45
   OraDatabase.ExecuteSQL _
46
      " DELETE message_board"&_
47
      " WHERE msg_id = "& SSmsg_id
48
   objEH.CatchORA ( OraSession )
49
End Function
50
 
51
Function Get_Message_Details ( NNmsg_id )
52
   Get_Message_Details = _
53
   " SELECT * FROM message_board WHERE msg_id = "& NNmsg_id
54
End Function
55
%>
56
<%
57
'Process submition
58
If CBool(QStrPar("action")) AND QStrPar("btn") = "Update" Then
59
   Call Update_Scheduling_Message ( QStrPar("FRmsg_id"), QStrPar("FRmsg"), QStrPar("FRduedate") )
60
   %>
61
   <script language="JavaScript" type="text/javascript">
62
   opener.location='index.asp?refresh=true<%=QSTR%>';
63
   </script>
64
   <%
65
   Call CloseWindow
66
ElseIf CBool(QStrPar("action")) AND QStrPar("btn") = "Delete" AND  objAccessControl.UserLogedIn Then
67
   Call Delete_Scheduling_Message ( QStrPar("FRmsg_id") )
68
   %>
69
   <script language="JavaScript" type="text/javascript">
70
   opener.location='index.asp?refresh=true<%=QSTR%>';
71
   </script>
72
   <%
73
   Call CloseWindow
74
End If
75
%>
76
<html>
77
<head>
78
<title>Release Manager</title>
79
<link rel="shortcut icon" href="<%=FavIcon%>"/>
80
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
81
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
82
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
83
<link rel="stylesheet" href="images/navigation.css" type="text/css">
84
<script language="JavaScript" src="images/common.js"></script>
85
<script language="JavaScript" src="images/calendar.js"></script>
86
</head>
87
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.scheduletask.FRmsg.focus();">
88
<%Set rsTemp = OraDatabase.DbCreateDynaset( Get_Message_Details (QStrPar("FRmsg_id")), cint(0))%>
89
<form name="scheduletask" method="post" action="<%=scriptName%>?done=done<%=QSTR_FullQuery%>" onSubmit="return check();">
90
   <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
91
      <tr>
92
         <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/h_trsp_dot.gif" width="22" height="1"></td>
93
         <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;EDIT Scheduled Task</td>
94
         <td background="images/lbox_bg_blue.gif" align="right" width="50%">
95
            <input type="submit" name="btn" value="Update" class="form_btn_comp" onClick="clickedButton=true;MM_validateForm('FRduedate','Due Date','R','FRmsg','Message details','R');return document.MM_returnValue">
96
            <input type="submit" name="btn" value="Delete" class="form_btn_comp" onClick="clickedButton=true;">
97
            <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
98
         </td>
99
         <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
100
         <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
101
      </tr>
102
      <tr>
103
         <td height="100%" width="1%">&nbsp;</td>
104
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
105
            <table width="100%" border="0" cellspacing="1" cellpadding="2">
106
               <tr>
107
                  <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
108
                  <td width="1%" nowrap class="form_group" valign="bottom"></td>
109
                  <td nowrap width="100%">&nbsp; </td>
110
               </tr>
111
               <tr>
112
                  <td width="1%">&nbsp;</td>
113
                  <td width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">Due
114
                  Date </td>
115
                  <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
116
                     <input type="text" name="FRduedate" maxlength="10" size="10" class="form_item" value="<%=EuroDate (rsTemp.Fields("due_date"))%>">
117
                     <A onmouseover="window.status='Select a date';return true;" onmouseout="window.status='';return true;" href="javascript:show_calendar('scheduletask.FRduedate',null,null,null);"><img src="images/i_calendar.gif" width="16" height="16" border="0"></a>
118
                  </td>
119
               </tr>
120
               <tr>
121
                  <td width="1%">&nbsp;</td>
122
                  <td colspan="2" nowrap class="form_field" background="images/bg_form_lightbluedark.gif" valign="top">
123
                     <textarea name="FRmsg" cols="40" rows="10" class="form_item"><%=rsTemp.Fields("msg_details")%></textarea>
124
                     <input type="hidden" name="FRmsg_id" value="<%=QStrPar("FRmsg_id")%>">
125
                     <input type="hidden" name="action" value="true">
126
                  </td>
127
               </tr>
128
               <tr>
129
                  <td width="1%">&nbsp;</td>
130
                  <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="100" height="10"></td>
131
                  <td nowrap width="100%">
132
                     <p>&nbsp;</p>
133
                  </td>
134
               </tr>
135
            </table>
136
         </td>
137
      </tr>
138
      <tr>
139
         <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
140
         <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
141
      </tr>
142
   </table>
143
</form>
144
</body>
145
</html>
146
 
147
<!-- DESTRUCTOR ------->
148
<!--#include file="common/destructor.asp"-->