Subversion Repositories DevTools

Rev

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

Rev 4390 Rev 4687
Line 385... Line 385...
385 
   rsTemp.Close
 385 
   rsTemp.Close
386 
   Set rsTemp = nothing
 386 
   Set rsTemp = nothing
387 
End Function
 387 
End Function
388 
'-----------------------------------------------------------------------------------------------------------------------------
 388 
'-----------------------------------------------------------------------------------------------------------------------------
389 
Sub Get_Pkg_Info ( SSpv_id, NNrtag )
 389 
Sub Get_Pkg_Info ( SSpv_id, NNrtag )
390 
   Dim rsTemp, Query_String
 390 
   Dim rsTemp, Query_String, isaRelease
- 
 
 391 
   isaRelease = NOT ((NNrtag = "") or (IsNull(NNrtag)))
- 
 
 392 
 
391 
   OraDatabase.Parameters.Add "PV_ID",       SSpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 393 
   OraDatabase.Parameters.Add "PV_ID",         SSpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
392 
   OraDatabase.Parameters.Add "RTAG_ID",       NNrtag,      ORAPARM_INPUT, ORATYPE_NUMBER
 394 
   OraDatabase.Parameters.Add "RTAG_ID",       NNrtag,    ORAPARM_INPUT, ORATYPE_NUMBER
393 
   OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,      ORAPARM_OUTPUT, ORATYPE_NUMBER
395 
   OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,      ORAPARM_OUTPUT, ORATYPE_NUMBER
394 
 
 396 
 
395 
   pkgInfoHash.Item ("can_unofficial") = "false"
 397 
   pkgInfoHash.Item ("can_unofficial") = "false"
396 
 
 398 
 
397 
   '/* Get Package Details */
 399 
   '-- Get Package Details
398 
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
 400 
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
399 
 
 401 
 
400 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 402 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
401 
      pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
 403 
      pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
402 
      pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
 404 
      pkgInfoHash.Add "pkg_id", (rsTemp.Fields("pkg_id"))
Line 416... Line 418...
416 
 
 418 
 
417 
      pkgInfoHash.Add "owner", (rsTemp.Fields("owner"))
 419 
      pkgInfoHash.Add "owner", (rsTemp.Fields("owner"))
418 
      pkgInfoHash.Add "owner_email", (rsTemp.Fields("owner_email"))
 420 
      pkgInfoHash.Add "owner_email", (rsTemp.Fields("owner_email"))
419 
 
 421 
 
420 
      pkgInfoHash.Add "dlocked", (rsTemp.Fields("dlocked"))
 422 
      pkgInfoHash.Add "dlocked", (rsTemp.Fields("dlocked"))
421 
      pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
 - 
 
422 
      pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
 - 
 
423 
      pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
 - 
 
- 
 
 423 
 
424 
      pkgInfoHash.Add "pkg_label", (rsTemp.Fields("pkg_label"))
 424 
      pkgInfoHash.Add "pkg_label", (rsTemp.Fields("pkg_label"))
425 
      pkgInfoHash.Add "src_path", (rsTemp.Fields("src_path"))
 425 
      pkgInfoHash.Add "src_path", (rsTemp.Fields("src_path"))
426 
      pkgInfoHash.Add "pv_description", (rsTemp.Fields("pv_description"))
 426 
      pkgInfoHash.Add "pv_description", (rsTemp.Fields("pv_description"))
427 
      pkgInfoHash.Add "last_pv_id", (rsTemp.Fields("last_pv_id"))
 427 
      pkgInfoHash.Add "last_pv_id", (rsTemp.Fields("last_pv_id"))
428 
      pkgInfoHash.Add "previous_version", (rsTemp.Fields("previous_version"))
 428 
      pkgInfoHash.Add "previous_version", (rsTemp.Fields("previous_version"))
Line 436... Line 436...
436 
      pkgInfoHash.Add "change_type", (rsTemp.Fields("change_type"))
 436 
      pkgInfoHash.Add "change_type", (rsTemp.Fields("change_type"))
437 
      pkgInfoHash.Add "bs_id", (rsTemp.Fields("bs_id"))
 437 
      pkgInfoHash.Add "bs_id", (rsTemp.Fields("bs_id"))
438 
      pkgInfoHash.Add "is_deployable", (rsTemp.Fields("is_deployable"))
 438 
      pkgInfoHash.Add "is_deployable", (rsTemp.Fields("is_deployable"))
