Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>

<%

'=====================================================

'                 REMOVE Packages

'               --- PROCESS FORM ---

'=====================================================

%>

<%

Option explicit

' Good idea to set when using redirect

Response.Expires = 0   ' always load the page, dont store

%>

<!--#include file="common/conf.asp"-->

<!--#include file="common/globals.asp"-->

<!--#include file="common/formating.asp"-->

<!--#include file="common/qstr.asp"-->

<!--#include file="common/common_subs.asp"-->

<!--#include file="common/common_dbedit.asp"-->

<!--#include file="common/daemon_instructions.asp"-->

<!--#include file="common/release_changed.asp"-->

<%

' Set rfile parameter. This is a return page after Login

Call objPMod.StoreParameter ( "rfile", "dependencies.asp" )

'------------ ACCESS CONTROL ------------------

%>

<!--#include file="_access_control_login.asp"-->

<!--#include file="_access_control_general.asp"-->

<!--#include file="_access_control_project.asp"-->

<%

'------------ Variable Definition -------------

'------------ Constants Declaration -----------

'------------ Variable Init -------------------

'----------------------------------------------

%>

<%

'--------------------------------------------------------------------------------------------------------------------------------------

Sub RemovePackage( )

   Dim ReturnCode

   Dim nPvId

   nPvId=Request("pv_id")

   Dim objRC: Set objRC = New ReleaseChanged

   Call objRC.Get_Package_Info (Request("rtag_id"),nPvId)

   OraDatabase.Parameters.Add "PV_ID",       nPvId,                  ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "RTAG_ID",     Request("rtag_id"),     ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "USER_ID",     objAccessControl.UserId,ORAPARM_INPUT, ORATYPE_NUMBER

   OraDatabase.Parameters.Add "RETURN_CODE", NULL,                   ORAPARM_OUTPUT, ORATYPE_NUMBER

   If Request("btn") = "YES" Then

      ' Force Remove

      OraDatabase.Parameters.Add "FORCE_REMOVE", "Y", ORAPARM_INPUT, ORATYPE_NUMBER

   Else

      OraDatabase.Parameters.Add "FORCE_REMOVE", "N", ORAPARM_INPUT, ORATYPE_NUMBER

   End If

   objEH.TryORA ( OraSession )

   On Error Resume Next

   OraDatabase.ExecuteSQL _

   "BEGIN "&_

   "   :RETURN_CODE := PK_ENVIRONMENT.REMOVE_PACKAGE ( :PV_ID, :RTAG_ID, :USER_ID, :FORCE_REMOVE );"&_

   "END; "

   objEH.CatchORA ( OraSession )

   ReturnCode = OraDatabase.Parameters("RETURN_CODE").Value

   If ( ReturnCode <> 0 )  AND (Request("btn") <> "YES") Then

      'If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then

         ' Admin and System Admin users

         Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& "_remove_package.asp")

      'Else

      '   ' Other users

      '   Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")

      '

      'End If

   End If

   OraDatabase.Parameters.Remove "PV_ID_LIST"

   OraDatabase.Parameters.Remove "RTAG_ID"

   OraDatabase.Parameters.Remove "USER_ID"

   OraDatabase.Parameters.Remove "FORCE_REMOVE"

   OraDatabase.Parameters.Remove "RETURN_CODE"

   If Not objEH.LastOraFailed Then

     Call objRC.Run_ReleaseChanged(Request("rtag_id"),nPvId,enumRELEASE_CHANGE_MODE_PKG_REMOVED,false)

   End If  

   Set objRC = Nothing

End Sub

'--------------------------------------------------------------------------------------------------------------------------------------

%>

<%

'-----------------------  MAIN LINE  ---------------------------

   On Error Resume Next

   objEH.Try

'--- Process submition ---

If (Request("pv_id") <> "")  AND (Request("rtag_id") <> "") Then

   If (DaemonInstructionPreventsEditing(Request("rtag_id"), Request("pv_id"))) Then

      Call RaiseMsg(enum_MSG_ERROR, "This package version has one or more daemon instructions present<br><br>"&_

                                    "Please delete them or allow them to be consumed before attempting to remove the package version from the release.")

   Else

      Call RemovePackage ()

      ' All mendatory parameters FOUND

      'If parBtn <> "NO" Then

      '

      '   retNOTRemove = -1

      '   Call CheckPackageInUse ( Request("pv_id"), QStrPar("rtag_id"), parBtn, retNOTRemove )

      '   Call Remove_Pkgs_From_Release( Format_MultiSelect_List( Request("pv_id") ), QStrPar("rtag_id"), retNOTRemove )

      '

      '

      '   If ( retNOTRemove <> -1 ) AND ( parBtn <> "YES" ) Then

      '      If (UserDetails ( "user_role" ) = "A") OR (UserDetails ( "user_role" ) = "S") Then

      '         ' Admin and System Admin users

      '         Call RaiseMsg ( enum_MSG_PACKAGE_IN_USE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")

      '

      '      Else

      '         ' Other users

      '         Call RaiseMsg ( enum_MSG_CANNOT_REMOVE_PACKAGE, Request("pv_id") &"|"& Request("rtag_id") &"|"& Request("envtab") &"|"& "_remove_packages.asp")

      '

      '      End If

      '

      '   End If

      '

      'End If

      Response.Redirect("dependencies.asp?rtag_id="& Request("rtag_id") )

   End If

Else

         Err.Raise 8, "Please select the required package to delete."

   'Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO

   'Response.write QSTR_All

End If

   objEH.Catch

%>

<!-- DESTRUCTOR ------->

<!--#include file="common/destructor.asp"-->