Subversion Repositories DevTools

Rev

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

Rev 123 Rev 129
Line 58... Line 58...
58 
' REQUREMENTS CHECK for ALL
 58 
' REQUREMENTS CHECK for ALL
59 
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
 59 
Call CheckRequirementsForMakeRelease ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
60 
'Response.write "HERE"
 60 
'Response.write "HERE"
61 
If IsNull(retERRmsg) Then
 61 
If IsNull(retERRmsg) Then
62 
	' All Requirements OK
 62 
	' All Requirements OK
63 
   Call PUBLIC_MakeRelease ( parRtag_id, parPv_id )
 - 
 
64 
 
 63 
 
65 
	If objEH.Finally Then
 - 
 
66 
		'Call Notify ( parRtag_id )
 - 
 
67 
		'Call NotifyInterest(parPv_id, parRtag_id)
 64 
   If PUBLIC_MakeRelease ( parRtag_id, parPv_id ) = TRUE Then
68 
		Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 65 
		Response.Redirect ( "_generate_release_notes.asp?rfile="& parRfile &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id )
69 
 
 66 
   Else
- 
 
 67 
      ' do nothing - the reality is that the exception handling done in PUBLIC_MakeRelease redirects on an error anyway.
70 
	End If
 68 
	End If
71 
 
 69 
 
72 
Else
 70 
Else
73 
	'If ( pkgType = enumBASE_VIEW_PRODUCTS ) Then
 71 
	'If ( pkgType = enumBASE_VIEW_PRODUCTS ) Then
74 
	'	' Products
 72 
	'	' Products