439 
      pkgInfoHash.Add "sbom_priority", (rsTemp.Fields("sbom_priority"))
 439 
      pkgInfoHash.Add "sbom_priority", (rsTemp.Fields("sbom_priority"))
440 
      pkgInfoHash.Add "ripple_field", (rsTemp.Fields("ripple_field"))
 440 
      pkgInfoHash.Add "ripple_field", (rsTemp.Fields("ripple_field"))
441 
 
 - 
 
442 
   End If
 441 
   End If
443 
 
 442 
 
- 
 
 443 
   If isaRelease Then
- 
 
 444 
      '-- Find if package is editable in this project
- 
 
 445 
      OraDatabase.ExecuteSQL "BEGIN  :RETURN_NUMBER := CAN_EDIT_PKG_IN_PROJECT( :PV_ID, :RTAG_ID );  END;"
- 
 
 446 
      pkgInfoHash.Add "can_edit_in_project", CStr( OraDatabase.Parameters("RETURN_NUMBER").Value )
- 
 
 447 
 
- 
 
 448 
       '-- Get Package Release Details
- 
 
 449 
       Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageReleaseDetails.sql"), cint(0))
- 
 
 450 
 
- 
 
 451 
       If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
- 
 
 452 
          pkgInfoHash.Add "insert_stamp", (rsTemp.Fields("insert_stamp"))
- 
 
 453 
          pkgInfoHash.Add "insertor", (rsTemp.Fields("insertor"))
- 
 
 454 
          pkgInfoHash.Add "insertor_email", (rsTemp.Fields("insertor_email"))
- 
 
 455 
          pkgInfoHash.Add "used_count", (rsTemp.Fields("used_count"))
- 
 
 456 
 
- 
 
 457 
          pkgInfoHash.Item ("base_view_id") = (rsTemp.Fields("base_view_id"))
- 
 
 458 
          pkgInfoHash.Item ("pkg_state") = (rsTemp.Fields("pkg_state"))
- 
 
 459 
          pkgInfoHash.Item ("deprecated_state") = (rsTemp.Fields("deprecated_state"))
- 
 
 460 
          pkgInfoHash.Item ("product_state") = (rsTemp.Fields("product_state"))
- 
 
 461 
 
- 
 
 462 
          pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
- 
 
 463 
          pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
- 
 
 464 
          pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
- 
 
 465 
          pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
- 
 
 466 
       End If
444 
 
 467 
 
445 
   '-- Find if package is editable in this project
 - 
 
446 
   OraDatabase.ExecuteSQL "BEGIN  :RETURN_NUMBER := CAN_EDIT_PKG_IN_PROJECT( :PV_ID, :RTAG_ID );  END;"
 - 
 
447 
   pkgInfoHash.Add "can_edit_in_project", CStr( OraDatabase.Parameters("RETURN_NUMBER").Value )
 - 
 
448 
 
 - 
 
449 
 
 - 
 
450 
   '/* Get Package Release Details */
 - 
 
451 
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageReleaseDetails.sql"), cint(0))
 - 
 
452 
 
 - 
 
453 
 
 - 
 
454 
 
 - 
 
455 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 - 
 
456 
      pkgInfoHash.Item ("base_view_id") = (rsTemp.Fields("base_view_id"))
 - 
 
457 
      pkgInfoHash.Add "insert_stamp", (rsTemp.Fields("insert_stamp"))
 - 
 
458 
      pkgInfoHash.Add "insertor", (rsTemp.Fields("insertor"))
 - 
 
459 
      pkgInfoHash.Add "insertor_email", (rsTemp.Fields("insertor_email"))
 - 
 
460 
      pkgInfoHash.Item ("pkg_state") = (rsTemp.Fields("pkg_state"))
 - 
 
461 
      pkgInfoHash.Item ("deprecated_state") = (rsTemp.Fields("deprecated_state"))
 - 
 
462 
      pkgInfoHash.Item ("product_state") = (rsTemp.Fields("product_state"))
 - 
 
463 
 
 - 
 
464 
      'AND  (rsTemp("used_count") = 0)  _
 - 
 
465 
 
 - 
 
466 
      If      (pkgInfoHash.Item ("dlocked") = "Y") _
 468 
       If      (pkgInfoHash.Item ("dlocked") = "Y") _
467 
         AND  (pkgInfoHash.Item ("build_type") = "M") _
 469 
         AND  (pkgInfoHash.Item ("build_type") = "M") _
