Subversion Repositories DevTools

Rev

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

Rev 6770 Rev 6774
Line 61... Line 61...
61 
        "    aa" &_
 61 
        "    aa" &_
62 
        " WHERE" &_
 62 
        " WHERE" &_
63 
        "    bs.BLAT_ID = br.BLAT_ID (+)" &_
 63 
        "    bs.BLAT_ID = br.BLAT_ID (+)" &_
64 
        "    AND br.rtag_id(+) = :RTAG_ID" &_
 64 
        "    AND br.rtag_id(+) = :RTAG_ID" &_
65 
        "    AND bs.BLAT_ID = aa.BLAT_ID (+)" &_
 65 
        "    AND bs.BLAT_ID = aa.BLAT_ID (+)" &_
66 
        "    AND (aa.BLAT_ID is NOT NULL OR br.BLAT_ID is NOT NULL OR bs.BLAT_FULL = 'Y')" &_
 66 
        "    AND (aa.BLAT_ID is NOT NULL OR br.BLAT_ID is NOT NULL OR bs.BLAT_FULL IN( 'P', 'E'))" &_
67 
        " ORDER BY" &_
 67 
        " ORDER BY" &_
68 
        "    upper(blat_display_name) ASC"
 68 
        "    upper(blat_display_name) ASC"
69 
 
 69 
 
70 
 
 70 
 
71 
   OraDatabase.Parameters.Add "RTAG_ID", DB_RTAG_ID, ORAPARM_INPUT, ORATYPE_NUMBER
 71 
   OraDatabase.Parameters.Add "RTAG_ID", DB_RTAG_ID, ORAPARM_INPUT, ORATYPE_NUMBER
Line 77... Line 77...
77 
      Dim btnText, btnClass, btnDisable, isaRelease, replicationMode
 77 
      Dim btnText, btnClass, btnDisable, isaRelease, replicationMode
78 
 
 78 
 
79 
      isaRelease = rsQry("inRelease") > 0
 79 
      isaRelease = rsQry("inRelease") > 0
80 
 
 80 
 
81 
      replicationMode = "Unknown"
 81 
      replicationMode = "Unknown"
82 
      If rsQry("blat_full") = "Y" Then
 82 
      If rsQry("blat_full") = "E" Then
- 
 
 83 
          replicationMode = "Entire Archive"
- 
 
 84 
      ElseIf rsQry("blat_full") = "P" Then
83 
          replicationMode = "Repository"
 85 
          replicationMode = "All Projects"
- 
 
 86 
      Else
84 
      ElseIf  rsQry("inProject") > 0 Then
 87 
        If  rsQry("inProject") > 0 Then
85 
          replicationMode = "Project"
 88 
            replicationMode = "Project"
86 
      ElseIf  rsQry("inRelease") > 0 Then
 89 
        ElseIf  rsQry("inRelease") > 0 Then
87 
          replicationMode = "Release"
 90 
            replicationMode = "Release"
- 
 
 91 
        End If
88 
      End If
 92 
      End If
89 
 
 93 
 
90 
      ' BEGIN ROW
 94 
      ' BEGIN ROW
91 
      html_string = html_string & "<tr data-server_id=""" & rsQry("BLAT_ID") & """>"
 95 
      html_string = html_string & "<tr data-server_id=""" & rsQry("BLAT_ID") & """>"
92 
 
 96