Subversion Repositories DevTools

Rev

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

Rev 153 Rev 1376
Line 43... Line 43...
43 
 
 43 
 
44 
'-------------------------------------------------------------------------------------
 44 
'-------------------------------------------------------------------------------------
45 
%>
 45 
%>
46 
<%
 46 
<%
47 
'---------------------------------- MAIN LINE ----------------------------------------
 47 
'---------------------------------- MAIN LINE ----------------------------------------
48 
'If parSReq = "Y" Then
 - 
 
49 
'	' SKIP REQUIREMENTS
 - 
 
50 
'	Call Release_Single_Package ( parPv_id, parRtag_id )
 - 
 
51 
'	Call Notify ( parRtag_id )
 - 
 
52 
'	Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 - 
 
53 
'End If
 - 
 
54 
 
 - 
 
55 
 
 - 
 
56 
'pkgType = Get_Pkg_Base_View_ID ( parPv_id, parRtag_id )
 - 
 
57 
 
 - 
 
58 
 
 - 
 
59 
' REQUREMENTS CHECK for ALL
 48 
' REQUREMENTS CHECK for ALL
- 
 
 49 
' Call RaiseMsg(enum_MSG_ERROR, "Testing Testing")
60 
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
 50 
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
- 
 
 51 
 
61 
'Response.write "HERE"
 52 
'Response.write "HERE"
62 
If IsNull(retERRmsg) Then
 53 
If IsNull(retERRmsg) Then
63 
	' All Requirements OK
 54 
	' All Requirements OK
64 
 
 55 
 
65 
   If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
 56 
   If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then
Line 73... Line 64...
73 
      End If
 64 
      End If
74 
	End If
 65 
	End If
75 
 
 66 
 
76 
 
 67 
 
77 
Else
 68 
Else
78 
	'If ( pkgType = enumBASE_VIEW_PRODUCTS ) Then
 - 
 
79 
	'	' Products
 - 
 
80 
	'	If retALRTmsg = "WARNING" Then
 - 
 
81 
	'		' Allow overide
 - 
 
82 
	'		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "Y")
 - 
 
83 
	'
 - 
 
84 
	'	Else
 - 
 
85 
	'		' Disallow overide
 - 
 
86 
	'		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N")
 - 
 
87 
	'
 - 
 
88 
	'	End If
 - 
 
89 
	'
 - 
 
90 
	'Else
 - 
 
91 
		' Other Packages
 - 
 
92 
		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
 69 
		Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
93 
 
 - 
 
94 
	'End If
 - 
 
95 
 
 - 
 
96 
End If
 70 
End If
97 
 
 71 
 
98 
%>
 72 
%>
99 
 
 73 
 
100 
 
 74