Subversion Repositories DevTools

Rev

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

Rev 4756 Rev 4764
Line 461... Line 461...
461
 
461
 
462
          pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
462
          pkgInfoHash.Add "proj_id", (rsTemp.Fields("proj_id"))
463
          pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
463
          pkgInfoHash.Add "rtag_id", (rsTemp.Fields("rtag_id"))
464
          pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
464
          pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
465
          pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
465
          pkgInfoHash.Add "product_state_used", (rsTemp.Fields("product_state_used"))
-
 
466
       Else
-
 
467
        ' -- Package Version is not a member of the specified release
-
 
468
 
-
 
469
        pkgInfoHash.Item ("notInRelease") = true
-
 
470
 
-
 
471
        ' Get Basic Release and Project Details
-
 
472
        Query_String = " select pj.PROJ_ID, rt.RTAG_ID,rt.rtag_name " &_
-
 
473
                       " from projects pj, release_tags rt" &_
-
 
474
                       " where rt.rtag_id=:RTAG_ID" &_
-
 
475
                       " and rt.PROJ_ID = pj.PROJ_ID"
-
 
476
 
-
 
477
        Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
-
 
478
 
-
 
479
        If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
-
 
480
            pkgInfoHash.Add "proj_id",   (rsTemp.Fields("proj_id"))
-
 
481
        	pkgInfoHash.Add "rtag_id",   (rsTemp.Fields("rtag_id"))
-
 
482
        	pkgInfoHash.Add "rtag_name", (rsTemp.Fields("rtag_name"))
-
 
483
        End If
-
 
484
 
466
       End If
485
       End If
467
 
486
 
468
       If      (pkgInfoHash.Item ("dlocked") = "Y") _
487
       If      (pkgInfoHash.Item ("dlocked") = "Y") _
469
         AND  (pkgInfoHash.Item ("build_type") = "M") _
488
         AND  (pkgInfoHash.Item ("build_type") = "M") _
470
         AND  (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _
489
         AND  (CDate( FormatDateTime(pkgInfoHash.Item ("modified_stamp"), 2) ) = Date) _