Subversion Repositories DevTools

Rev

Rev 119 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 119 Rev 151
Line 1... Line 1...
1
<%@LANGUAGE="VBSCRIPT"%>
1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
2
<%
3
Option explicit
3
Option explicit
4
Response.Expires = 0	' always load the page, dont store
4
Response.Expires = 0   ' always load the page, dont store
5
%>
5
%>
6
<%
6
<%
7
'=====================================================
7
'=====================================================
8
'					Reason for version
8
'               Reason for version
9
'=====================================================
9
'=====================================================
10
%>
10
%>
11
<!--#include file="common/conf.asp"-->
11
<!--#include file="common/conf.asp"-->
12
<!--#include file="common/globals.asp"-->
12
<!--#include file="common/globals.asp"-->
13
<!--#include file="common/formating.asp"-->
13
<!--#include file="common/formating.asp"-->
Line 31... Line 31...
31
parPv_id = QStrPar("pv_id")
31
parPv_id = QStrPar("pv_id")
32
'----------------------------------------------
32
'----------------------------------------------
33
%>
33
%>
34
<%
34
<%
35
Function Get_Comments( NNPv_id )
35
Function Get_Comments( NNPv_id )
36
	Dim rsTemp, Query_String
36
   Dim rsTemp, Query_String
37
	Query_String = _
37
   Query_String = _
38
	" SELECT comments"&_
38
   " SELECT comments"&_
39
	"  FROM package_versions"&_
39
   "  FROM package_versions"&_
40
	" WHERE pv_id = "& NNPv_id
40
   " WHERE pv_id = "& NNPv_id
41
	Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
41
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
42
	If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
42
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
43
		Get_Comments = rsTemp.Fields("comments")
43
      Get_Comments = rsTemp.Fields("comments")
44
	End If
44
   End If
45
	rsTemp.Close
45
   rsTemp.Close
46
	Set rsTemp = nothing
46
   Set rsTemp = nothing
47
End Function
47
End Function
48
 
48
 
49
Sub Submit_Reason_For_Version ( NNPv_id, SSparReason )
-
 
50
	Dim rsTemp, Query_String
-
 
51
	Query_String = _
-
 
52
	" SELECT comments"&_
-
 
53
	" FROM package_versions"&_
-
 
54
	" WHERE pv_id = "& NNPv_id 
-
 
55
	Set rsTemp = OraDatabase.CreateDynaset( Query_String, cint(0))
-
 
56
	'update fields
-
 
57
	rsTemp.Edit
-
 
58
	rsTemp.Fields("comments").Value = SSparReason
-
 
59
	rsTemp.Update
-
 
60
	
-
 
61
	rsTemp.Close
-
 
62
	Set rsTemp = nothing
-
 
63
	
-
 
64
	
-
 
65
	'/* Log Action */
-
 
66
	Call Log_Action ( NNPv_id, "reason_for_release", SSparReason )
-
 
67
	
-
 
68
End Sub
-
 
69
%>
49
%>
70
<%
50
<%
71
'Process submition
51
'Process submition
72
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
52
If CBool(QStrPar("action")) AND objAccessControl.UserLogedIn Then
73
	Call Submit_Reason_For_Version ( Request("pv_id"), Request("FRreason") )
53
   Call UpdateReasonForVersion ( Request("pv_id"), Request("FRreason") )
74
	Call OpenInParentWindow ("fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
54
   Call OpenInParentWindow ("fixed_issues.asp?pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id") )
75
	Call CloseWindow
55
   Call CloseWindow
76
	
56
 
77
End If
57
End If
78
%>
58
%>
79
<html>
59
<html>
80
<head>
60
   <head>
81
<title>Release Manager</title>
61
      <title>Release Manager</title>
82
<meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
62
      <meta HTTP-EQUIV="Pragma" CONTENT="no-cache">
83
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
63
      <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
84
<link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
64
      <link rel="stylesheet" href="images/release_manager_style.css" type="text/css">
85
<link rel="stylesheet" href="images/navigation.css" type="text/css">
65
      <link rel="stylesheet" href="images/navigation.css" type="text/css">
86
<script language="JavaScript" src="images/common.js"></script>
66
      <script language="JavaScript" src="images/common.js"></script>
87
</head>
67
   </head>
88
<body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.reason.FRreason.focus();">
68
   <body bgcolor="#FFFFFF" text="#000000" leftmargin="0" topmargin="0" onload="self.focus();document.reason.FRreason.focus();">
