Subversion Repositories DevTools

Rev

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

Rev 5632 Rev 5670
Line 179... Line 179...
179 
'--------------------------------------------------------------------------------------------------------------------------
 179 
'--------------------------------------------------------------------------------------------------------------------------
180 
Function GetLastBuildAge( rtagid)
 180 
Function GetLastBuildAge( rtagid)
181 
   Dim  query_string, rsQry
 181 
   Dim  query_string, rsQry
182 
       query_string = "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta," &_
 182 
       query_string = "SELECT TRUNC (86400*(SYSDATE - rl.LAST_BUILD)) as delta," &_
183 
                      "       TO_CHAR(rl.LAST_BUILD, 'DD-Mon-YYYY') as last_build," &_
 183 
                      "       TO_CHAR(rl.LAST_BUILD, 'DD-Mon-YYYY') as last_build," &_
184 
                      "       TO_CHAR(rl.LAST_BUILD, 'HH:MM:SS PM') as last_build_hours," &_
 184 
                      "       TO_CHAR(rl.LAST_BUILD, 'HH:MI:SS PM') as last_build_hours," &_
185 
                      "       TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days" &_
 185 
                      "       TRUNC (SYSDATE - rl.LAST_BUILD) as last_build_days" &_
186 
                      " FROM RELEASE_CONFIG rc, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm " &_
 186 
                      " FROM RELEASE_CONFIG rc, RUN_LEVEL rl, BUILD_MACHINE_CONFIG bm " &_
187 
                      " WHERE rc.RTAG_ID =" &rtagid &_
 187 
                      " WHERE rc.RTAG_ID =" &rtagid &_
188 
                      "   AND rc.bmcon_id is not null" &_
 188 
                      "   AND rc.bmcon_id is not null" &_
189 
                      "   AND rl.RCON_ID = rc.RCON_ID" &_
 189 
                      "   AND rl.RCON_ID = rc.RCON_ID" &_