Subversion Repositories DevTools

Rev

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

Rev 3959 Rev 4203
Line 60... Line 60...
60 
%>
 60 
%>
61 
<%
 61 
<%
62 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
 62 
Sub New_Version ( SSnewver, NNorig_pv_id, NNSetToPv_id, NNrtag_id, sSyncRtags, retNEWpv_id )
63 
   Dim cAlterReleaseWhileRestrictive, rsQry
 63 
   Dim cAlterReleaseWhileRestrictive, rsQry
64 
   Dim Original_SSnewver
 64 
   Dim Original_SSnewver
- 
 
 65 
   Dim newPkgVersion
65 
   Original_SSnewver = SSnewver
 66 
   Original_SSnewver = SSnewver
66 
 
 67 
 
67 
   On Error Resume Next
 68 
   On Error Resume Next
68 
   objEH.ErrorRedirect = TRUE
 69 
   objEH.ErrorRedirect = TRUE
69 
 
 70 
 
70 
   If parBuildType = "A" Then
 71 
   ' Manually built package
71 
      SSnewver = ""
 72 
   '    Force change type of 'Fixed'
72 
   End If
 - 
 
73 
 
 - 
 
74 
   OraDatabase.Parameters.Add "ORIG_PV_ID", NNorig_pv_id, ORAPARM_INPUT, ORATYPE_NUMBER
 - 
 
75 
 
 - 
 
76 
   If parBuildType = "M" Then
 73 
   If parBuildType = "M" Then
77 
      ' Manual build
 - 
 
78 
      OraDatabase.Parameters.Add "PKG_VERSION", SSnewver, ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
79 
      parChangeType = "F"
 74 
      parChangeType = "F"
- 
 
 75 
   End If
- 
 
 76 
 
- 
 
 77 
   ' If automatically assigned version number
- 
 
 78 
   '    Reset the version string
- 
 
 79 
   If parChangeType = "F" Then
- 
 
 80 
      newPkgVersion = SSnewver
80 
   Else
 81 
   Else
- 
 
 82 
      newPkgVersion = Request("v_ext")
81 
      ' Automated Build
 83 
      SSnewver = ""
82 
      OraDatabase.Parameters.Add "PKG_VERSION", Request("v_ext"), ORAPARM_INPUT, ORATYPE_VARCHAR2
 - 
 
83 
   End If
 84 
   End If
84 
 
 85 
 
- 
 
 86 
   OraDatabase.Parameters.Add "ORIG_PV_ID", NNorig_pv_id, ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 87 
   OraDatabase.Parameters.Add "PKG_VERSION", newPkgVersion, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 88 
 
85 
   ' Access Control - Allow release change while release is in restrictive mode
 89 
   ' Access Control - Allow release change while release is in restrictive mode
86 
   cAlterReleaseWhileRestrictive = "N"
 90 
   cAlterReleaseWhileRestrictive = "N"
87 
   If objAccessControl.IsActive("AlterReleaseContentsInRestrictiveMode") Then cAlterReleaseWhileRestrictive = "Y"
 91 
   If objAccessControl.IsActive("AlterReleaseContentsInRestrictiveMode") Then cAlterReleaseWhileRestrictive = "Y"
88 
 
 92 
 
89 
   OraDatabase.Parameters.Add "BUILD_TYPE",                parBuildType,         ORAPARM_INPUT, ORATYPE_CHAR
 93 
   OraDatabase.Parameters.Add "BUILD_TYPE",                parBuildType,                  ORAPARM_INPUT, ORATYPE_CHAR
- 
 
 94 
   OraDatabase.Parameters.Add "CHANGE_TYPE",               parChangeType,                  ORAPARM_INPUT, ORATYPE_CHAR
90 
   OraDatabase.Parameters.Add "ALTER_RELEASE",             cAlterReleaseWhileRestrictive, ORAPARM_INPUT, ORATYPE_CHAR
 95 
   OraDatabase.Parameters.Add "ALTER_RELEASE",             cAlterReleaseWhileRestrictive, ORAPARM_INPUT, ORATYPE_CHAR
