Subversion Repositories DevTools

Rev

Rev 6123 | Rev 7395 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6123 Rev 6370
Line 110... Line 110...
110 
Response.Write oJSON.JSONoutput()
 110 
Response.Write oJSON.JSONoutput()
111 
Set oJSON = Nothing
 111 
Set oJSON = Nothing
112 
Call Destroy_All_Objects
 112 
Call Destroy_All_Objects
113 
%>
 113 
%>
114 
<%
 114 
<%
- 
 
 115 
Sub ReportError (sSummary, sDetails)
- 
 
 116 
    oJSON.data("error") = 1
- 
 
 117 
    oJSON.data("emsgSummary") = sSummary
- 
 
 118 
    oJSON.data("emsgDetails") = sDetails
- 
 
 119 
End Sub
115 
'-------------------------------------------------
 120 
'-------------------------------------------------
116 
' Function:    updateVersion
 121 
' Function:    updateVersion
117 
' Description: Update version information
 122 
' Description: Update version information
118 
'
 123 
'
119 
Sub updateVersion
 124 
Sub updateVersion
120 
    Dim buildType, changeType, pvId, rtagId, version, vExt, errMessage
 125 
    Dim buildType, changeType, pvId, rtagId, version, vExt, errMessage, modeType, packageName
121 
    '
126 
    '
122 
    ' Ensure we have all the required parameters
 127 
    ' Ensure we have all the required parameters
123 
    '
 128 
    '
124 
    buildType = QStrPar("buildType")
 129 
    buildType = QStrPar("buildType")
125 
    changeType = QStrPar("changeType")
 130 
    changeType = QStrPar("changeType")
126 
    pvId = QStrPar("pvId")
 131 
    pvId = QStrPar("pvId")
127 
    rtagId = QStrPar("rtagId")
 132 
    rtagId = QStrPar("rtagId")
128 
    version = QStrPar("Version")
 133 
    version = QStrPar("Version")
129 
    vExt = QStrPar("vExt")
 134 
    vExt = QStrPar("vExt")
- 
 
 135 
    modeType = QStrPar("Mode")
- 
 
 136 
    packageName = QStrPar("packageName")
130 
 
 137 
 
131 
    '
 138 
    '
132 
    ' If Manual then force change type to 'F'
 139 
    ' If Manual then force change type to 'F'
133 
    ' If Auto then ensure that the version number is of the correct form
 140 
    ' If Auto then ensure that the version number is of the correct form
134 
    if buildType = "M" then
141 
    if buildType = "M" then
Line 142... Line 149...
142 
    '
 149 
    '
143 
    '   Get existing data
 150 
    '   Get existing data
144 
    '       Test for package existence
 151 
    '       Test for package existence
145 
    '       Check for changes
 152 
    '       Check for changes
146 
    '
 153 
    '
147 
    SqlQry = "SELECT pv.pv_id, pv.pkg_version, pv.v_ext, pv.change_type, pv.build_type"&_
 154 
    SqlQry = "SELECT p.pkg_name, pv.pkg_id, pv.pv_id, pv.pkg_version, pv.v_ext, pv.change_type, pv.build_type"&_
148 
             " FROM package_versions pv"&_
 155 
             " FROM package_versions pv, packages p"&_
149 
             " WHERE pv.pv_id = :NNpv_id"
 156 
             " WHERE pv.pv_id = :NNpv_id" &_
- 
 
 157 
             " AND p.pkg_id = pv.pkg_id"
150 
    OraDatabase.Parameters.Add "NNpv_id", pvId, ORAPARM_INPUT, ORATYPE_NUMBER
 158 
    OraDatabase.Parameters.Add "NNpv_id", pvId, ORAPARM_INPUT, ORATYPE_NUMBER
151 
 
 159 
 
152 
	objEH.ErrorRedirect = FALSE
 160 
	objEH.ErrorRedirect = FALSE
153 
    objEH.TryORA ( OraSession )
 161 
    objEH.TryORA ( OraSession )
154 
    On Error Resume Next
 162 
    On Error Resume Next
