Subversion Repositories DevTools

Rev

Rev 6579 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 6579 Rev 6709
Line 110... Line 110...
110 
            <td nowrap width="100%" align="right" class="form_step"></td>
 110 
            <td nowrap width="100%" align="right" class="form_step"></td>
111 
          </tr>
 111 
          </tr>
112 
          <tr>
 112 
          <tr>
113 
            <td colspan="2" width="1%" nowrap class="form_field">
 113 
            <td colspan="2" width="1%" nowrap class="form_field">
114 
              <div style="min-height:300px;max-height:500px;overflow:auto;">
 114 
              <div style="min-height:300px;max-height:500px;overflow:auto;">
115 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 115 
          <table id="packagelist" width="100%" border="0" cellspacing="1" cellpadding="2">
- 
 
 116 
            <thead>
116 
                <tr>
 117 
              <tr>
117 
                  <td nowrap width="1%" class="form_field  form_field_hdr">&nbsp;</td>
 118 
                <th nowrap width="1%" class="form_field  form_field_hdr">&nbsp;</th>
118 
                  <td nowrap width="100%" class="form_field form_field_hdr">Package Name</td>
 119 
                <th nowrap width="100%" class="form_field form_field_hdr">Package Name</th>
119 
                </tr>
 120 
              </tr>
- 
 
 121 
            </thead>
- 
 
 122 
            <tbody>
120 
                <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_All_Pkg_Names, cint(0))
 123 
            <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_All_Pkg_Names, cint(0))
121 
                  Dim dataArray, row, col, arraySize
 124 
              Dim dataArray, row, col, arraySize
122 
				  If rsTemp.RecordCount > 0 Then
 125 
              If rsTemp.RecordCount > 0 Then
123 
                  dataArray = rsTemp.GetRows()
 126 
              dataArray = rsTemp.GetRows()
124 
                  arraySize = Ubound (dataArray, 2)
 127 
              arraySize = Ubound (dataArray, 2)
125 
				  For row = 0 To arraySize
 128 
              For row = 0 To arraySize
126 
                    Dim pkgId: pkgId = dataArray(0, row)
 129 
                Dim pkgId: pkgId = dataArray(0, row)
127 
                    Dim pkgName: pkgName = dataArray(1, row)
130 
                Dim pkgName: pkgName = dataArray(1, row)
128 
                %>
 131 
            %>
129 
                <tr>
 132 
            <tr>
130 
                  <td nowrap class="form_item_grey">
 133 
              <td nowrap class="form_item_grey">
131 
                    <input type="checkbox" name="FRpkginc" value="<%=pkgId%>"
 134 
                <input type="checkbox" name="FRpkginc" value="<%=pkgId%>"
132 
                        <%If viewdefHash.Exists (Cstr(pkgId)) Then Response.write "checked"%>>
 135 
                    <%If viewdefHash.Exists (Cstr(pkgId)) Then Response.write "checked"%>>
133 
                  </td>
 136 
              </td>
134 
                  <td class="form_item_grey"><%=pkgName%></td>
 137 
              <td class="form_item_grey"><%=pkgName%></td>
135 
                </tr>
 138 
            </tr>
136 
                <%Next%>
 139 
            <%Next%>
137 
                <%Else%>
 140 
            <%Else%>
138 
				<tr>
 141 
            <tr>
139 
                  <td nowrap class="form_item_grey"></td>
 142 
              <td nowrap class="form_item_grey"></td>
140 
                  <td class=" form_item_grey err_alert">NO PACKAGES FOUND!</td>
 143 
              <td class=" form_item_grey err_alert">NO PACKAGES FOUND!</td>
141 
                </tr>
 144 
            </tr>
142 
				<%End If%>
 145 
            <%End If%>
- 
 
 146 
            </tbody>
143 
              </table>
 147 
          </table>
144 
              </div>
 148 
              </div>
145 
            </td>
 149 
            </td>
146 
          </tr>
 150 
          </tr>
147 
        </table>
 151 
        </table>
148 
      </td>
 152 
      </td>