Subversion Repositories DevTools

Rev

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

Rev 6579 Rev 6783
Line 41... Line 41...
41
Dim canEdit
41
Dim canEdit
42
Dim rowClass, rowBorder
42
Dim rowClass, rowBorder
43
'------------ Constants Declaration -----------
43
'------------ Constants Declaration -----------
44
Const LIMG_ROW_SUBMIT = "<input name='btn' type='image' src='icons/btn_row_submit.gif' width='53' height='16' hspace='2' border='0' title='Submit this entry'>"
44
Const LIMG_ROW_SUBMIT = "<input name='btn' type='image' src='icons/btn_row_submit.gif' width='53' height='16' hspace='2' border='0' title='Submit this entry'>"
45
Const LIMG_ROW_CANCEL = "<img src='icons/bi_cancel.gif' width='16' height='16' border='0' hspace='2' title='Cancel'>"
45
Const LIMG_ROW_CANCEL = "<img src='icons/bi_cancel.gif' width='16' height='16' border='0' hspace='2' title='Cancel'>"
46
Const LIMG_ROW_EDIT   = "<img src='icons/i_edit.gif' width='16' height='16' border='0' hspace='2' title='Edit'>"
-
 
47
'------------ Variable Init -------------------
46
'------------ Variable Init -------------------
48
Set objBtnControl = New ActionButtonControl
47
Set objBtnControl = New ActionButtonControl
49
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
48
SCRIPT_NAME = Mid(Request.ServerVariables("SCRIPT_NAME"), InStrRev(Request.ServerVariables("SCRIPT_NAME"), "/") + 1 )
50
parPkgId = Request("PkgId")
49
parPkgId = Request("PkgId")
51
editMode = "none"
50
editMode = "none"
Line 200... Line 199...
200
                    <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%>
199
                    <%If parPkgId = rsPkg.Fields("PKG_ID") THEN%>
201
                        <%=LIMG_ROW_SUBMIT %>
200
                        <%=LIMG_ROW_SUBMIT %>
202
                        <a href="<%=SCRIPT_NAME%>?pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_ROW_CANCEL%></a>
201
                        <a href="<%=SCRIPT_NAME%>?pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_ROW_CANCEL%></a>
203
                    <%ELSEIF parPkgId <> "" OR NOT canEdit THEN%>
202
                    <%ELSEIF parPkgId <> "" OR NOT canEdit THEN%>
204
                    <%ELSE%>
203
                    <%ELSE%>
205
                        <a href="<%=SCRIPT_NAME%>?action=edit&pkgId=<%=rsPkg.Fields("PKG_ID")%>&pkgFilter=<%=Request("pkgFilter")%>"><%=LIMG_ROW_EDIT %></a>
204
                        <a href="<%=SCRIPT_NAME%>?action=edit&pkgId=<%=rsPkg.Fields("PKG_ID")%>&pkgFilter=<%=Request("pkgFilter")%>"><span title='Edit'><%=LIMG_EDIT %></span></a>
206
                    <%END IF%>
205
                    <%END IF%>
207
                    </td>
206
                    </td>
208
	          </tr>
207
	          </tr>
209
	          <%
208
	          <%
210
                rsPkg.MoveNext
209
                rsPkg.MoveNext