91 
   OraDatabase.Parameters.Add "SET_TO_PV_ID",              NNSetToPv_id,                  ORAPARM_INPUT, ORATYPE_NUMBER
 96 
   OraDatabase.Parameters.Add "SET_TO_PV_ID",              NNSetToPv_id,                  ORAPARM_INPUT, ORATYPE_NUMBER
92 
   OraDatabase.Parameters.Add "RTAG_ID",                   NNrtag_id,                     ORAPARM_INPUT, ORATYPE_NUMBER
 97 
   OraDatabase.Parameters.Add "RTAG_ID",                   NNrtag_id,                     ORAPARM_INPUT, ORATYPE_NUMBER
93 
   OraDatabase.Parameters.Add "USER_ID",                   objAccessControl.UserId,       ORAPARM_INPUT, ORATYPE_NUMBER
 98 
   OraDatabase.Parameters.Add "USER_ID",                   objAccessControl.UserId,       ORAPARM_INPUT, ORATYPE_NUMBER
94 
   OraDatabase.Parameters.Add "enumISSUES_STATE_IMPORTED", enumISSUES_STATE_IMPORTED,     ORAPARM_INPUT, ORATYPE_NUMBER
 99 
   OraDatabase.Parameters.Add "enumISSUES_STATE_IMPORTED", enumISSUES_STATE_IMPORTED,     ORAPARM_INPUT, ORATYPE_NUMBER
95 
   OraDatabase.Parameters.Add "RETPV_ID",                  0,                             ORAPARM_OUTPUT,ORATYPE_NUMBER
 100 
   OraDatabase.Parameters.Add "RETPV_ID",                  0,                             ORAPARM_OUTPUT,ORATYPE_NUMBER
96 
 
 101 
 
97 
   objEH.TryORA ( OraSession )
 102 
   objEH.TryORA ( OraSession )
98 
 
 103 
 
- 
 
 104 
   ' The new package may be based on an existing package
- 
 
 105 
   '    Get the information on the existing package
99 
   Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_CONTENT WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID = "& NNorig_pv_id &"", cint(0))
 106 
   Set rsQry = OraDatabase.DbCreateDynaset("SELECT * FROM RELEASE_CONTENT WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID = "& NNorig_pv_id &"", cint(0))
100 
 
 107 
 
- 
 
 108 
   '  If the previous version exists and it is deprecated then ...
101 
   If (NOT IsNull(rsQry("pkg_id"))) AND rsQry("pkg_state") = 6  Then
 109 
   If (NOT IsNull(rsQry("pkg_id"))) AND rsQry("pkg_state") = 6  Then
102 
 
 110 
 
103 
      Dim rsPv_id
 111 
      Dim rsPv_id
104 
 
 112 
 
105 
      If (SSnewver) <> ""  Then
 113 
      If (SSnewver) <> ""  Then
Line 111... Line 119...
111 
         rsPv_id.Close()
 119 
         rsPv_id.Close()
112 
         Set rsPv_id = nothing
 120 
         Set rsPv_id = nothing
113 
      Else
 121 
      Else
114 
         retNEWpv_id = NNSetToPv_id
 122 
         retNEWpv_id = NNSetToPv_id
115 
      End If
 123 
      End If
- 
 
 124 
 
116 
      If NOT IsNull(retNewpv_id) Then
 125 
      If NOT IsNull(retNewpv_id) Then
117 
         OraDatabase.ExecuteSQL _
 126 
         OraDatabase.ExecuteSQL _
118 
         "BEGIN "&_
 127 
         "BEGIN "&_
119 
         " UPDATE RELEASE_CONTENT SET PV_ID ="& retNEWpv_id &" WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID ="& parOLDpv_id &"; "&_
 128 
         " UPDATE RELEASE_CONTENT SET PV_ID ="& retNEWpv_id &" WHERE RTAG_ID ="& Request("rtag_id") &" AND PV_ID ="& parOLDpv_id &"; "&_
120 
         "END;"
 129 
         "END;"
Line 135... Line 144...
135 
 
 144 
 
136 
         retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
 145 
         retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
137 
 
 146 
 
138 
      End If
 147 
      End If
139 
   Else
 148 
   Else
- 
 
 149 
 
