| Line 414... |
Line 414... |
| 414 |
|
414 |
|
| 415 |
End Sub
|
415 |
End Sub
|
| 416 |
'-----------------------------------------------------------------------------------------------------------------
|
416 |
'-----------------------------------------------------------------------------------------------------------------
|
| 417 |
Sub Write_To_Release_Notes_Info ( nPv_id, sMsg )
|
417 |
Sub Write_To_Release_Notes_Info ( nPv_id, sMsg )
|
| 418 |
WScript.Echo "Writing message to release_notes_info in [PACKAGE_VERSIONS] table."
|
418 |
WScript.Echo "Writing message to release_notes_info in [PACKAGE_VERSIONS] table."
|
| 419 |
WScript.Echo sMsg
|
- |
|
| 420 |
OraSession.BeginTrans
|
419 |
OraSession.BeginTrans
|
| - |
|
420 |
|
| - |
|
421 |
If IsNULL(sMsg) Then
|
| - |
|
422 |
WScript.Echo "NULL"
|
| 421 |
OraDatabase.ExecuteSQL " UPDATE package_versions "&_
|
423 |
OraDatabase.ExecuteSQL " UPDATE package_versions "&_
|
| - |
|
424 |
" SET release_notes_info = NULL"&_
|
| - |
|
425 |
" WHERE pv_id = "& nPv_id
|
| - |
|
426 |
Else
|
| - |
|
427 |
WScript.Echo sMsg
|
| - |
|
428 |
OraDatabase.ExecuteSQL " UPDATE package_versions "&_
|
| 422 |
" SET release_notes_info = '"& sMsg &"'"&_
|
429 |
" SET release_notes_info = '"& sMsg &"'"&_
|
| 423 |
" WHERE pv_id = "& nPv_id
|
430 |
" WHERE pv_id = "& nPv_id
|
| - |
|
431 |
End If
|
| 424 |
OraSession.CommitTrans
|
432 |
OraSession.CommitTrans
|
| 425 |
End Sub
|
433 |
End Sub
|
| 426 |
'-----------------------------------------------------------------------------------------------------------------
|
434 |
'-----------------------------------------------------------------------------------------------------------------
|
| 427 |
Function FormatTextBox ( SSstr )
|
435 |
Function FormatTextBox ( SSstr )
|
| 428 |
If SSstr <> "" Or NOT IsNull(SSstr) Then
|
436 |
If SSstr <> "" Or NOT IsNull(SSstr) Then
|