Subversion Repositories DevTools

Rev

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

Rev 4764 Rev 4767
Line 392... Line 392...
392 
 
 392 
 
393 
   OraDatabase.Parameters.Add "PV_ID",         SSpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
 393 
   OraDatabase.Parameters.Add "PV_ID",         SSpv_id,   ORAPARM_INPUT, ORATYPE_NUMBER
394 
   OraDatabase.Parameters.Add "RTAG_ID",       NNrtag,    ORAPARM_INPUT, ORATYPE_NUMBER
 394 
   OraDatabase.Parameters.Add "RTAG_ID",       NNrtag,    ORAPARM_INPUT, ORATYPE_NUMBER
395 
   OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,      ORAPARM_OUTPUT, ORATYPE_NUMBER
395 
   OraDatabase.Parameters.Add "RETURN_NUMBER", NULL,      ORAPARM_OUTPUT, ORATYPE_NUMBER
396 
 
 396 
 
- 
 
 397 
   '-- can_unofficial
- 
 
 398 
   '   Limits the ability to unrelease a package version
397 
   pkgInfoHash.Item ("can_unofficial") = "false"
 399 
   pkgInfoHash.Item ("can_unofficial") = "false"
398 
 
 400 
 
- 
 
 401 
   '--  can_edit_in_project
- 
 
 402 
   '    Property of the release, the user and the package
- 
 
 403 
   '    Limits the ability to add a package to a release
- 
 
 404 
   '
- 
 
 405 
   pkgInfoHash.Item ("can_edit_in_project") = "0"
- 
 
 406
399 
   '-- Get Package Details
 407 
   '-- Get Package Details
400 
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
 408 
   Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageDetails.sql"), cint(0))
401 
 
 409 
 
402 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 410 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
403 
      pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
 411 
      pkgInfoHash.Add "pv_id", (rsTemp.Fields("pv_id"))
Line 440... Line 448...
440 
      pkgInfoHash.Add "ripple_field", (rsTemp.Fields("ripple_field"))
 448 
      pkgInfoHash.Add "ripple_field", (rsTemp.Fields("ripple_field"))
441 
   End If
 449 
   End If
442 
 
 450 
 
443 
   If isaRelease Then
 451 
   If isaRelease Then
444 
      '-- Find if package is editable in this project
 452 
      '-- Find if package is editable in this project
- 
 
 453 
      '   Not editable if
- 
 
 454 
      '     Imported via a Reference Package
- 
 
 455 
      '     Release is not in Open or Restricted Mode
- 
 
 456 
      '     Project extenstion is project specific - and not within the allowed project
- 
 
 457 
      '
445 
      OraDatabase.ExecuteSQL "BEGIN  :RETURN_NUMBER := CAN_EDIT_PKG_IN_PROJECT( :PV_ID, :RTAG_ID );  END;"
 458 
      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 )
 459 
      pkgInfoHash.Item ("can_edit_in_project") = CStr( OraDatabase.Parameters("RETURN_NUMBER").Value )
447 
 
 460 
 
448 
       '-- Get Package Release Details
 461 
       '-- Get Package Release Details
449 
       Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageReleaseDetails.sql"), cint(0))
 462 
       Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery("PackageReleaseDetails.sql"), cint(0))
450 
 
 463 
 
451 
       If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 464 
       If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
Line 462... Line 475...
462 
          pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
 475 
          pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
463 
          pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
 476 
          pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
464 
          pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
 477 
          pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
465 
          pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
 478 
          pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
466 
       Else
 479 
       Else
467 
        ' -- Package Version is not a member of the specified release
 480 
          ' -- Package Version is not a member of the specified release
468 
 
 - 
 
469 
        pkgInfoHash.Item ("notInRelease") = true
 - 
 
470 
 
 - 
 
471 
        ' Get Basic Release and Project Details
 481 
          '    Get Basic Release and Project Details
472 
        Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
 482 
          Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
473 
                       " from projects pj, release_tags rt" &_
 483 
                         " from projects pj, release_tags rt" &_
474 
                       " where rt.rtag_id=:RTAG_ID" &_
 484 
                         " where rt.rtag_id=:RTAG_ID" &_
475 
                       " and rt.PROJ_ID = pj.PROJ_ID"
 485 
                         " and rt.PROJ_ID = pj.PROJ_ID"
476 
 
 486
477 
        Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 487 
          Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
478 
 
 488
479 
        If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
 489 
          If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
480 
            pkgInfoHash.Add "proj_id",   (rsTemp.Fields("proj_id"))
 490 
              pkgInfoHash.Add "proj_id",   (rsTemp.Fields("proj_id"))
481 
        	pkgInfoHash.Add "rtag_id",   (rsTemp.Fields("rtag_id"))
 491 
          	  pkgInfoHash.Add "rtag_id",   (rsTemp.Fields("rtag_id"))
482 
        	pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
 492 
          	  pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
- 
 
 493 
          End If
- 
 
 494 
 
- 
 
 495 
          ' -- Determine if package is a member of this release
- 
 
 496 
          '    Mark as Not in Release
- 
 
 497 
          Query_String = "select pv_id from work_in_progress where rtag_id=:RTAG_ID and pv_id=:PV_ID" &_
- 
 
 498 
                          " union" &_
- 
 
 499 
                          " select pv_id from planned where rtag_id=:RTAG_ID and pv_id=:PV_ID" &_
- 
 
 500 
                          " union" &_
- 
 
 501 
                          " select pv_id from RELEASE_CONTENT where rtag_id=:RTAG_ID and pv_id=:PV_ID"
- 
 
 502 
          Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
- 
 
 503 
          If rsTemp.RecordCount < 1 Then
- 
 
 504 
               pkgInfoHash.Item ("notInRelease") = true
483 
        End If
 505 
          End If
484 
 
 506 
 
485 
       End If
 507 
       End If
486 
 
 508 
 
487 
       If      (pkgInfoHash.Item ("dlocked") = "Y") _
 509 
       If     (pkgInfoHash.Item ("dlocked") = "Y") _
488 
         AND  (pkgInfoHash.Item ("build_type") = "M") _
 510 
         AND  (pkgInfoHash.Item ("build_type") = "M") _
489 
         AND  (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
 511 
         AND  (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
490 
         AND  (pkgInfoHash.Item("can_edit_in_project") = "1" ) _
 512 
         AND  (pkgInfoHash.Item("can_edit_in_project") = "1" ) _
491 
      Then
 513 
      Then
492 
         pkgInfoHash.Item ("can_unofficial") = "true"
 514 
         pkgInfoHash.Item ("can_unofficial") = "true"