- 
 
 150 
      ' Create a new version of the package
- 
 
 151 
      '
140 
      OraDatabase.ExecuteSQL _
 152 
      OraDatabase.ExecuteSQL _
141 
      "BEGIN "&_
 153 
      "BEGIN "&_
142 
      " PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
 154 
      " PK_PACKAGE.NEW_VERSION ( :ORIG_PV_ID, "&_
143 
      "                    :PKG_VERSION,"&_
 155 
                               " :PKG_VERSION,"&_
144 
      "                    :BUILD_TYPE,"&_
 156 
                               " :BUILD_TYPE,"&_
- 
 
 157 
                               " :CHANGE_TYPE,"&_
145 
      "                    :SET_TO_PV_ID,"&_
 158 
                               " :SET_TO_PV_ID,"&_
146 
      "                    :RTAG_ID,"&_
 159 
                               " :RTAG_ID,"&_
147 
      "                    :USER_ID,"&_
 160 
                               " :USER_ID,"&_
148 
      "                    :enumISSUES_STATE_IMPORTED,"&_
 161 
                               " :enumISSUES_STATE_IMPORTED,"&_
149 
      "                    :RETPV_ID ); "&_
 162 
                               " :RETPV_ID ); "&_
150 
      " PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
 163 
      " PK_RELEASE.CAN_USER_WRITE_TO_RELEASE ( :RTAG_ID, :RETPV_ID, :ALTER_RELEASE ); "&_
151 
      " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
 164 
      " PK_ENVIRONMENT.REPLACE_PACKAGE ( :RETPV_ID, :ORIG_PV_ID, :RTAG_ID, :USER_ID ); "&_
152 
      "END;"
 165 
      "END;"
153 
 
 166 
 
154 
      retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
 167 
      retNEWpv_id = OraDatabase.Parameters("RETPV_ID").Value
Line 165... Line 178...
165 
   Set rsQry = nothing
 178 
   Set rsQry = nothing
166 
 
 179 
 
167 
   OraDatabase.Parameters.Remove "ORIG_PV_ID"
 180 
   OraDatabase.Parameters.Remove "ORIG_PV_ID"
168 
   OraDatabase.Parameters.Remove "ALTER_RELEASE"
 181 
   OraDatabase.Parameters.Remove "ALTER_RELEASE"
169 
   OraDatabase.Parameters.Remove "PKG_VERSION"
 182 
   OraDatabase.Parameters.Remove "PKG_VERSION"
- 
 
 183 
   OraDatabase.Parameters.Remove "CHANGE_TYPE"
170 
   OraDatabase.Parameters.Remove "BUILD_TYPE"
 184 
   OraDatabase.Parameters.Remove "BUILD_TYPE"
171 
   OraDatabase.Parameters.Remove "SET_TO_PV_ID"
 185 
   OraDatabase.Parameters.Remove "SET_TO_PV_ID"
172 
   OraDatabase.Parameters.Remove "RTAG_ID"
 186 
   OraDatabase.Parameters.Remove "RTAG_ID"
173 
   OraDatabase.Parameters.Remove "USER_ID"
 187 
   OraDatabase.Parameters.Remove "USER_ID"
174 
   OraDatabase.Parameters.Remove "enumISSUES_STATE_IMPORTED"
 188 
   OraDatabase.Parameters.Remove "enumISSUES_STATE_IMPORTED"
Line 383... Line 397...
383 
    End If
 397 
    End If
384 
 
 398 
 
385 
' Not Creating a new package
 399 
' Not Creating a new package
386 
ElseIf (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
 400 
ElseIf (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
387 
      ' All mandatory parameters FOUND
 401 
      ' All mandatory parameters FOUND
388 
 
 - 
 
389 
      If ( (parSetToPv_id <> "") OR SanityCheck(parFRnewver) ) Then
 402 
      If ( (parSetToPv_id <> "") OR SanityCheck(parFRnewver) ) Then
390 
 
 403 
 
391 
         Record_Count = 0
 404 
         Record_Count = 0
392 
 
 405 
 
393 
         If parBuildType = "M" Then
 406 
         If parBuildType = "M" Then