Subversion Repositories DevTools

Rev

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

Rev 6373 Rev 6374
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
Option explicit
 3 
Option explicit
4 
Response.Expires = 0	' always load the page, dont store
 4 
Response.Expires = 0	' always load the page, dont store
- 
 
 5 
Response.Buffer = TRUE
5 
%>
 6 
%>
6 
<%
 7 
<%
7 
'=====================================================
 8 
'=====================================================
8 
'					Edit Personal View
 9 
'					Edit Personal View
9 
'=====================================================
 10 
'=====================================================
Line 32... Line 33...
32 
parView_id = QStrPar("FRview_id")
 33 
parView_id = QStrPar("FRview_id")
33 
'----------------------------------------------
 34 
'----------------------------------------------
34 
%>
 35 
%>
35 
<%
 36 
<%
36 
Function Get_All_Pkg_Names
 37 
Function Get_All_Pkg_Names
37 
	Get_All_Pkg_Names = " SELECT pkg_id, pkg_name FROM packages WHERE pkg_id > 0 ORDER BY UPPER(pkg_name) ASC"
 38 
	Get_All_Pkg_Names = " SELECT pkg_id, pkg_name FROM packages WHERE pkg_id > 0  ORDER BY UPPER(pkg_name) ASC"
38 
End Function
 39 
End Function
39 
 
 40 
 
40 
Sub Populate_viewdefHash ( NNview_id,  HHviewdefHash )
 41 
Sub Populate_viewdefHash ( NNview_id,  HHviewdefHash )
41 
	Dim rsTemp, Query_String
 42 
	Dim rsTemp, Query_String
42 
	Query_String = _
 43 
	Query_String = _
Line 94... Line 95...
94 
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
 95 
  <table width="100%" border="0" cellspacing="0" cellpadding="2">
95 
    <tr>
 96 
    <tr>
96 
      <td valign="top" nowrap colspan="3" class="wform_ttl">
 97 
      <td valign="top" nowrap colspan="3" class="wform_ttl">
97 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
 98 
        <table width="100%" border="0" cellspacing="1" cellpadding="2">
98 
          <tr>
 99 
          <tr>
99 
            <td colspan="2" width="1%" nowrap class="form_field" background="images/bg_form_lightbluedark.gif">
 100 
            <td colspan="2" width="1%" nowrap class="form_field form_field_hdr">
100 
              View Name</td>
 101 
              View Name</td>
101 
          </tr>
 102 
          </tr>
102 
          <tr>
 103 
          <tr>
103 
            <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif">
 104 
            <td colspan="2" width="1%" nowrap class="form_item_grey">
104 
              <input type="text" name="FRviewname" maxlength="30" class="form_item" value="<%=viewinfoHash.Item("view_name")%>">&nbsp;
 105 
              <input type="text" name="FRviewname" maxlength="30" class="form_item" value="<%=viewinfoHash.Item("view_name")%>">&nbsp;
105 
              <input type="checkbox" name="FRpubread" value="Y" <%If CStr(viewinfoHash.Item("public_read")) = "Y" Then Response.write "checked"%>><span class="form_item">public read</span><%=Quick_Help("pubread")%></td>
 106 
              <input type="checkbox" name="FRpubread" value="Y" <%If CStr(viewinfoHash.Item("public_read")) = "Y" Then Response.write "checked"%>><span class="form_item">public read</span><%=Quick_Help("pubread")%></td>
106 
          </tr>
 107 
          </tr>
107 
          <tr>
 108 
          <tr>
108 
            <td width="1%" nowrap class="form_group" valign="bottom"></td>
 109 
            <td width="1%" nowrap class="form_group" valign="bottom"></td>
Line 111... Line 112...
111 
          <tr>
 112 
          <tr>
112 
            <td colspan="2" width="1%" nowrap class="form_field">
 113 
            <td colspan="2" width="1%" nowrap class="form_field">
113 
              <div style="min-height:300px;max-height:500px;overflow:auto;">
 114 
              <div style="min-height:300px;max-height:500px;overflow:auto;">
114 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
 115 
              <table width="100%" border="0" cellspacing="1" cellpadding="2">
115 
                <tr>
 116 
                <tr>
116 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="1%" class="form_field">&nbsp;</td>
 117 
                  <td nowrap width="1%" class="form_field  form_field_hdr">&nbsp;</td>
117 
                  <td background="images/bg_form_lightbluedark.gif" nowrap width="100%" class="form_field">Package Name</td>
 118 
                  <td nowrap width="100%" class="form_field form_field_hdr">Package Name</td>
118 
                </tr>
 119 
                </tr>
119 
                <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_All_Pkg_Names, cint(0))
 120 
                <%Set rsTemp = OraDatabase.DbCreateDynaset( Get_All_Pkg_Names, cint(0))
120 
                  Dim dataArray, row, col, arraySize
 121 
                  Dim dataArray, row, col, arraySize
- 
 
 122 
				  If rsTemp.RecordCount > 0 Then
121 
                  dataArray = rsTemp.GetRows()
 123 
                  dataArray = rsTemp.GetRows()
122 
                  arraySize = Ubound (dataArray, 2)
 124 
                  arraySize = Ubound (dataArray, 2)
123 
				  For row = 0 To arraySize
 125 
				  For row = 0 To arraySize
124 
                    Dim pkgId: pkgId = dataArray(0, row)
 126 
                    Dim pkgId: pkgId = dataArray(0, row)
125 
                    Dim pkgName: pkgName = dataArray(1, row)
127 
                    Dim pkgName: pkgName = dataArray(1, row)
126 
                %>
 128 
                %>
127 
                <tr>
 129 
                <tr>
128 
                  <td background="images/bg_form_lightgray.gif" nowrap class="form_item">
 130 
                  <td nowrap class="form_item_grey">
129 
                    <input type="checkbox" name="FRpkginc" value="<%=pkgId%>"
 131 
                    <input type="checkbox" name="FRpkginc" value="<%=pkgId%>"
130 
                        <%If viewdefHash.Exists (Cstr(pkgId)) Then Response.write "checked"%>>
 132 
                        <%If viewdefHash.Exists (Cstr(pkgId)) Then Response.write "checked"%>>
131 
                  </td>
 133 
                  </td>
132 
                  <td background="images/bg_form_lightgray.gif" class="form_item"><%=pkgName%></td>
 134 
                  <td class="form_item_grey"><%=pkgName%></td>
133 
                </tr>
 135 
                </tr>
134 
                <%Next%>
 136 
                <%Next%>
135 
				<%If rsTemp.RecordCount < 1 Then%>
 137 
                <%Else%>
136 
				<tr>
 138 
				<tr>
137 
                  <td background="images/bg_form_lightgray.gif" nowrap class="form_item"></td>
 139 
                  <td nowrap class="form_item_grey"></td>
138 
                  <td background="images/bg_form_lightgray.gif" class="err_alert">NO PACKAGES FOUND!</td>
 140 
                  <td class=" form_item_grey err_alert">NO PACKAGES FOUND!</td>
139 
                </tr>
 141 
                </tr>
140 
				<%End If%>
 142 
				<%End If%>
141 
              </table>
 143 
              </table>
142 
              </div>
 144 
              </div>
143 
            </td>
 145 
            </td>