Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5957
Line 60... Line 60...
60 
      If PUBLIC_MakeRelease ( parRtag_id, parPv_id ) = TRUE Then
 60 
      If PUBLIC_MakeRelease ( parRtag_id, parPv_id ) = TRUE Then
61 
        If PUBLIC_Run_onMakeOfficial ( parRtag_id, parPv_id ) = TRUE Then
 61 
        If PUBLIC_Run_onMakeOfficial ( parRtag_id, parPv_id ) = TRUE Then
62 
            Call PUBLIC_NotifyInterestManualBuild( parRtag_id, parPv_id )
 62 
            Call PUBLIC_NotifyInterestManualBuild( parRtag_id, parPv_id )
63 
        End If
 63 
        End If
64 
 
 64 
 
- 
 
 65 
        Call Destroy_All_Objects
65 
        Response.Redirect ( parRfile & "?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
 66 
        Response.Redirect ( parRfile & "?pv_id="& parPv_id &"&rtag_id="& parRtag_id )
66 
      Else
 67 
      Else
67 
         ' do nothing - the reality is that the exception handling done in PUBLIC_MakeRelease redirects on an error anyway.
 68 
         ' do nothing - the reality is that the exception handling done in PUBLIC_MakeRelease redirects on an error anyway.
68 
      End If
 69 
      End If
69 
    End If
 70 
    End If
Line 71... Line 72...
71 
Else
 72 
Else
72 
    Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
 73 
    Call RaiseMsg ( Eval(retERRmsg), parRtag_id &"|"& parPv_id &"|"& retParameters &"|"& "N" )
73 
End If
 74 
End If
74 
 
 75 
 
75 
%>
 76 
%>
76 
 
 - 
 
77 
 
 - 
 
78 
<!-- DESTRUCTOR ------->
 77 
<!-- DESTRUCTOR ------->
79 
<!--#include file="common/destructor.asp"-->
 78 
<!--#include file="common/destructor.asp"-->