Subversion Repositories DevTools

Rev

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

Rev 2 Rev 5299
Line 22... Line 22...
22 
'------------ VARIABLE DEFINITION -------------
 22 
'------------ VARIABLE DEFINITION -------------
23 
Dim rsQry
 23 
Dim rsQry
24 
Dim objBtnControl
 24 
Dim objBtnControl
25 
Dim aTabBtnsDef
 25 
Dim aTabBtnsDef
26 
'------------ CONSTANTS DECLARATION -----------
 26 
'------------ CONSTANTS DECLARATION -----------
27 
Const LIMG_DISK = "<img src='images/i_disk.gif' width='16' height='16' hspace='4' border='0' align='absmiddle'>"
 - 
 
28 
'------------ VARIABLE INIT -------------------
 27 
'------------ VARIABLE INIT -------------------
29 
Set objBtnControl = New ActionButtonControl
 28 
Set objBtnControl = New ActionButtonControl
30 
'------------ CONDITIONS ----------------------
 29 
'------------ CONDITIONS ----------------------
31 
'----------------------------------------------
 30 
'----------------------------------------------
32 
%>
 31 
%>
Line 78... Line 77...
78 
              <td nowrap class="body_txt">
 77 
              <td nowrap class="body_txt">
79 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
 78 
			    <!-- BUTTONS CONTROL +++++++++++++++++++ -->
80 
				<%
 79 
				<%
81 
				'-- Define Action buttons on this tab
 80 
				'-- Define Action buttons on this tab
82 
				aTabBtnsDef = Array("btnNewApplication", "btnRemoveApplication" )
 81 
				aTabBtnsDef = Array("btnNewApplication", "btnRemoveApplication" )
- 
 
 82 
				If  NOT canActionControl("canCreateApplication") Then objBtnControl.AllActive = "N"
83
83
84 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
 84 
				Call LoadTabActionButtons ( aTabBtnsDef, objBtnControl )
85
85
86 
				Call objBtnControl.Render( aTabBtnsDef )
 86 
				Call objBtnControl.Render( aTabBtnsDef )
87 
				%>
 87 
				%>