Line 203... Line 211...
203 
            OraDatabase.Parameters.Remove "BUILD_TYPE"
 211 
            OraDatabase.Parameters.Remove "BUILD_TYPE"
204 
            OraDatabase.Parameters.Remove "CHANGE_TYPE"
 212 
            OraDatabase.Parameters.Remove "CHANGE_TYPE"
205 
            result = 0
 213 
            result = 0
206 
        End If
 214 
        End If
207 
 
 215 
 
- 
 
 216 
        If modeType = 1 Then
- 
 
 217 
            '   Rename the package - possibly
- 
 
 218 
            If rsQry("pkg_name") <> packageName Then
- 
 
 219 
                changed = changed + 16
- 
 
 220 
                Dim rsQry1, count
- 
 
 221 
 
- 
 
 222 
                OraDatabase.Parameters.Add "PKG_ID", rsQry("pkg_id"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 223 
                OraDatabase.Parameters.Add "PKG_NAME", packageName, ORAPARM_INPUT, ORATYPE_VARCHAR2
- 
 
 224 
 
- 
 
 225 
                SqlQry = "select count(*) as count from package_versions where pkg_id = :PKG_ID"
- 
 
 226 
            	objEH.ErrorRedirect = FALSE
- 
 
 227 
                objEH.TryORA ( OraSession )
- 
 
 228 
                On Error Resume Next
- 
 
 229 
                Set rsQry1 = OraDatabase.DbCreateDynaset( SqlQry, ORADYN_DEFAULT )
- 
 
 230 
                objEH.CatchORA ( OraSession )
- 
 
 231 
                errMessage = OraDatabase.Parameters("errMessage").Value
- 
 
 232 
                On Error GoTo 0
- 
 
 233 
 
- 
 
 234 
                If NOT objEH.LastOraFailed Then
- 
 
 235
- 
 
 236 
                    If ((NOT rsQry1.BOF) AND (NOT rsQry1.EOF)) Then
- 
 
 237 
                      count = rsQry1.Fields("count")
- 
 
 238 
                    End If
- 
 
 239 
                    rsQry1.Close
- 
 
 240 
 
- 
 
 241 
                    If count = 1 Then
- 
 
 242 
                        SqlQry = "update packages set pkg_name = :PKG_NAME where pkg_id = :PKG_ID"
- 
 
 243 
                    	objEH.ErrorRedirect = FALSE
- 
 
 244 
                        objEH.TryORA ( OraSession )
- 
 
 245 
                        On Error Resume Next
- 
 
 246 
                        OraDatabase.ExecuteSQL SqlQry
- 
 
 247 
                        objEH.CatchORA ( OraSession )
- 
 
 248 
                        errMessage = OraDatabase.Parameters("errMessage").Value
- 
 
 249 
                        On Error GoTo 0
- 
 
 250 
 
- 
 
 251 
                        If NOT objEH.LastOraFailed Then
- 
 
 252 
                            result = 0
- 
 
 253 
                        End If
- 
 
 254 
                    Else
- 
 
 255 
                        ReportError "Package name has been used","The Package name cannot be renamed as it is in use by multiple versions"
- 
 
 256 
                    End If
- 
 
 257 
                End If
- 
 
 258 
 
- 
 
 259 
                OraDatabase.Parameters.Remove "PKG_ID"
- 
 
 260 
                OraDatabase.Parameters.Remove "PKG_NAME"
- 
 
 261 
                rsQry1.Close
- 
 
 262 
                Set rsQry1 = Nothing
- 
 
 263 
            End If
- 
 
 264 
        End If
- 
 
 265 
 
- 
 
 266 
        ' Report - no changes
- 
 
 267 
        If changed = 0 Then
- 
 
 268 
            ReportError "No change detected", "No changes detected"
- 
 
 269 
        End If
- 
 
 270 
 
208 
    rsQry.Close
 271 
    rsQry.Close
209 
    Set rsQry = Nothing
 272 
    Set rsQry = Nothing
210 
    End If
 273 
    End If
211 
End Sub
 274 
End Sub
212 
'-------------------------------------------------
 275 
'-------------------------------------------------