Subversion Repositories DevTools

Rev

Rev 5846 | Rev 5899 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5846 Rev 5854
Line 544... Line 544...
544 
          If rsTemp.RecordCount < 1 Then
 544 
          If rsTemp.RecordCount < 1 Then
545 
               pkgInfoHash.Item ("notInRelease") = true
 545 
               pkgInfoHash.Item ("notInRelease") = true
546 
               '
 546 
               '
547 
               ' -- Determine related package that is in the release
 547 
               ' -- Determine related package that is in the release
548 
               '    Use pkg_id and v_ext to locate package
 548 
               '    Use pkg_id and v_ext to locate package
- 
 
 549 
               If pkgInfoHash.Item ("pkg_id") <> "" Then
549 
               Query_String = "SELECT pv.PV_ID" &_
 550 
                   Query_String = "SELECT pv.PV_ID" &_
550 
                              " FROM RELEASE_CONTENT rc, package_versions pv " &_
551 
                                  " FROM RELEASE_CONTENT rc, package_versions pv " &_
551 
                              " WHERE rc.rtag_id = :RTAG_ID" &_
 552 
                                  " WHERE rc.rtag_id = :RTAG_ID" &_
552 
                              " and rc.PV_ID = pv.pv_id" &_
 553 
                                  " and rc.PV_ID = pv.pv_id" &_
553 
                              " and pv.pkg_id = " & pkgInfoHash.Item ("pkg_id") &_
554 
                                  " and pv.pkg_id = " & pkgInfoHash.Item ("pkg_id") &_
554 
                              " and NVL(pv.v_ext,'') = NVL('"&pkgInfoHash.Item ("v_ext")&"', '')"
 555 
                                  " and NVL(pv.v_ext,'') = NVL('"&pkgInfoHash.Item ("v_ext")&"', '')"
555 
               Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
 556 
                   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
556 
               If rsTemp.RecordCount > 0 Then
 557 
                   If rsTemp.RecordCount > 0 Then
557 
                pkgInfoHash.Item ("pv_id_InRelease") = (rsTemp.Fields("pv_id"))
 558 
                    pkgInfoHash.Item ("pv_id_InRelease") = (rsTemp.Fields("pv_id"))
- 
 
 559 
                   End If
558 
               End If
 560 
               End If
559 
          End If
 561 
          End If
560 
 
 562 
 
561 
       End If
 563 
       End If
562 
 
 564