Subversion Repositories DevTools

Rev

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

Rev 5179 Rev 5338
Line 341... Line 341...
341 
          '---- Insert additional information
 341 
          '---- Insert additional information
342 
          If Err.Number = 0 Then
 342 
          If Err.Number = 0 Then
343 
            Call UpdateReasonForVersion (newPkgPv_id, Request("FRreason"))
 343 
            Call UpdateReasonForVersion (newPkgPv_id, Request("FRreason"))
344 
          End If
 344 
          End If
345 
 
 345 
 
- 
 
 346 
          '---- Insert Package Licence info
- 
 
 347 
          If Err.Number = 0 Then
- 
 
 348 
            Call UpdateLicenceInfo (newPkgPv_id, Request("licence_id"))
- 
 
 349 
          End If
- 
 
 350 
 
- 
 
 351 
 
346 
          '---- Commit or Rollback the transaction
 352 
          '---- Commit or Rollback the transaction
347 
          If Err.number <> 0 Then
 353 
          If Err.number <> 0 Then
348 
             OraSession.RollBack
 354 
             OraSession.RollBack
349 
             Call RaiseMsg ( enum_MSG_ERROR, Err.description )
 355 
             Call RaiseMsg ( enum_MSG_ERROR, Err.description )
350 
          Else
 356 
          Else