Subversion Repositories DevTools

Rev

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

Rev 6701 Rev 6707
Line 93... Line 93...
93 
                    "    AND (pl.operation IS NULL " &_
 93 
                    "    AND (pl.operation IS NULL " &_
94 
                    "    OR pl.operation    = 'R') " &_
 94 
                    "    OR pl.operation    = 'R') " &_
95 
                    "    ) " &_
 95 
                    "    ) " &_
96 
                    "  ) " &_
 96 
                    "  ) " &_
97 
                    "SELECT DISTINCT pv.pv_id, " &_
 97 
                    "SELECT DISTINCT pv.pv_id, " &_
- 
 
 98 
                    "  pv.pkg_id, " &_
98 
                    "  pkg.pkg_name, " &_
 99 
                    "  pkg.pkg_name, " &_
99 
                    "  pv.pkg_version, " &_
 100 
                    "  pv.pkg_version, " &_
100 
                    "  pv.v_ext, " &_
 101 
                    "  pv.v_ext, " &_
101 
                    "  pv.pv_description, " &_
 102 
                    "  pv.pv_description, " &_
102 
                    "  lcs.name AS licenceName , " &_
 103 
                    "  lcs.name AS licenceName , " &_
Line 134... Line 135...
134 
'  DESCRIPTION
 135 
'  DESCRIPTION
135 
'     Constructs the HTML to render the rows of package names, versions and extensions, and licences
 136 
'     Constructs the HTML to render the rows of package names, versions and extensions, and licences
136 
'
 137 
'
137 
Sub PV_ID_ListHTML
 138 
Sub PV_ID_ListHTML
138 
   Dim rsQry
 139 
   Dim rsQry
- 
 
 140 
   Dim hRef
- 
 
 141 
   Dim pkgVer
139 
 
 142 
 
140 
   OraDatabase.Parameters.Add "RTAG_ID", parRtag_Id, ORAPARM_INPUT, ORATYPE_NUMBER
 143 
   OraDatabase.Parameters.Add "RTAG_ID", parRtag_Id, ORAPARM_INPUT, ORATYPE_NUMBER
141 
   Set rsQry = OraDatabase.DbCreateDynaset( release_licencing_query_string(parRtag_Id), cint(0) )
 144 
   Set rsQry = OraDatabase.DbCreateDynaset( release_licencing_query_string(parRtag_Id), cint(0) )
142 
   OraDatabase.Parameters.Remove "PV_ID"
 145 
   OraDatabase.Parameters.Remove "PV_ID"
143 
 
 146 
 
Line 146... Line 149...
146 
 
 149 
 
147 
      ' BEGIN ROW
 150 
      ' BEGIN ROW
148 
      Response.Write "<tr class='csvData body_rowg top'>"
 151 
      Response.Write "<tr class='csvData body_rowg top'>"
149 
 
 152 
 
150 
      ' PACKAGE NAME
 153 
      ' PACKAGE NAME
- 
 
 154 
      hRef = "view_by_version.asp?pkg_id=" & rsQry("pkg_id")
151 
      Response.Write "<td>"
 155 
      Response.Write "<td>"
152 
      Response.Write "<a href=dependencies.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtag_Id & ">" & rsQry("pkg_name") & "</a>"
 156 
      Response.Write "<a href=" & hRef & ">" & rsQry("pkg_name")&"</a>"
153 
      Response.Write "</td>"
 157 
      Response.Write "</td>"
154 
 
 158 
 
155 
      ' PACKAGE VERSION
 159 
      ' PACKAGE VERSION
- 
 
 160 
      hRef = "dependencies.asp?pv_id=" & rsQry("pv_id") & "&rtag_id=" & parRtag_Id
156 
      If IsNull(rsQry("v_ext")) Then
 161 
      If IsNull(rsQry("v_ext")) Then
157 
         Response.Write "<td>" & rsQry("pkg_version") & "</td>"
 162 
         pkgVer = rsQry("pkg_version")
158 
      Else
 163 
      Else
159 
         Response.Write "<td>" & Left(rsQry("pkg_version"), Len(rsQry("pkg_version")) - Len(rsQry("v_ext")) ) & "</td>"
 164 
         pkgVer = Left(rsQry("pkg_version"), Len(rsQry("pkg_version")) - Len(rsQry("v_ext")) )
160 
      End If
 165 
      End If
- 
 
 166 
      Response.Write "<td><a href=" & hRef & ">" & pkgVer & "</a></td>"
161 
 
 167 
 
162 
      ' PACKAGE EXTENSION
 168 
      ' PACKAGE EXTENSION
163 
      Response.Write "<td>" & rsQry("v_ext") & "</td>"
 169 
      Response.Write "<td>" & rsQry("v_ext") & "</td>"
164 
 
 170 
 
165 
      ' PACKAGE Short Description
 171 
      ' PACKAGE Short Description