| Line 521... |
Line 521... |
| 521 |
pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
|
521 |
pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
|
| 522 |
pkgInfoHash.Add "sdktag_id", (rsTemp.Fields("sdktag_id"))
|
522 |
pkgInfoHash.Add "sdktag_id", (rsTemp.Fields("sdktag_id"))
|
| 523 |
pkgInfoHash.Add "is_sdkpkg", (NOT IsNull(rsTemp.Fields("sdktag_id")))
|
523 |
pkgInfoHash.Add "is_sdkpkg", (NOT IsNull(rsTemp.Fields("sdktag_id")))
|
| 524 |
pkgInfoHash.Add "is_pegged", (rsTemp.Fields("pegged") <> 0)
|
524 |
pkgInfoHash.Add "is_pegged", (rsTemp.Fields("pegged") <> 0)
|
| 525 |
|
525 |
|
| 526 |
'
|
- |
|
| 527 |
' Determine if there is a deamon instruction on this package in this release
|
- |
|
| 528 |
' Also: OraDatabase.ExecuteSQL "BEGIN :OP_CODE_LIST := PK_BUILDAPI.daemon_ops_for_rtag("& nRtag_id & "); END;"
|
- |
|
| 529 |
objEH.TryORA ( OraSession )
|
- |
|
| 530 |
ON ERROR RESUME NEXT
|
- |
|
| 531 |
OraDatabase.ExecuteSQL "BEGIN :OP_CODE_LIST := PK_BUILDAPI.daemon_ops_for_rtag_pvid(:RTAG_ID,:PV_ID); END;"
|
- |
|
| 532 |
objEH.CatchORA ( OraSession )
|
- |
|
| 533 |
ON ERROR GOTO 0
|
- |
|
| 534 |
|
- |
|
| 535 |
opCodeListString = OraDatabase.Parameters("OP_CODE_LIST").Value
|
- |
|
| 536 |
|
- |
|
| 537 |
If NOT IsNull(opCodeListString) AND opCodeListString <> "" Then
|
- |
|
| 538 |
opCodeList = Split(opCodeListString, ",")
|
- |
|
| 539 |
For Each opCodeStr In opCodeList
|
- |
|
| 540 |
If opCodeStr = OP_CODE_0_RIPPLE_BUILD_PACKAGE Then
|
- |
|
| 541 |
pkgInfoHash.Add "hasRippleInstr", 1
|
- |
|
| 542 |
End If
|
- |
|
| 543 |
If opCodeStr = OP_CODE_1_TEST_BUILD_PACKAGE Then
|
- |
|
| 544 |
pkgInfoHash.Add "hasTestInstr", 1
|
- |
|
| 545 |
End If
|
- |
|
| 546 |
Next
|
- |
|
| 547 |
End If
|
- |
|
| 548 |
|
- |
|
| 549 |
Else
|
526 |
Else
|
| 550 |
' -- Package Version is not a member of the specified release
|
527 |
' -- Package Version is not a member of the specified release
|
| 551 |
' Get Basic Release and Project Details
|
528 |
' Get Basic Release and Project Details
|
| 552 |
Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
|
529 |
Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
|
| 553 |
" from projects pj, release_tags rt" &_
|
530 |
" from projects pj, release_tags rt" &_
|
| Line 593... |
Line 570... |
| 593 |
End If
|
570 |
End If
|
| 594 |
End If
|
571 |
End If
|
| 595 |
|
572 |
|
| 596 |
End If
|
573 |
End If
|
| 597 |
|
574 |
|
| - |
|
575 |
' Determine if user acn make the the package 'unofficial'
|
| 598 |
If (pkgInfoHash.Item ("dlocked") = "Y") _
|
576 |
If (pkgInfoHash.Item ("dlocked") = "Y") _
|
| 599 |
AND (pkgInfoHash.Item ("build_type") = "M") _
|
577 |
AND (pkgInfoHash.Item ("build_type") = "M") _
|
| 600 |
AND (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
|
578 |
AND (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
|
| 601 |
AND (pkgInfoHash.Item("can_edit_in_project") = "1" ) _
|
579 |
AND (pkgInfoHash.Item("can_edit_in_project") = "1" ) _
|
| 602 |
Then
|
580 |
Then
|
| 603 |
pkgInfoHash.Item ("can_unofficial") = "true"
|
581 |
pkgInfoHash.Item ("can_unofficial") = "true"
|
| - |
|
582 |
End If
|
| - |
|
583 |
|
| - |
|
584 |
'
|
| - |
|
585 |
' Determine if there is a deamon instruction on this package in this release
|
| - |
|
586 |
' Also: OraDatabase.ExecuteSQL "BEGIN :OP_CODE_LIST := PK_BUILDAPI.daemon_ops_for_rtag("& nRtag_id & "); END;"
|
| - |
|
587 |
objEH.TryORA ( OraSession )
|
| - |
|
588 |
ON ERROR RESUME NEXT
|
| - |
|
589 |
OraDatabase.ExecuteSQL "BEGIN :OP_CODE_LIST := PK_BUILDAPI.daemon_ops_for_rtag_pvid(:RTAG_ID,:PV_ID); END;"
|
| - |
|
590 |
objEH.CatchORA ( OraSession )
|
| - |
|
591 |
ON ERROR GOTO 0
|
| - |
|
592 |
opCodeListString = OraDatabase.Parameters("OP_CODE_LIST").Value
|
| - |
|
593 |
|
| - |
|
594 |
If NOT IsNull(opCodeListString) AND opCodeListString <> "" Then
|
| - |
|
595 |
opCodeList = Split(opCodeListString, ",")
|
| - |
|
596 |
For Each opCodeStr In opCodeList
|
| - |
|
597 |
If opCodeStr = OP_CODE_0_RIPPLE_BUILD_PACKAGE Then
|
| - |
|
598 |
pkgInfoHash.Add "hasRippleInstr", 1
|
| - |
|
599 |
End If
|
| - |
|
600 |
If opCodeStr = OP_CODE_1_TEST_BUILD_PACKAGE Then
|
| - |
|
601 |
pkgInfoHash.Add "hasTestInstr", 1
|
| - |
|
602 |
End If
|
| - |
|
603 |
Next
|
| 604 |
End If
|
604 |
End If
|
| 605 |
|
605 |
|
| 606 |
Else ' NOT isaRelease
|
606 |
Else ' NOT isaRelease
|
| 607 |
If pkgInfoHash.Exists ("modified_stamp") Then
|
607 |
If pkgInfoHash.Exists ("modified_stamp") Then
|
| 608 |
If NOT IsNull(pkgInfoHash.Item ("modified_stamp").Value) Then
|
608 |
If NOT IsNull(pkgInfoHash.Item ("modified_stamp").Value) Then
|