Subversion Repositories DevTools

Rev

Details | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%@LANGUAGE="VBSCRIPT"%>
2
<%
3
Option explicit
4
Response.Expires = 0	' always load the page, dont store
5
%>
6
<%
7
'=====================================================
8
'				Generate Release Notes
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"-->
123 ghuddy 17
<!--#include file="common/common_make_release_subs.asp"-->
119 ghuddy 18
<%
19
'------------ ACCESS CONTROL ------------------
20
%>
21
<!--#include file="_access_control_general.asp"-->
22
<%
23
'------------ Variable Definition -------------
24
Dim parPv_id
25
Dim parRfile
26
Dim rsPkgInfo
27
Dim retERRmsg
28
Dim retParameters
29
'------------ Constants Declaration -----------
30
'------------ Variable Init -------------------
31
parPv_id = QStrPar("pv_id")
32
parRtag_id = QStrPar("rtag_id")
33
parRfile = QStrPar("rfile")
34
'----------------------------------------------
35
%>
36
<%
37
'---------------------------------- MAIN LINE ----------------------------------------
38
 
39
' REQUREMENTS CHECK
123 ghuddy 40
Call PUBLIC_Run_onMakeOfficial ( parRtag_id, parPv_id )
119 ghuddy 41
 
123 ghuddy 42
Call PUBLIC_NotifyInterestManualBuild ( parRtag_id, parPv_id )
119 ghuddy 43
 
44
'Return Page
45
If parRfile = "" Or parRfile = "_generate_release_notes.asp" Then
46
    Response.Redirect ( "fixed_issues.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
47
Else
48
    Response.Redirect ( parRfile &"?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
49
End If
123 ghuddy 50
 
119 ghuddy 51
%>
52
 
53
 
54
<!-- DESTRUCTOR ------->
55
<!--#include file="common/destructor.asp"-->