| Line 504... |
Line 504... |
| 504 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
504 |
OraDatabase.Parameters.Remove "RETURN_CODE"
|
| 505 |
End Function
|
505 |
End Function
|
| 506 |
|
506 |
|
| 507 |
|
507 |
|
| 508 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
508 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 509 |
' Returns true if the specified package is released
|
509 |
' Returns true if the specified package of the specified release is released
|
| 510 |
Function Is_Released(artag_id, apv_id)
|
510 |
Function Is_Released(artag_id, apv_id)
|
| - |
|
511 |
If artag_id <> "" Then
|
| 511 |
Dim rsQry: Set rsQry = OraDatabase.DbCreateDynaset( "SELECT rc. pv_id FROM release_content rc WHERE rc.rtag_id = " & artag_id & " AND rc.pv_id = " & apv_id, cint(0))
|
512 |
Dim rsQry: Set rsQry = OraDatabase.DbCreateDynaset( "SELECT rc.pv_id FROM release_content rc WHERE rc.rtag_id = " & artag_id & " AND rc.pv_id = " & apv_id, cint(0))
|
| 512 |
Is_Released = rsQry.RecordCount <> 0
|
513 |
Is_Released = rsQry.RecordCount > 0
|
| 513 |
rsQry.Close()
|
514 |
rsQry.Close()
|
| - |
|
515 |
Set rsQry = Nothing
|
| - |
|
516 |
Else
|
| - |
|
517 |
Is_Released = False
|
| - |
|
518 |
End If
|
| 514 |
End Function
|
519 |
End Function
|
| 515 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
520 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 516 |
|
521 |
|
| 517 |
|
522 |
|
| 518 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
523 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| Line 533... |
Line 538... |
| 533 |
</td>
|
538 |
</td>
|
| 534 |
</tr>
|
539 |
</tr>
|
| 535 |
</table>
|
540 |
</table>
|
| 536 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
541 |
<table width="100%" border="0" cellspacing="1" cellpadding="2">
|
| 537 |
<%
|
542 |
<%
|
| - |
|
543 |
|
| - |
|
544 |
|
| 538 |
Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))
|
545 |
Set rsQry = OraDatabase.DbCreateDynaset( SQL_Package_Information ( parPv_id ), cint(0))
|
| 539 |
|
546 |
|
| 540 |
Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), rsQry("dlocked"), vcsInfoCollector )
|
547 |
Call get_vcs_info_for_package( rsQry("pkg_label"), rsQry("build_type"), rsQry("vcs_type_id"), rsQry("dlocked"), vcsInfoCollector )
|
| 541 |
|
548 |
|
| 542 |
%>
|
549 |
%>
|