Subversion Repositories DevTools

Rev

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

Rev 5084 Rev 5097
Line 41... Line 41...
41 
%>
 41 
%>
42 
<%
 42 
<%
43 
'-------------------------------------------------
 43 
'-------------------------------------------------
44 
' Function:     AddReleaseSDK
44 
' Function:     AddReleaseSDK
45 
' Description:  Add the nominated sdktag to the release
 45 
' Description:  Add the nominated sdktag to the release
- 
 
 46 
' Args:         dMode. 0: No Delete, 1:Delete non-sdk packages
46 
' Returns:      Number of Packages Inserted
 47 
' Returns:      Number of Packages Inserted
47 
'                < 0 - Error. Conflict list populated
 48 
'                < 0 - Error. Conflict list populated
48 
'                      rsView is set to a list of PV_ID that cause the conflict
 49 
'                      rsView is set to a list of PV_ID that cause the conflict
49 
'                = 0 - No packages inserted
 50 
'                = 0 - No packages inserted
50 
'                > 0 - Number of packages inserted
51 
'                > 0 - Number of packages inserted
51 
 
 52 
 
52 
Function AddReleaseSDK   ( nRtagId, nSdktagId  )
 53 
Function AddReleaseSDK   ( nRtagId, nSdktagId, dMode  )
53 
    OraDatabase.Parameters.Add "RTAG_ID",        nRtagId,                   ORAPARM_INPUT, ORATYPE_NUMBER
 54 
    OraDatabase.Parameters.Add "RTAG_ID",        nRtagId,                   ORAPARM_INPUT, ORATYPE_NUMBER
54 
    OraDatabase.Parameters.Add "SDKTAG_ID",      nSdktagId,                 ORAPARM_INPUT, ORATYPE_NUMBER
 55 
    OraDatabase.Parameters.Add "SDKTAG_ID",      nSdktagId,                 ORAPARM_INPUT, ORATYPE_NUMBER
55 
    OraDatabase.Parameters.Add "USER_ID",        objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
 56 
    OraDatabase.Parameters.Add "USER_ID",        objAccessControl.UserId,   ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 57 
    OraDatabase.Parameters.Add "DMODE",          dMode,                     ORAPARM_INPUT, ORATYPE_NUMBER
56 
    OraDatabase.Parameters.Add "INSERT_COUNT",   NULL,                      ORAPARM_OUTPUT, ORATYPE_NUMBER
 58 
    OraDatabase.Parameters.Add "INSERT_COUNT",   NULL,                      ORAPARM_OUTPUT, ORATYPE_NUMBER
57 
    OraDatabase.Parameters.Add "CONFLICT_LIST",  NULL,                      ORAPARM_OUTPUT, ORATYPE_CURSOR
 59 
    OraDatabase.Parameters.Add "CONFLICT_LIST",  NULL,                      ORAPARM_OUTPUT, ORATYPE_CURSOR
58 
 
 60 
 
59 
    objEH.TryORA ( OraSession )
 61 
    objEH.TryORA ( OraSession )
60 
    On Error Resume Next
 62 
    On Error Resume Next
61 
 
 63 
 
62 
    OraDatabase.ExecuteSQL _
 64 
    OraDatabase.ExecuteSQL _
63 
    " BEGIN "&_
 65 
    " BEGIN "&_
64 
    "    PK_RELEASE.ADD_RELEASE_SDK ( :RTAG_ID, :SDKTAG_ID, :USER_ID, :INSERT_COUNT, :CONFLICT_LIST ); "&_
 66 
    "    PK_RELEASE.ADD_RELEASE_SDK ( :RTAG_ID, :SDKTAG_ID, :USER_ID, :DMODE, :INSERT_COUNT, :CONFLICT_LIST ); "&_
65 
    " END; "
 67 
    " END; "
66 
 
 68 
 
67 
    objEH.CatchORA ( OraSession )
 69 
    objEH.CatchORA ( OraSession )
68 
 
 70 
 
69 
     '  INSERT_COUNT < 0 - Error. Conflict list populated
 71 
     '  INSERT_COUNT < 0 - Error. Conflict list populated
Line 79... Line 81...
79 
    End If
 81 
    End If
80 
 
 82 
 
81 
    OraDatabase.Parameters.Remove "RTAG_ID"
 83 
    OraDatabase.Parameters.Remove "RTAG_ID"
82 
    OraDatabase.Parameters.Remove "REF_RTAG_ID"
 84 
    OraDatabase.Parameters.Remove "REF_RTAG_ID"
83 
    OraDatabase.Parameters.Remove "USER_ID"
 85 
    OraDatabase.Parameters.Remove "USER_ID"
- 
 
 86 
    OraDatabase.Parameters.Remove "DMODE"
84 
    OraDatabase.Parameters.Remove "INSERT_COUNT"
 87 
    OraDatabase.Parameters.Remove "INSERT_COUNT"
85 
    OraDatabase.Parameters.Remove "CONFLICT_LIST"
 88 
    OraDatabase.Parameters.Remove "CONFLICT_LIST"
86 
End Function
 89 
End Function
87 
%>
 90 
%>
88 
<%
 91 
<%
Line 92... Line 95...
92 
If NOT canShowControlInProject("AddSdk") Then
 95 
If NOT canShowControlInProject("AddSdk") Then
93 
    Call RaiseMsg(enum_MSG_ERROR, "User not authorized to add an SDK.<br>User login may have expired.")
 96 
    Call RaiseMsg(enum_MSG_ERROR, "User not authorized to add an SDK.<br>User login may have expired.")
94 
End If
 97 
End If
95 
'--------------------------------
 98 
'--------------------------------
96 
 
 99 
 
97 
If (Request("rtag_id") <> "")  AND  (Request("sdktag_id") <> "") Then
 100 
If (Request("rtag_id") <> "")  AND  (Request("sdktag_id") <> "") AND  (Request("dmode") <> "") Then
98 
 
 101 
 
99 
   '--- Process submition ---
 102 
   '--- Process submition ---
100 
   sdkAdded = AddReleaseSDK ( Request("rtag_id"), Request("sdktag_id")  )
 103 
   sdkAdded = AddReleaseSDK ( Request("rtag_id"), Request("sdktag_id"), Request("dmode")  )
101 
 
 104 
 
102 
   If sdkAdded >= 0 Then
 105 
   If sdkAdded >= 0 Then
103 
      Response.Redirect( "dependencies.asp?rtag_id="& Request("rtag_id") )
 106 
      Response.Redirect( "dependencies.asp?rtag_id="& Request("rtag_id") )
104 
   End If
 107 
   End If
105 
 
 108