Subversion Repositories DevTools

Rev

Rev 6770 | Rev 6788 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1
<%
2
'=====================================================
127 ghuddy 3
'               Action Buttons
119 ghuddy 4
'=====================================================
5983 dpurdie 5
Sub Action_Buttons ( SSwithTab )
6
    Call Action_Buttons_State(SSwithTab, TRUE) 
7
End Sub
8
 
9
Sub Action_Buttons_State ( SSwithTab, bState )
6786 dpurdie 10
   Dim isClosed, isSDK, isActive
5178 dpurdie 11
   isClosed = (releaseIsClosed(ReleaseMode))
6786 dpurdie 12
   isActive = TRUE
4084 dpurdie 13
   Select Case SSwithTab%>
127 ghuddy 14
   <%Case "Build Dependencies"%>
15
      <table width="10" border="0" cellspacing="10">
16
         <tr>
6786 dpurdie 17
            <%  isActive = NOT isClosed AND NOT pkgInfoHash.Item ("is_sdkpkg") AND ( (pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") OR criticalSectionIsEditable )
18
                BuildActionButton isActive, "Add", "Add dependency to the list.", _
19
                                         "src='images/i_add_deps.gif' width='22' height='25' align='absmiddle' border='0' hspace='3'", _
20
                                         "form_search_pkgs.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&add_type=" & enum_ADD_DEPENDENCIES
127 ghuddy 21
 
6786 dpurdie 22
                BuildActionButton isActive, "Edit", "Edit dependency list.", _
23
                                         "src='images/i_edit_deps.gif' width='23' height='24' align='absmiddle' border='0' hspace='3'", _
24
                                         "form_edit_deps.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id
127 ghuddy 25
 
6786 dpurdie 26
                BuildActionButton isActive, "Import", "Import dependency list from your build file.", _
27
                                         "src='images/i_import_on.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
28
                                         "form_update_"&Get_Devl_Environment&"_dependencies.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id
29
 
30
                BuildActionButton TRUE, "Export", "Export this dependency list to be used in your build file.", _
31
                                         "src='images/i_export_on.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
32
                                         "form_export_"&Get_Devl_Environment&"_dependencies.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id%>
127 ghuddy 33
         </tr>
34
      </table>
35
 
119 ghuddy 36
   <%Case "Runtime Dependencies"%>
127 ghuddy 37
         <table width="10" border="0" cellspacing="10">
38
            <tr>
6786 dpurdie 39
                <%isActive = IsNull(pkgInfoHash.Item ("is_patch")) AND NOT isClosed AND ((pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R") OR criticalSectionIsEditable)
40
                  BuildActionButton isActive, "Add", "Add runtime dependency to the list.", _
41
                                         "src='images/i_add_deps.gif' width='22' height='25' align='absmiddle' border='0' hspace='3'", _
42
                                         "form_search_pkgs.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id & "&add_type=" & enum_ADD_RUNTIME_DEPENDENCIES%>
127 ghuddy 43
            </tr>
44
         </table>
45
 
6786 dpurdie 46
   <%Case "Used By"%>
47
         <table width="10" border="0" cellspacing="10">
48
            <tr>
49
                <%isActive = IsNull(pkgInfoHash.Item ("is_patch"))
50
                  BuildActionButton isActive, "Show All", "Show the complete list packages that use this package", _
51
                                         "src='images/i_used_by_large.gif' width='22' height='25' align='absmiddle' border='0' hspace='3'", _
52
                                         "used_by_all.asp?pv_id=" & parPv_id & "&rtag_id=" & parRtag_id %>
53
            </tr>
54
         </table>
55
 
119 ghuddy 56
   <%Case "Patches"%>
127 ghuddy 57
      <table width="10" border="0" cellspacing="10">
58
         <tr>
5080 dpurdie 59
            <%If NOT isClosed AND NOT pkgInfoHash.Item ("is_sdkpkg") AND (pkgInfoHash.Item ("dlocked") = "Y") Then%>
127 ghuddy 60
               <td align="center" nowrap valign="bottom">
5590 dpurdie 61
                  <a href="javascript:;" onClick="MM_openVixIFrame('_wform_new_patch.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','New Patch')" class="abtnItem">
6786 dpurdie 62
                     <img src="images/i_add_patch.gif" width="23" height="25" align="absmiddle" border="0" hspace="3" title="Add a patch to this package.">
127 ghuddy 63
                     Add
64
                  </a>
65
               </td>
66
 
67
               <td align="center" nowrap valign="bottom">
5590 dpurdie 68
                  <a href="javascript:;" onClick="MM_openVixIFrame('_wform_obsolete_all_patches.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','Obsolete Patches')" class="abtnItem">
6786 dpurdie 69
                     <img src="images/abtn_obsolete_patch.gif" width="23" height="25" align="absmiddle" border="0" hspace="3" title="Obsolete patches in one go.">
127 ghuddy 70
                     Roll-up Obsolete Patches
71
                  </a>
72
               </td>
73
 
5061 dpurdie 74
               <%If canShowControlInProject("ReleasePatch") Then%>
127 ghuddy 75
                  <td align="center" nowrap valign="bottom">
5590 dpurdie 76
                     <a href="javascript:;" onClick="MM_openVixIFrame('_wform_make_release_bulk_patches.asp?pv_id=<%=parPv_id%>&rtag_id=<%=parRtag_id%>','Bulk Patch Release')" class="abtnItem">
6786 dpurdie 77
                        <img src="images/abtn_make_release_bulk_patches.gif" width="25" height="25" align="absmiddle" border="0" hspace="3" title="Make Release patches in one go.">
127 ghuddy 78
                        Make Release Bulk Patches
79
                     </a>
80
                  </td>
81
               <%End If%>
82
            <%End If%>
83
         </tr>
84
      </table>
85
 
119 ghuddy 86
   <%Case "Release Notes"%>
127 ghuddy 87
      <table width="10" border="0" cellspacing="10">
88
         <tr>
6786 dpurdie 89
            <%
90
                IsActive = (pkgInfoHash.Item ("dlocked") = "Y") AND (InStr(pkgInfoHash.Item ("release_notes_info"),"MSG:") < 1) AND NOT IsNull(pkgInfoHash.Item ("release_notes_info"))
91
                BuildActionButton isActive, "Download", "Download full release notes.", _
92
                                             "src='images/btn_download.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
93
                                             HTTP_PKG_ARCHIVE & pkgInfoHash.Item ("release_notes_info")
94
 
95
                IsActive = canActionControlInProject("EditCriticalInfoForLockedPackage") AND NOT isClosed AND ((pkgInfoHash.Item ("dlocked") = "Y") AND (pkgInfoHash.Item ("release_notes_info") <> enum_RELEASE_NOTES_NOT_FOUND_IN_ARCHIVE))
96
                BuildActionButton2I isActive, "Regenerate Notes", "Regenerate Release Notes.", _
97
                                             "src='images/i_sync_on.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
98
                                             "src='images/i_sync_off.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
99
                                             "fixed_issues.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"&resetNotes=1"%>
127 ghuddy 100
         </tr>
101
      </table>
102
 
119 ghuddy 103
   <%Case "Documentation"%>
127 ghuddy 104
      <table width="10" border="0" cellspacing="10">
105
         <tr>
6786 dpurdie 106
          <%
107
            IsActive = (NOT isClosed AND NOT isSDK) OR canActionControlInProject("EditCriticalInfoForLockedPackage") 
108
            BuildActionButtonClick isActive, "Import From Document Repository", "Import document details from ERG document repository.",FALSE, _
109
                                        "src='images/i_import_on.gif' width='22' height='22' align='absmiddle' border='0' hspace='3'", _
110
                                        "MM_openVixIFrame('_wform_import_docs.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"','Import Documents')"%>
127 ghuddy 111
         </tr>
112
      </table>
113
 
119 ghuddy 114
   <%Case "Add Process"%>
127 ghuddy 115
      <table width="10" border="0" cellspacing="10">
116
         <tr>
6786 dpurdie 117
            <%  isActive = NOT isClosed AND ((pkgInfoHash.Item ("dlocked") = "N") OR (pkgInfoHash.Item ("dlocked") = "R"))  
118
                BuildActionButtonClick isActive, "Add Process", "Insert processes associated with the package.",FALSE, _
119
                                        "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
120
                                        "MM_openVixIFrame('wAddProc.asp?pv_id="&parPv_id&"&rtag_id="&parRtag_id&"','Add Process')"%>
127 ghuddy 121
         </tr>
122
      </table>
119 ghuddy 123
 
127 ghuddy 124
   <%Case "Add GBE_MACHTYPE"%>
4029 dpurdie 125
      <table width="10" border="0" cellspacing="0">
127 ghuddy 126
         <tr>
6786 dpurdie 127
            <%BuildActionButtonClick bState, "Add", "Insert New GBE_MACHTYPE.",TRUE, _
128
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
129
                                     "MM_openVixIFrame('wAddMachtype.asp','Add Machine Type')"%>
127 ghuddy 130
         </tr>
131
      </table>
119 ghuddy 132
 
5122 dpurdie 133
   <%Case "Add GBE_BUILDSTANDARD"%>
134
      <table width="10" border="0" cellspacing="0">
135
         <tr>
6786 dpurdie 136
            <%BuildActionButtonClick bState, "Add", "Insert New Build Standard.",TRUE, _
137
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
138
                                     "MM_openVixIFrame('wAddBuildStandard.asp','Add Build Standard')"%>
5122 dpurdie 139
         </tr>
140
      </table>
141
 
142
 
4029 dpurdie 143
   <%Case "Add BM_NAME"%>
144
      <table width="10" border="0" cellspacing="0">
145
         <tr>
6786 dpurdie 146
            <%BuildActionButtonClick isActive, "Add", "Insert New BM_NAME.",TRUE, _
147
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
148
                                     "MM_openVixIFrame('wAddMachclass.asp','Add New Class of Build Machine')"%>
4029 dpurdie 149
         </tr>
150
      </table>
151
 
3959 dpurdie 152
   <%Case "Add Project Extension"%>
5983 dpurdie 153
      <table width="100%" border="0" cellspacing="0" ID="Table1">
3959 dpurdie 154
         <tr>
6786 dpurdie 155
            <%BuildActionButtonClick bState, "Add Project Extension", "Insert New Project Extension",TRUE, _
156
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
157
                                     "MM_openVixIFrame('wAddProjectExtension.asp','Add Project Extension')"%>
3959 dpurdie 158
         </tr>
159
      </table>
160
 
161 iaugusti 161
   <%Case "Add Build Machine"%>
4029 dpurdie 162
      <table width="10" border="0" cellspacing="0" ID="Table1">
161 iaugusti 163
         <tr>
6786 dpurdie 164
            <%BuildActionButtonClick bState, "Add Build Machine", "Insert New Build Machine",TRUE, _
165
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
166
                                     "MM_openVixIFrame('wAddBuildMachine.asp','Add Build Machine')"%>
161 iaugusti 167
         </tr>
168
      </table>
169
 
6770 dpurdie 170
   <%Case "Add Package Replica"%>
171
      <table width="10" border="0" cellspacing="0" ID="Table1">
172
         <tr>
6786 dpurdie 173
            <%BuildActionButtonClick bState, "Add Package Replica", "Insert New Package Replica.", TRUE, _
174
                                        "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
175
                                        "MM_openVixIFrame('wAddPkgReplica.asp','Add Package Replica')"%>
6770 dpurdie 176
         </tr>
177
      </table>
178
 
127 ghuddy 179
   <%Case "Add Licence"%>
5983 dpurdie 180
      <table width="100%" border="0" cellspacing="0">
127 ghuddy 181
         <tr>
6786 dpurdie 182
            <%BuildActionButtonClick bState, "Add Licence", "Insert New Licence",TRUE, _
183
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
184
                                     "MM_openVixIFrame('wAddLicence.asp','Add Licence')"%>
127 ghuddy 185
         </tr>
186
      </table>
187
 
5983 dpurdie 188
   <%Case "Add VCS"%>
189
      <table width="100%" border="0" cellspacing="0">
190
         <tr>
6786 dpurdie 191
            <%BuildActionButtonClick bState, "Add VCS", "Insert New VCS",TRUE, _
192
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
193
                                     "MM_openVixIFrame('wAddVCS.asp','Add New VCS')"%>
5983 dpurdie 194
         </tr>
195
      </table>
196
 
127 ghuddy 197
   <%Case "Add Daemon"%>
198
      <table width="10" border="0" cellspacing="10">
199
         <tr>
6786 dpurdie 200
            <%BuildActionButtonClick bState, "Add Daemon", "Insert New Daemon",TRUE, _
201
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
202
                                     "MM_openVixIFrame('wAddDaemon.asp?rtag_id="&parRtag_id&"','Add Build Daemon')"%>
127 ghuddy 203
         </tr>
204
      </table>
205
 
206
   <%Case "Add Schedule"%>
5123 dpurdie 207
      <table width="10" border="0" cellspacing="0">
127 ghuddy 208
         <tr>
6786 dpurdie 209
            <%BuildActionButtonClick bState, "Add Schedule", "Insert New Schedule",TRUE, _
210
                                     "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
211
                                     "MM_openVixIFrame('wAddSchedule.asp','Add a new Schedule')" %>
127 ghuddy 212
         </tr>
213
      </table>
214
 
215
   <%Case "Indefinite Pause"%>
5123 dpurdie 216
      <table width="10" border="0" cellspacing="0">
127 ghuddy 217
         <tr>
6786 dpurdie 218
            <%BuildActionButtonClick bState, "Set Indefinite Pause", "Indefinite Pause",TRUE, _
219
                                     "src='icons/tpause.gif' width='16' height='16' align='absmiddle' border='0' hspace='3'", _
220
                                     "location.href='_setInfinitePause.asp';" %>
127 ghuddy 221
         </tr>
222
      </table>
223
 
224
   <%Case "Resume"%>
5157 dpurdie 225
      <table width="10" border="0" cellspacing="0">
127 ghuddy 226
         <tr>
6786 dpurdie 227
            <%BuildActionButtonClick bState, "Set Resume", "Resume Processing",TRUE, _
228
                                     "src='icons/tplay.gif' width='16' height='16' align='absmiddle' border='0' hspace='3'", _
229
                                     "location.href='_setResume.asp';" %>
171 brianf 230
         </tr>
231
      </table>
5982 dpurdie 232
 
171 brianf 233
   <%Case "Daemon Start"%>
173 brianf 234
      <table border="0" cellspacing="0" cellpadding="0">
6786 dpurdie 235
         <!-- Daemon Start -->
171 brianf 236
         <tr>
173 brianf 237
            <td valign=top>
5623 dpurdie 238
               <img src="icons/tstopped.gif" width="16" height="16" border="0" vspace=2 hspace="5" title="Disabled">
173 brianf 239
            </td>
6786 dpurdie 240
            <%BuildActionButton bState, "", "Enable Daemon", _
241
                                     "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
242
                                     "_setDaemonResume.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName%>
127 ghuddy 243
 
6786 dpurdie 244
            <%BuildActionButton FALSE, "", "Pause Daemon", "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'",""%>
245
 
246
            <%BuildActionButton FALSE, "", "Disable Daemon", "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'",""%>
171 brianf 247
         </tr>
248
      </table>
249
 
127 ghuddy 250
   <%Case "Daemon Pause"%>
173 brianf 251
      <table border="0" cellspacing="0" cellpadding="0">
6786 dpurdie 252
         <!-- Daemon Pause -->
127 ghuddy 253
         <tr>
173 brianf 254
            <td valign=top>
5623 dpurdie 255
               <img src="icons/tplayed.gif" width="16" height="16" border="0" vspace=2 hspace="5" title="Enabled">
173 brianf 256
            </td>
6786 dpurdie 257
            <%BuildActionButton FALSE, "", "Enable Daemon", "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", ""%>
127 ghuddy 258
 
6786 dpurdie 259
            <%BuildActionButton bState, "", "Pause Daemon", _
260
                                     "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
261
                                     "_setDaemonPause.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName%>
262
 
263
            <%BuildActionButton bState, "", "Disable Daemon", _
264
                                     "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
265
                                     "_setDaemonDisable.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName%>
127 ghuddy 266
         </tr>
267
      </table>
268
 
269
   <%Case "Daemon Resume"%>
173 brianf 270
      <table border="0" cellspacing="0" cellpadding="0">
6786 dpurdie 271
         <!-- Daemon Resume -->
127 ghuddy 272
         <tr>
173 brianf 273
            <td valign=top>
5623 dpurdie 274
               <img src="icons/tpaused.gif" width="16" height="16" border="0" vspace=2 hspace="5" title="Paused">
173 brianf 275
            </td>
6786 dpurdie 276
            <%BuildActionButton bState, "", "Enable Daemon", _
277
                                     "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
278
                                     "_setDaemonResume.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName%>
127 ghuddy 279
 
6786 dpurdie 280
            <%BuildActionButton FALSE, "", "Pause Daemon", "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'",""%>
281
 
282
            <%BuildActionButton bState, "", "Disable Daemon", _
283
                                     "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
284
                                     "_setDaemonDisable.asp?rcon_id="&rcon_id&"&rtag_id="&parRtagId&"&rfile="&scriptName%>
127 ghuddy 285
         </tr>
286
      </table>
287
 
171 brianf 288
   <%Case "Daemon Control All"%>
173 brianf 289
      <table border="0" cellspacing="0" cellpadding="0">
6786 dpurdie 290
         <!-- Daemon StartControl All -->
171 brianf 291
         <tr>
173 brianf 292
            <td valign=top>
5623 dpurdie 293
               <img src=icons/tpaused.gif width="16" height="16" border="0" vspace=2 hspace="5" style="visibility:hidden">
173 brianf 294
            </td>
6786 dpurdie 295
            <%BuildActionButton bState, "", "Enable Daemons", _
296
                                     "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
297
                                     "_setDaemonResume.asp?rtag_id="&parRtagId&"&rfile="&scriptName%>
5983 dpurdie 298
 
6786 dpurdie 299
            <%BuildActionButton bState, "", "Pause Daemons", _
300
                                     "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
301
                                     "_setDaemonPause.asp?rtag_id="&parRtagId&"&rfile="&scriptName%>
302
 
303
            <%BuildActionButton bState, "", "Disable Daemons", _
304
                                     "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'", _
305
                                     "_setDaemonDisable.asp?rtag_id="&parRtagId&"&rfile="&scriptName%>
171 brianf 306
         </tr>
307
      </table>
308
 
6267 dpurdie 309
   <%Case "Daemon Unavailable"%>
310
      <table border="0" cellspacing="0" cellpadding="0">
6786 dpurdie 311
         <!-- Daemon StartUnavailable -->
6267 dpurdie 312
         <tr>
313
            <td valign=top>
314
               <img src=icons/tpaused_notfound.gif width="16" height="16" border="0" vspace=2 hspace="5">
315
            </td>
6786 dpurdie 316
            <%BuildActionButton FALSE, "", "Enable Daemons",  "src='icons/tplay.gif' width='16' height='16' border='0' vspace='2' hspace='0'", ""%>
317
            <%BuildActionButton FALSE, "", "Pause Daemons",   "src='icons/tpause.gif' width='16' height='16' border='0' vspace='2' hspace='0'",""%>
318
            <%BuildActionButton FALSE, "", "Disable Daemons", "src='icons/tstop.gif' width='16' height='16' border='0' vspace='2' hspace='0'","" %>
6267 dpurdie 319
         </tr>
320
      </table>
321
 
147 ghuddy 322
   <%Case "Add Daemon Instruction"%>
323
      <table width="10" border="0" cellspacing="10">
324
         <tr>
6786 dpurdie 325
            <%BuildActionButtonClick bState, "Add Daemon Instruction", "Insert New Daemon Instruction.", TRUE, _
326
                                        "src='icons/btn_add.gif' width='13' height='13' align='absmiddle' border='0' hspace='3'", _
327
                                        "MM_openVixIFrame('wAddDaemonInstruction.asp','Insert New Daemon Instruction')"%>
147 ghuddy 328
         </tr>
329
      </table>
330
 
119 ghuddy 331
   <%End Select%>
332
<%End Sub%>
6786 dpurdie 333
<%
334
'------------------------------------------------------------------------------
335
'   Helper routine to create buttons and disabled buttons
336
'
337
Sub BuildActionButton(bState, sText, sTitle, sImage, sRef)
338
 %>
339
<td align="center" nowrap valign="bottom" title="<%=sTitle%>">
340
    <%If bState Then%>
341
    <a href="<%=sRef%>" class="abtnItem"><img <%=sImage%> ><%=sText%></a>
342
    <%Else%>
343
    <span class="abtnItemDis"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
344
    <%End If%>
345
</td>
346
<%End Sub
347
'------------------------------------------------------------------------------
348
'   Helper routine to create buttons and disabled buttons
349
'   Tack a onClick operation
350
'
351
Sub BuildActionButtonClick(bState, sText, sTitle, isBlue, sImage, sClick)
352
 Dim sStyle : sStyle = ""
353
 %>
354
<td align="right" nowrap valign="bottom" title="<%=sTitle%>">
355
    <%If bState Then%>
356
    <%If isBlue Then sStyle = "color:#0000ee; text-decoration:underline"%>
357
    <span onClick="<%=sClick%>" class="pointer abtnItem"  style="<%=sStyle%>"><img <%=sImage%> ><%=sText%></span>
358
    <%Else%>
359
    <%If isBlue Then sStyle = "color:#0000ee66; text-decoration:none"%>
360
    <span class="abtnItemDis" style="<%=sStyle%>"><img <%=sImage%> class="lessOpacity"><%=sText%></span>
361
    <%End If%>
362
</td>
363
<%End Sub
364
'------------------------------------------------------------------------------
365
'   Helper routine to create buttons and disabled buttons
366
'   Takes on and off images
367
Sub BuildActionButton2I(bState, sText, sTitle, sImage, sImage2, sRef)
368
 %>
369
<td align="center" nowrap valign="bottom" title="<%=sTitle%>">
370
    <%If bState Then%>
371
    <a href="<%=sRef%>" class="abtnItem"><img <%=sImage%> ><%=sText%></a>
372
    <%Else%>
373
    <span class="abtnItemDis"><img <%=sImage2%> class="lessOpacity"><%=sText%></span>
374
    <%End If%>
375
</td>
376
<%End Sub%>
377
 
378