Subversion Repositories DevTools

Rev

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

Rev 6694 Rev 6770
Line 1406... Line 1406...
1406 
   End Select
 1406 
   End Select
1407 
 
 1407 
 
1408 
End Function
 1408 
End Function
1409 
'-----------------------------------------------------------------------------------------------------------------------------
 1409 
'-----------------------------------------------------------------------------------------------------------------------------
1410 
Function Title (rtagId)
 1410 
Function Title (rtagId)
- 
 
 1411 
   Dim rsQry
1411 
 
 1412 
 
1412 
   If rtagId = "" Then
 1413 
   If rtagId = "" Then
1413 
      Title = "Release Manager"
 1414 
      Title = "Release Manager"
1414 
   Else
 1415 
   Else
1415 
      Set rsQry = OraDatabase.DbCreateDynaset( "SELECT RT.RTAG_NAME, P.PROJ_NAME FROM PROJECTS P, RELEASE_TAGS RT WHERE RT.PROJ_ID = P.PROJ_ID AND RT.RTAG_ID="& rtagId, ORADYN_DEFAULT )
 1416 
      Set rsQry = OraDatabase.DbCreateDynaset( "SELECT RT.RTAG_NAME, P.PROJ_NAME FROM PROJECTS P, RELEASE_TAGS RT WHERE RT.PROJ_ID = P.PROJ_ID AND RT.RTAG_ID="& rtagId, ORADYN_DEFAULT )