89
<form name="reason" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRreason','Reason for This Version','maxLength:4000');return document.MM_returnValue;">
69
      <form name="reason" method="post" action="<%=scriptName%>" onSubmit="MM_validateForm('FRreason','Reason for This Version','maxLength:4000');return document.MM_returnValue;">
90
  <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
70
         <table width="100%" border="0" cellspacing="0" cellpadding="2" height="100%">
91
    <tr> 
71
            <tr>
92
      <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/s_notes_off.gif" width="20" height="24" hspace="5" border="0"></td>
72
               <td background="images/lbox_bg_orange.gif" width="1%" height="1%"><img src="images/s_notes_off.gif" width="20" height="24" hspace="5" border="0"></td>
93
      <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Reason for This Version</td>
73
               <td background="images/lbox_bg_blue.gif" nowrap width="50%" class="wform_ttl">&nbsp;Reason for This Version</td>
94
      <td background="images/lbox_bg_blue.gif" align="right" width="50%"> 
74
               <td background="images/lbox_bg_blue.gif" align="right" width="50%">
95
        <input type="submit" name="btn" value="Submit" class="form_btn_comp">
75
                  <input type="submit" name="btn" value="Submit" class="form_btn_comp">
96
        <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
76
                  <input type="reset" name="btn" value="Cancel" class="form_btn_comp" onclick="self.close()">
97
      </td>
77
               </td>
98
      <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap> 
78
               <td background="images/lbox_bg_blue.gif" align="right" width="1%%" nowrap>
99
        <img src="images/h_trsp_dot.gif" width="5" height="22"> </td>
79
                  <img src="images/h_trsp_dot.gif" width="5" height="22">
-
 
80
               </td>
100
    </tr>
81
            </tr>
101
    <tr> 
82
            <tr>
102
      <td height="100%" width="1%">&nbsp;</td>
83
               <td height="100%" width="1%">&nbsp;</td>
103
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif"> 
84
               <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/bg_form_lightgray.gif">
104
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
85
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
105
          <tr> 
86
                     <tr>
106
            <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
87
                        <td width="1%"><img src="images/h_trsp_dot.gif" width="10" height="30"></td>
107
            <td nowrap width="100%">&nbsp; </td>
88
                        <td nowrap width="100%">&nbsp; </td>
108
          </tr>
89
                     </tr>
109
          <tr> 
90
                     <tr>
110
            <td width="1%">&nbsp;</td>
91
                        <td width="1%">&nbsp;</td>
111
            <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt"> 
92
                        <td nowrap width="100%" background="images/bg_form_lightbluedark.gif" class="form_txt">
112
              <textarea name="FRreason" class="form_item" style="width: 420px; height: 150px"><%=Format4HTML(Get_Comments( parPv_id ))%></textarea>
93
                           <textarea name="FRreason" class="form_item" style="width: 420px; height: 150px"><%=Format4HTML(Get_Comments( parPv_id ))%></textarea>
113
			  <input type="hidden" name="pv_id" value="<%=parPv_id%>">
94
                           <input type="hidden" name="pv_id" value="<%=parPv_id%>">
114
			  <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
95
                           <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
115
              <input type="hidden" name="action" value="true">
96
                           <input type="hidden" name="action" value="true">
116
            </td>
97
                        </td>
117
          </tr>
98
                     </tr>
118
          <tr> 
99
                     <tr>
119
            <td width="1%">&nbsp;</td>
100
                        <td width="1%">&nbsp;</td>
120
            <td nowrap width="100%"> 
101
                        <td nowrap width="100%">
121
              <p>&nbsp;</p>
102
                        <p>&nbsp;</p>
122
            </td>
103
                        </td>
123
          </tr>
104
                     </tr>
124
        </table>
105
                  </table>
125
      </td>
106
               </td>
126
    </tr>
107
            </tr>
127
    <tr>
108
            <tr>
128
      <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
109
               <td height="1%" width="1%"><img src="images/h_trsp_dot.gif" width="5" height="5"></td>
129
      <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
110
               <td valign="top" nowrap colspan="3" class="wform_ttl" background="images/lbox_bg_blue.gif"></td>
130
    </tr>
111
            </tr>
131
  </table>
112
         </table>
132
</form>
113
      </form>
133
</body>
114
   </body>
134
</html>
115
</html>
135
 
116
 
136
 
117
 
137
<!-- DESTRUCTOR ------->
118
<!-- DESTRUCTOR ------->
138
<!--#include file="common/destructor.asp"-->
-
 
139
119
<!--#include file="common/destructor.asp"-->
-
 
120