468 
         AND  (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
 470 
         AND  (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
469 
         AND  (pkgInfoHash.Item("can_edit_in_project") = "1" ) _
 471 
         AND  (pkgInfoHash.Item("can_edit_in_project") = "1" ) _
470 
      Then
 472 
      Then
471 
 
 - 
 
472 
         pkgInfoHash.Item ("can_unofficial") = "true"
 473 
         pkgInfoHash.Item ("can_unofficial") = "true"
473 
      End If
 474 
      End If
474 
 
 475 
 
475 
   Else
 476 
   Else
476 
 
 477 
 
477 
      If (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) Then
 478 
      If (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) Then
478 
         ' Must be not older then a day
 479 
         ' Must be not older then a day
479 
         If (pkgInfoHash.Item ("dlocked") = "A")  OR   NOT IsNull(pkgInfoHash.Item("is_patch")) Then
 480 
         If (pkgInfoHash.Item ("dlocked") = "A")  OR   NOT IsNull(pkgInfoHash.Item("is_patch")) Then
480 
            pkgInfoHash.Item ("can_unofficial") = "true"
 481 
            pkgInfoHash.Item ("can_unofficial") = "true"
481 
 
 - 
 
482 
         End If
 482 
         End If
483 
 
 - 
 
484 
      End If
 483 
      End If
485 
 
 484 
 
486 
   End If
 485 
   End If
487 
 
 486 
 
488 
 
 - 
 
489 
   '/* Get Patch Parent */
 487 
   '-- Get Patch Parent
490 
   If pkgInfoHash.Item ("is_patch") = "Y" Then
 488 
   If pkgInfoHash.Item ("is_patch") = "Y" Then
491 
      Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PatchParent.sql"), cint(0))
 489 
      Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PatchParent.sql"), cint(0))
492 
 
 490 
 
493 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 491 
      If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
494 
         pkgInfoHash.Add "patch_parent_id", (rsTemp.Fields("pv_id"))
 492 
         pkgInfoHash.Add "patch_parent_id", (rsTemp.Fields("pv_id"))
Line 520... Line 518...
520 
     pkgInfoHash.Add "is_released", rsTemp.RecordCount <> 0
 518 
     pkgInfoHash.Add "is_released", rsTemp.RecordCount <> 0
521 
   End If
 519 
   End If
522 
 
 520 
 
523 
   pkgInfoHash.Add "is_excluded", False
 521 
   pkgInfoHash.Add "is_excluded", False
524 
   pkgInfoHash.Add "has_build_failure", False
 522 
   pkgInfoHash.Add "has_build_failure", False
- 
 
 523 
 
525 
   ' check if package is excluded from build
 524 
   ' check if package is excluded from build
526 
   If Not ((NNrtag = "") or (IsNull(NNrtag))) Then
 525 
   If Not ((NNrtag = "") or (IsNull(NNrtag))) Then
527 
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT dnr.pv_id,dnr.root_file FROM do_not_ripple dnr WHERE dnr.rtag_id = " & NNrtag & " AND dnr.pv_id = " & SSpv_id, cint(0))
 526 
     Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT dnr.pv_id,dnr.root_file FROM do_not_ripple dnr WHERE dnr.rtag_id = " & NNrtag & " AND dnr.pv_id = " & SSpv_id, cint(0))
528 
     If rsTemp.RecordCount <> 0 Then
 527 
     If rsTemp.RecordCount <> 0 Then
529 
       pkgInfoHash("is_excluded") = True
 528 
       pkgInfoHash("is_excluded") = True
Line 532... Line 531...
532 
   End If
 531 
   End If
533 
 
 532 
 
534 
   rsTemp.Close
 533 
   rsTemp.Close
535 
   Set rsTemp = nothing
 534 
   Set rsTemp = nothing
536 
 
 535 
 
537 
 
 - 
 
538 
End Sub
 536 
End Sub
539 
'-----------------------------------------------------------------------------------------------------------------------------
 537 
'-----------------------------------------------------------------------------------------------------------------------------
540 
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
 538 
Sub Get_Pkg_Short_Info( SSparPv_id, SSpkgID, SSpkgName, SSpkgVersion, SSsrc_path, SSpkgDesc, BBdlocked )
541 
   Dim rsTemp, Query_String
 539 
   Dim rsTemp, Query_String
542 
   If IsEmpty(SSparPv_id) Then Exit Sub
 540 
   If IsEmpty(SSparPv_id) Then Exit Sub