Subversion Repositories DevTools

Rev

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

Rev 6827 Rev 6873
Line 10... Line 10...
10 
'       Populates biQry
 10 
'       Populates biQry
11 
Sub getBuildInstances
 11 
Sub getBuildInstances
12 
   Dim query
 12 
   Dim query
13 
   query = _
 13 
   query = _
14 
        "select bi.BUILD_ID, bi.PV_ID, bi.RTAG_ID,pv.pkg_id," &_
 14 
        "select bi.BUILD_ID, bi.PV_ID, bi.RTAG_ID,pv.pkg_id," &_
15 
        "  SUBSTR(pj.PROJ_NAME, 0, 60) as PROJ_NAME, " &_
 15 
        "  SUBSTR(NVL(pj.PROJ_NAME,'-Deleted-'), 0, 60) as PROJ_NAME, " &_
16 
        "  pj.PROJ_ID, " &_
 16 
        "  pj.PROJ_ID, " &_
17 
        "  SUBSTR(rt.RTAG_NAME, 0, 60) as RTAG_NAME, " &_
 17 
        "  SUBSTR(NVL(rt.RTAG_NAME,'-Deleted-'), 0, 60) as RTAG_NAME, " &_
18 
        "  TO_CHAR(bi.TIMESTAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as TIMESTAMP, " &_
 18 
        "  TO_CHAR(bi.TIMESTAMP, 'Dy DD-Mon-YYYY HH24:MI:SS') as TIMESTAMP, " &_
19 
        "  DECODE(bi.reason, 'N', 'New Version', 'R', 'Ripple', 'T', 'Test', 'P', 'Restored', 'Unknown') as REASON," &_
 19 
        "  DECODE(bi.reason, 'N', 'New Version', 'R', 'Ripple', 'T', 'Test', 'P', 'Restored', 'Unknown') as REASON," &_
20 
        "  DECODE(bi.state, 'B', 'Buiding', 'C', 'Complete', 'E', 'Error', 'S', 'SysErr', 'Unknown') as STATE"  &_
 20 
        "  DECODE(bi.state, 'B', 'Buiding', 'C', 'Complete', 'E', 'Error', 'S', 'SysErr', 'Unknown') as STATE"  &_
21 
        " from BUILD_INSTANCES bi, " &_
 21 
        " from BUILD_INSTANCES bi, " &_
22 
        "     projects pj, " &_
 22 
        "     projects pj, " &_
23 
        "     RELEASE_TAGS rt, " &_
 23 
        "     RELEASE_TAGS rt, " &_
24 
        "     packages p, " &_
 24 
        "     packages p, " &_
25 
        "     PACKAGE_VERSIONS pv" &_
 25 
        "     PACKAGE_VERSIONS pv" &_
26 
        " where bi.PV_ID = pv.pv_id " &_
 26 
        " where bi.PV_ID = pv.pv_id " &_
27 
        "  and pv.PKG_ID = p.PKG_ID" &_
 27 
        "  and pv.PKG_ID = p.PKG_ID" &_
28 
        "  and bi.RTAG_ID = rt.RTAG_ID" &_
 28 
        "  and bi.RTAG_ID = rt.RTAG_ID(+)" &_
29 
        "  and rt.proj_id = pj.proj_id" &_
 29 
        "  and rt.proj_id = pj.proj_id(+)" &_
30 
        "  and bi.PV_ID = :PV_ID" &_
 30 
        "  and bi.PV_ID = :PV_ID" &_
31 
        " order by bi.BUILD_ID desc"
 31 
        " order by bi.BUILD_ID desc"
32 
 
 32 
 
33 
   Set biQry = nothing
 33 
   Set biQry = nothing
34 
 
 34