| Line 30... |
Line 30... |
| 30 |
|
30 |
|
| 31 |
Private mbIsReadonly
|
31 |
Private mbIsReadonly
|
| 32 |
Private mbIsClosed
|
32 |
Private mbIsClosed
|
| 33 |
Private mReadonlyActionBehaviour
|
33 |
Private mReadonlyActionBehaviour
|
| 34 |
|
34 |
|
| 35 |
Private InxID
|
- |
|
| 36 |
Private InxName
|
35 |
Private InxName
|
| 37 |
Private InxTxt
|
36 |
Private InxTxt
|
| 38 |
Private InxLink
|
37 |
Private InxLink
|
| 39 |
Private InxEventHandler
|
38 |
Private InxEventHandler
|
| 40 |
Private InxImg
|
39 |
Private InxImg
|
| Line 108... |
Line 107... |
| 108 |
'-----------------------------------------------------------------------------------------------------------------
|
107 |
'-----------------------------------------------------------------------------------------------------------------
|
| 109 |
Private Function LastItemInx ()
|
108 |
Private Function LastItemInx ()
|
| 110 |
LastItemInx = UBound ( mArrAbtnDef, 2 )
|
109 |
LastItemInx = UBound ( mArrAbtnDef, 2 )
|
| 111 |
End Function
|
110 |
End Function
|
| 112 |
'-----------------------------------------------------------------------------------------------------------------
|
111 |
'-----------------------------------------------------------------------------------------------------------------
|
| 113 |
Public Sub AddActionButton ( sItemName, nItemID )
|
- |
|
| 114 |
Dim newArrayDim
|
- |
|
| 115 |
|
- |
|
| 116 |
If InStr( sItemName, " " ) > 0 Then Err.Raise 8, "Method AddActionButton", "Item Name '"& sItemName &"' cannot have spaces."
|
- |
|
| 117 |
|
- |
|
| 118 |
|
- |
|
| 119 |
|
- |
|
| 120 |
If NOT mobjNameDefMap.Exists (CStr( sItemName )) Then
|
- |
|
| 121 |
|
- |
|
| 122 |
newArrayDim = LastItemInx() + 1
|
- |
|
| 123 |
|
- |
|
| 124 |
ReDim Preserve mArrAbtnDef( mNumOfProperties, newArrayDim )
|
- |
|
| 125 |
|
- |
|
| 126 |
' Store name
|
- |
|
| 127 |
Call SetItemPropertyByIndex ( newArrayDim, InxName, sItemName )
|
- |
|
| 128 |
mobjNameDefMap.Add Cstr( sItemName ), CStr( newArrayDim )
|
- |
|
| 129 |
|
- |
|
| 130 |
If Not IsNull(nItemID) Then
|
- |
|
| 131 |
' Store ID
|
- |
|
| 132 |
Call SetItemPropertyByIndex ( newArrayDim, InxdbID, nItemID )
|
- |
|
| 133 |
mobjIdDefMap.Add Cstr( nItemID ), CStr( newArrayDim )
|
- |
|
| 134 |
End If
|
- |
|
| 135 |
|
- |
|
| 136 |
' Set Defaults
|
- |
|
| 137 |
Call SetItemDefaults ( sItemName )
|
- |
|
| 138 |
Else
|
- |
|
| 139 |
|
- |
|
| 140 |
Err.Raise 8, "Method AddActionButton", "Item Name '"& sItemName &"' has been already defined."
|
- |
|
| 141 |
|
- |
|
| 142 |
End If
|
- |
|
| 143 |
|
- |
|
| 144 |
End Sub
|
- |
|
| 145 |
'-----------------------------------------------------------------------------------------------------------------
|
- |
|
| 146 |
Public Sub Render ( aAbtnList, ByRef oAccessControl )
|
112 |
Public Sub Render ( aAbtnList, ByRef oAccessControl )
|
| 147 |
Dim itemInx, itemName, nLastItemInx, btnImage, ButtonStr, ButtonStrDisabled, bIsVisibleAC, bIsActiveAC
|
113 |
Dim itemInx, itemName, nLastItemInx, btnImage, ButtonStr, ButtonStrDisabled, bIsVisibleAC, bIsActiveAC
|
| 148 |
Response.write "<table cellpadding='0' cellspacing='0' width='1' ><tr>"
|
114 |
Response.write "<table cellpadding='0' cellspacing='0' width='1' ><tr>"
|
| 149 |
|
115 |
|
| 150 |
For Each itemName in aAbtnList
|
116 |
For Each itemName in aAbtnList
|
| Line 342... |
Line 308... |
| 342 |
' give a single " to the resulting string that pops out from EVAL.
|
308 |
' give a single " to the resulting string that pops out from EVAL.
|
| 343 |
' Remember also that whilst HTML doesn't care whether you use single or double quotes, javascript
|
309 |
' Remember also that whilst HTML doesn't care whether you use single or double quotes, javascript
|
| 344 |
' does (it must use single quotes) and VBScript does (it must use double quotes)
|
310 |
' does (it must use single quotes) and VBScript does (it must use double quotes)
|
| 345 |
'
|
311 |
'
|
| 346 |
' Possible Future Roadmap
|
312 |
' Possible Future Roadmap
|
| 347 |
' 1) Rid the code of ABTN_ID - I dont think we need this field now that we are free of the database
|
313 |
' 1) Simplify the entier process
|
| 348 |
'
|
314 |
'
|
| 349 |
'
|
315 |
'
|
| 350 |
Dim rsQry
|
316 |
Dim rsQry
|
| 351 |
Dim varFields
|
317 |
Dim varFields
|
| 352 |
Dim varValues
|
318 |
Dim varValues
|
| Line 356... |
Line 322... |
| 356 |
rsQry.CursorLocation = adUseClient
|
322 |
rsQry.CursorLocation = adUseClient
|
| 357 |
rsQry.CursorType = adOpenKeyset
|
323 |
rsQry.CursorType = adOpenKeyset
|
| 358 |
rsQry.LockType = adLockOptimistic
|
324 |
rsQry.LockType = adLockOptimistic
|
| 359 |
|
325 |
|
| 360 |
' Based upon the original DEF_ACTION_BUTTONS table DDL, define the fields (ie. table columns) being simulated
|
326 |
' Based upon the original DEF_ACTION_BUTTONS table DDL, define the fields (ie. table columns) being simulated
|
| 361 |
rsQry.Fields.Append "ABTN_ID", adInteger
|
- |
|
| 362 |
rsQry.Fields.Append "ABTN_NAME", adVarChar, 64
|
327 |
rsQry.Fields.Append "ABTN_NAME", adVarChar, 64
|
| 363 |
rsQry.Fields.Append "TEXT", adVarChar, 128, adFldIsNullable
|
328 |
rsQry.Fields.Append "TEXT", adVarChar, 128, adFldIsNullable
|
| 364 |
rsQry.Fields.Append "ACTION_LINK", adVarChar, 512, adFldIsNullable
|
329 |
rsQry.Fields.Append "ACTION_LINK", adVarChar, 512, adFldIsNullable
|
| 365 |
rsQry.Fields.Append "EVENT_HANDLER", adVarChar, 512, adFldIsNullable
|
330 |
rsQry.Fields.Append "EVENT_HANDLER", adVarChar, 512, adFldIsNullable
|
| 366 |
rsQry.Fields.Append "IMG_ENABLED", adVarChar, 128, adFldIsNullable
|
331 |
rsQry.Fields.Append "IMG_ENABLED", adVarChar, 128, adFldIsNullable
|
| Line 373... |
Line 338... |
| 373 |
|
338 |
|
| 374 |
' open the record set for updating
|
339 |
' open the record set for updating
|
| 375 |
rsQry.Open
|
340 |
rsQry.Open
|
| 376 |
|
341 |
|
| 377 |
' Specify the field order that we are going to use in our row creation statements
|
342 |
' Specify the field order that we are going to use in our row creation statements
|
| 378 |
varFields = Array("ABTN_ID", "ABTN_NAME", "TEXT",_
|
343 |
varFields = Array("ABTN_NAME", "TEXT",_
|
| 379 |
"ACTION_LINK",_
|
344 |
"ACTION_LINK",_
|
| 380 |
"EVENT_HANDLER",_
|
345 |
"EVENT_HANDLER",_
|
| 381 |
"IMG_ENABLED",_
|
346 |
"IMG_ENABLED",_
|
| 382 |
"IMG_DISABLED",_
|
347 |
"IMG_DISABLED",_
|
| 383 |
"HINT",_
|
348 |
"HINT",_
|
| Line 386... |
Line 351... |
| 386 |
"IS_READONLY_ACTION",_
|
351 |
"IS_READONLY_ACTION",_
|
| 387 |
"HIDE_ON_CLOSED")
|
352 |
"HIDE_ON_CLOSED")
|
| 388 |
|
353 |
|
| 389 |
' Add the rows to the record set, but only for buttons specifed in the list supplied by the caller
|
354 |
' Add the rows to the record set, but only for buttons specifed in the list supplied by the caller
|
| 390 |
|
355 |
|
| 391 |
' Remember, Field Ordering is... ID, name, text, link, event handler, en-img, dis-img, hint, visible, active, is readonly action
|
356 |
' Remember, Field Ordering is... name, text, link, event handler, en-img, dis-img, hint, visible, active, is readonly action
|
| 392 |
|
357 |
|
| 393 |
If isAbtnRequired(aAbtnList, "btnNewVersion") Then
|
358 |
If isAbtnRequired(aAbtnList, "btnNewVersion") Then
|
| 394 |
varValues = Array( 1, "btnNewVersion", null,_
|
359 |
varValues = Array("btnNewVersion", null,_
|
| 395 |
"""form_new_version.asp?""& objPMod.ComposeURL()",_
|
360 |
"""form_new_version.asp?""& objPMod.ComposeURL()",_
|
| 396 |
null,_
|
361 |
null,_
|
| 397 |
"images/abtn_new_version.gif",_
|
362 |
"images/abtn_new_version.gif",_
|
| 398 |
"images/abtn_new_version_off.gif",_
|
363 |
"images/abtn_new_version_off.gif",_
|
| 399 |
"Create new version of this package.",_
|
364 |
"Create new version of this package.",_
|
| Line 403... |
Line 368... |
| 403 |
"N")
|
368 |
"N")
|
| 404 |
rsQry.AddNew varFields, varValues
|
369 |
rsQry.AddNew varFields, varValues
|
| 405 |
End If
|
370 |
End If
|
| 406 |
|
371 |
|
| 407 |
If isAbtnRequired(aAbtnList, "btnVersionHistory") Then
|
372 |
If isAbtnRequired(aAbtnList, "btnVersionHistory") Then
|
| 408 |
varValues = Array( 2, "btnVersionHistory", null,_
|
373 |
varValues = Array("btnVersionHistory", null,_
|
| 409 |
"""javascript:;""",_
|
374 |
"""javascript:;""",_
|
| 410 |
"""onClick=""""MM_openBrWindow('_wform_versions_history_release_notes.asp?OLDpv_id=""& parPv_id &""&pkg_id=""& pkgInfoHash.Item (""pkg_id"") &""&FLpkg_version=*""& pkgInfoHash.Item(""v_ext"") &""&FLuser_name=*&rfile=""& scriptName &""&""& objPMod.ComposeURL() &""','History','resizable=yes,scrollbars=yes,width=1000,height='+ ( screen.height - 100 ) );""""""",_
|
375 |
"""onClick=""""MM_openBrWindow('_wform_versions_history_release_notes.asp?OLDpv_id=""& parPv_id &""&pkg_id=""& pkgInfoHash.Item (""pkg_id"") &""&FLpkg_version=*""& pkgInfoHash.Item(""v_ext"") &""&FLuser_name=*&rfile=""& scriptName &""&""& objPMod.ComposeURL() &""','History','resizable=yes,scrollbars=yes,width=1000,height='+ ( screen.height - 100 ) );""""""",_
|
| 411 |
"images/abtn_version_history.gif",_
|
376 |
"images/abtn_version_history.gif",_
|
| 412 |
null,_
|
377 |
null,_
|
| 413 |
"Show version history of this package.",_
|
378 |
"Show version history of this package.",_
|
| Line 417... |
Line 382... |
| 417 |
"N")
|
382 |
"N")
|
| 418 |
rsQry.AddNew varFields, varValues
|
383 |
rsQry.AddNew varFields, varValues
|
| 419 |
End If
|
384 |
End If
|
| 420 |
|
385 |
|
| 421 |
If isAbtnRequired(aAbtnList, "btnRemovePackage") Then
|
386 |
If isAbtnRequired(aAbtnList, "btnRemovePackage") Then
|
| 422 |
varValues = Array( 3, "btnRemovePackage", null,_
|
387 |
varValues = Array("btnRemovePackage", null,_
|
| 423 |
"""_remove_package.asp?pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
388 |
"""_remove_package.asp?pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 424 |
"""vixConfirm('Remove this package from this release.',{title:'Remove Package', button:'Remove', url: 'HREF'});""",_
|
389 |
"""vixConfirm('Remove this package from this release.',{title:'Remove Package', button:'Remove', url: 'HREF'});""",_
|
| 425 |
"images/abtn_remove_pkg.gif",_
|
390 |
"images/abtn_remove_pkg.gif",_
|
| 426 |
"images/abtn_remove_pkg_off.gif",_
|
391 |
"images/abtn_remove_pkg_off.gif",_
|
| 427 |
"Remove the package-version from this Release.",_
|
392 |
"Remove the package-version from this Release.",_
|
| Line 431... |
Line 396... |
| 431 |
"N")
|
396 |
"N")
|
| 432 |
rsQry.AddNew varFields, varValues
|
397 |
rsQry.AddNew varFields, varValues
|
| 433 |
End If
|
398 |
End If
|
| 434 |
|
399 |
|
| 435 |
If isAbtnRequired(aAbtnList, "btnMakeRelease") Then
|
400 |
If isAbtnRequired(aAbtnList, "btnMakeRelease") Then
|
| 436 |
varValues = Array( 4, "btnMakeRelease", null,_
|
401 |
varValues = Array("btnMakeRelease", null,_
|
| 437 |
"""_make_released.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
402 |
"""_make_released.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 438 |
"""vixConfirm('Making this package released will prevent any further changes',{title:'Make Release', button:'Release', url: 'HREF'});""""""",_
|
403 |
"""vixConfirm('Making this package released will prevent any further changes',{title:'Make Release', button:'Release', url: 'HREF'});""""""",_
|
| 439 |
"icons/i_make_released.gif",_
|
404 |
"icons/i_make_released.gif",_
|
| 440 |
"icons/i_make_released_off.gif",_
|
405 |
"icons/i_make_released_off.gif",_
|
| 441 |
"Make this package released, so that other packages can use it.",_
|
406 |
"Make this package released, so that other packages can use it.",_
|
| Line 445... |
Line 410... |
| 445 |
"N")
|
410 |
"N")
|
| 446 |
rsQry.AddNew varFields, varValues
|
411 |
rsQry.AddNew varFields, varValues
|
| 447 |
End If
|
412 |
End If
|
| 448 |
|
413 |
|
| 449 |
If isAbtnRequired(aAbtnList, "btnMakeUnrelease") Then
|
414 |
If isAbtnRequired(aAbtnList, "btnMakeUnrelease") Then
|
| 450 |
varValues = Array( 5, "btnMakeUnrelease", null,_
|
415 |
varValues = Array("btnMakeUnrelease", null,_
|
| 451 |
"""_make_unreleased.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
416 |
"""_make_unreleased.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 452 |
"""vixConfirm('You are going to unrelease this package.',{title:'Make UnRelease', button:'UnRelease', url: 'HREF'});""""""",_
|
417 |
"""vixConfirm('You are going to unrelease this package.',{title:'Make UnRelease', button:'UnRelease', url: 'HREF'});""""""",_
|
| 453 |
"icons/i_make_unreleased.gif",_
|
418 |
"icons/i_make_unreleased.gif",_
|
| 454 |
"icons/i_make_unreleased_off.gif",_
|
419 |
"icons/i_make_unreleased_off.gif",_
|
| 455 |
"Unrelease this package.",_
|
420 |
"Unrelease this package.",_
|
| Line 459... |
Line 424... |
| 459 |
"N")
|
424 |
"N")
|
| 460 |
rsQry.AddNew varFields, varValues
|
425 |
rsQry.AddNew varFields, varValues
|
| 461 |
End If
|
426 |
End If
|
| 462 |
|
427 |
|
| 463 |
If isAbtnRequired(aAbtnList, "btnMakePending") Then
|
428 |
If isAbtnRequired(aAbtnList, "btnMakePending") Then
|
| 464 |
varValues = Array( 6, "btnMakePending", null,_
|
429 |
varValues = Array("btnMakePending", null,_
|
| 465 |
"""_make_pending.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
430 |
"""_make_pending.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 466 |
"""vixConfirm('Making this package pending will prevent any further changes.',{title:'Make Pending', button:'Pending', url: 'HREF'});""""""",_
|
431 |
"""vixConfirm('Making this package pending will prevent any further changes.',{title:'Make Pending', button:'Pending', url: 'HREF'});""""""",_
|
| 467 |
"icons/i_make_pending.gif",_
|
432 |
"icons/i_make_pending.gif",_
|
| 468 |
"icons/i_make_pending_off.gif",_
|
433 |
"icons/i_make_pending_off.gif",_
|
| 469 |
"Make this package pending for build/release.",_
|
434 |
"Make this package pending for build/release.",_
|
| Line 473... |
Line 438... |
| 473 |
"N")
|
438 |
"N")
|
| 474 |
rsQry.AddNew varFields, varValues
|
439 |
rsQry.AddNew varFields, varValues
|
| 475 |
End If
|
440 |
End If
|
| 476 |
|
441 |
|
| 477 |
If isAbtnRequired(aAbtnList, "btnRejectPackage") Then
|
442 |
If isAbtnRequired(aAbtnList, "btnRejectPackage") Then
|
| 478 |
varValues = Array( 7, "btnRejectPackage", null,_
|
443 |
varValues = Array("btnRejectPackage", null,_
|
| 479 |
"""_make_rejected.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
444 |
"""_make_rejected.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 480 |
"""vixConfirm('Rejecting a new package version will move it to Work-In-Progress.<br>Rejecting a merge package version will simply remove it from pending.',{title:'Reject Package', button:'Reject', url: 'HREF'});""""""",_
|
445 |
"""vixConfirm('Rejecting a new package version will move it to Work-In-Progress.<br>Rejecting a merge package version will simply remove it from pending.',{title:'Reject Package', button:'Reject', url: 'HREF'});""""""",_
|
| 481 |
"icons/i_reject_pending.gif",_
|
446 |
"icons/i_reject_pending.gif",_
|
| 482 |
"icons/i_reject_pending_off.gif",_
|
447 |
null,_
|
| 483 |
"Reject this package from Pending.",_
|
448 |
"Reject this package from Pending.",_
|
| 484 |
"Y",_
|
449 |
"Y",_
|
| 485 |
"Y",_
|
450 |
"Y",_
|
| 486 |
"N",_
|
451 |
"N",_
|
| 487 |
"N")
|
452 |
"N")
|
| 488 |
rsQry.AddNew varFields, varValues
|
453 |
rsQry.AddNew varFields, varValues
|
| 489 |
End If
|
454 |
End If
|
| 490 |
|
455 |
|
| 491 |
If isAbtnRequired(aAbtnList, "btnMoveToView") Then
|
456 |
If isAbtnRequired(aAbtnList, "btnMoveToView") Then
|
| 492 |
varValues = Array( 8, "btnMoveToView", null,_
|
457 |
varValues = Array("btnMoveToView", null,_
|
| 493 |
"""javascript:;""",_
|
458 |
"""javascript:;""",_
|
| 494 |
"""onClick=""""MM_openVixIFrame('_wform_change_group.asp?""& objPMod.ComposeURL() &""','Set Package Base View');""""""",_
|
459 |
"""onClick=""""MM_openVixIFrame('_wform_change_group.asp?""& objPMod.ComposeURL() &""','Set Package Base View');""""""",_
|
| 495 |
"images/abtn_move_package.gif",_
|
460 |
"images/abtn_move_package.gif",_
|
| 496 |
"images/abtn_move_package_off.gif",_
|
461 |
"images/abtn_move_package_off.gif",_
|
| 497 |
"Move this package to different Base View (Group).",_
|
462 |
"Move this package to different Base View (Group).",_
|
| Line 501... |
Line 466... |
| 501 |
"N")
|
466 |
"N")
|
| 502 |
rsQry.AddNew varFields, varValues
|
467 |
rsQry.AddNew varFields, varValues
|
| 503 |
End If
|
468 |
End If
|
| 504 |
|
469 |
|
| 505 |
If isAbtnRequired(aAbtnList, "btnReversionPackage") Then
|
470 |
If isAbtnRequired(aAbtnList, "btnReversionPackage") Then
|
| 506 |
varValues = Array( 9, "btnReversionPackage", null,_
|
471 |
varValues = Array("btnReversionPackage", null,_
|
| 507 |
"""javascript:;""",_
|
472 |
"""javascript:;""",_
|
| 508 |
"""onClick=""""MM_openVixIFrame('_wform_rename_version.asp?renameMode=1&rfile=""& ScriptName & objPMod.ComposeURLWithout(""rfile"") &""','Rename Version Number');""""""",_
|
473 |
"""onClick=""""MM_openVixIFrame('_wform_rename_version.asp?renameMode=1&rfile=""& ScriptName & objPMod.ComposeURLWithout(""rfile"") &""','Rename Version Number');""""""",_
|
| 509 |
"images/abtn_rename_version.gif",_
|
474 |
"images/abtn_rename_version.gif",_
|
| 510 |
"images/abtn_rename_version_off.gif",_
|
475 |
"images/abtn_rename_version_off.gif",_
|
| 511 |
"Reversion this package.",_
|
476 |
"Reversion this package.",_
|
| Line 515... |
Line 480... |
| 515 |
"N")
|
480 |
"N")
|
| 516 |
rsQry.AddNew varFields, varValues
|
481 |
rsQry.AddNew varFields, varValues
|
| 517 |
End If
|
482 |
End If
|
| 518 |
|
483 |
|
| 519 |
If isAbtnRequired(aAbtnList, "btnStickyNotes") Then
|
484 |
If isAbtnRequired(aAbtnList, "btnStickyNotes") Then
|
| 520 |
varValues = Array(10, "btnStickyNotes", null,_
|
485 |
varValues = Array("btnStickyNotes", null,_
|
| 521 |
"""javascript:;""",_
|
486 |
"""javascript:;""",_
|
| 522 |
"""onClick=""""showHideNote();""""""",_
|
487 |
"""onClick=""""showHideNote();""""""",_
|
| 523 |
"notemanager/images/note.gif",_
|
488 |
"notemanager/images/note.gif",_
|
| 524 |
null,_
|
489 |
null,_
|
| 525 |
"Sticky notes",_
|
490 |
"Sticky notes",_
|
| Line 529... |
Line 494... |
| 529 |
"N")
|
494 |
"N")
|
| 530 |
rsQry.AddNew varFields, varValues
|
495 |
rsQry.AddNew varFields, varValues
|
| 531 |
End If
|
496 |
End If
|
| 532 |
|
497 |
|
| 533 |
If isAbtnRequired(aAbtnList, "btnObsoletePatch") Then
|
498 |
If isAbtnRequired(aAbtnList, "btnObsoletePatch") Then
|
| 534 |
varValues = Array(11, "btnObsoletePatch", null,_
|
499 |
varValues = Array("btnObsoletePatch", null,_
|
| 535 |
"""javascript:;""",_
|
500 |
"""javascript:;""",_
|
| 536 |
"""onClick=""""MM_openVixIFrame('_wform_obsolete_patch.asp?rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Make Patch Obsolete');""""""",_
|
501 |
"""onClick=""""MM_openVixIFrame('_wform_obsolete_patch.asp?rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Make Patch Obsolete');""""""",_
|
| 537 |
"images/abtn_obsolete_patch.gif",_
|
502 |
"images/abtn_obsolete_patch.gif",_
|
| 538 |
"images/abtn_obsolete_patch_off.gif",_
|
503 |
"images/abtn_obsolete_patch_off.gif",_
|
| 539 |
"Make this patch obsolete.",_
|
504 |
"Make this patch obsolete.",_
|
| Line 543... |
Line 508... |
| 543 |
"N")
|
508 |
"N")
|
| 544 |
rsQry.AddNew varFields, varValues
|
509 |
rsQry.AddNew varFields, varValues
|
| 545 |
End If
|
510 |
End If
|
| 546 |
|
511 |
|
| 547 |
If isAbtnRequired(aAbtnList, "btnUnobsoletePatch") Then
|
512 |
If isAbtnRequired(aAbtnList, "btnUnobsoletePatch") Then
|
| 548 |
varValues = Array(12, "btnUnobsoletePatch", null,_
|
513 |
varValues = Array("btnUnobsoletePatch", null,_
|
| 549 |
"""javascript:;""",_
|
514 |
"""javascript:;""",_
|
| 550 |
"""onClick=""""MM_openVixIFrame('_wform_obsolete_patch.asp?action=true&unobsolete=true&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','UnObsolete Patch');""""""",_
|
515 |
"""onClick=""""MM_openVixIFrame('_wform_obsolete_patch.asp?action=true&unobsolete=true&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','UnObsolete Patch');""""""",_
|
| 551 |
"images/abtn_unobsolete_patch.gif",_
|
516 |
"images/abtn_unobsolete_patch.gif",_
|
| 552 |
null,_
|
517 |
null,_
|
| 553 |
"Undo patch obsolete.",_
|
518 |
"Undo patch obsolete.",_
|
| Line 556... |
Line 521... |
| 556 |
"N",_
|
521 |
"N",_
|
| 557 |
"N")
|
522 |
"N")
|
| 558 |
rsQry.AddNew varFields, varValues
|
523 |
rsQry.AddNew varFields, varValues
|
| 559 |
End If
|
524 |
End If
|
| 560 |
|
525 |
|
| - |
|
526 |
If isAbtnRequired(aAbtnList, "btnApprovePackagezzzzzz") Then
|
| - |
|
527 |
varValues = Array("btnApprovePackage", null,_
|
| - |
|
528 |
"""javascript:;""",_
|
| - |
|
529 |
"""onClick=""""vixDialog('_wform_build_package.asp?"" & ""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id &""','Approve Package');""""""",_
|
| - |
|
530 |
"icons/i_submit_build.gif",_
|
| - |
|
531 |
null,_
|
| - |
|
532 |
"Make this package released for automated build.",_
|
| - |
|
533 |
"Y",_
|
| - |
|
534 |
"Y",_
|
| - |
|
535 |
"N",_
|
| - |
|
536 |
"N")
|
| - |
|
537 |
rsQry.AddNew varFields, varValues
|
| - |
|
538 |
End If
|
| - |
|
539 |
|
| 561 |
If isAbtnRequired(aAbtnList, "btnApprovePackage") Then
|
540 |
If isAbtnRequired(aAbtnList, "btnApprovePackage") Then
|
| 562 |
varValues = Array(13, "btnApprovePackage", null,_
|
541 |
varValues = Array("btnApprovePackage", null,_
|
| 563 |
"""_make_approved.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
542 |
"""_make_approved.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 564 |
"""vixConfirm('Approve this package for auto-build.',{title:'Approve Package', button:'Approve', url: 'HREF'});""""""",_
|
543 |
"""vixConfirm('Approve this package for auto-build.',{title:'Approve Package', button:'Approve', url: 'HREF'});""""""",_
|
| 565 |
"icons/i_submit_build.gif",_
|
544 |
"icons/i_submit_build.gif",_
|
| 566 |
"icons/i_submit_build_off.gif",_
|
545 |
"icons/i_submit_build_off.gif",_
|
| 567 |
"Make this package released for automated build.",_
|
546 |
"Make this package released for automated build.",_
|
| Line 571... |
Line 550... |
| 571 |
"N")
|
550 |
"N")
|
| 572 |
rsQry.AddNew varFields, varValues
|
551 |
rsQry.AddNew varFields, varValues
|
| 573 |
End If
|
552 |
End If
|
| 574 |
|
553 |
|
| 575 |
If isAbtnRequired(aAbtnList, "btnNewRelease") Then
|
554 |
If isAbtnRequired(aAbtnList, "btnNewRelease") Then
|
| 576 |
varValues = Array(14, "btnNewRelease", null,_
|
555 |
varValues = Array("btnNewRelease", null,_
|
| 577 |
"""new_release.asp?" & objPMod.ComposeURL() &"""",_
|
556 |
"""new_release.asp?" & objPMod.ComposeURL() &"""",_
|
| 578 |
null,_
|
557 |
null,_
|
| 579 |
"images/abtn_new_release.gif",_
|
558 |
"images/abtn_new_release.gif",_
|
| 580 |
"images/abtn_new_release_off.gif",_
|
559 |
"images/abtn_new_release_off.gif",_
|
| 581 |
"Create new release...",_
|
560 |
"Create new release...",_
|
| Line 585... |
Line 564... |
| 585 |
"N")
|
564 |
"N")
|
| 586 |
rsQry.AddNew varFields, varValues
|
565 |
rsQry.AddNew varFields, varValues
|
| 587 |
End If
|
566 |
End If
|
| 588 |
|
567 |
|
| 589 |
If isAbtnRequired(aAbtnList, "btnEditRelease") Then
|
568 |
If isAbtnRequired(aAbtnList, "btnEditRelease") Then
|
| 590 |
varValues = Array(15, "btnEditRelease", null,_
|
569 |
varValues = Array("btnEditRelease", null,_
|
| 591 |
"""javascript:go_submit( document.FormName, """"btnEditRelease"""" );""",_
|
570 |
"""javascript:go_submit( document.FormName, """"btnEditRelease"""" );""",_
|
| 592 |
null,_
|
571 |
null,_
|
| 593 |
"images/abtn_edit.gif",_
|
572 |
"images/abtn_edit.gif",_
|
| 594 |
"images/abtn_edit_off.gif",_
|
573 |
"images/abtn_edit_off.gif",_
|
| 595 |
"Edit selected release details...",_
|
574 |
"Edit selected release details...",_
|
| Line 599... |
Line 578... |
| 599 |
"N")
|
578 |
"N")
|
| 600 |
rsQry.AddNew varFields, varValues
|
579 |
rsQry.AddNew varFields, varValues
|
| 601 |
End If
|
580 |
End If
|
| 602 |
|
581 |
|
| 603 |
If isAbtnRequired(aAbtnList, "btnMergeManager") Then
|
582 |
If isAbtnRequired(aAbtnList, "btnMergeManager") Then
|
| 604 |
varValues = Array(17, "btnMergeManager", null,_
|
583 |
varValues = Array("btnMergeManager", null,_
|
| 605 |
"""diff.asp""",_
|
584 |
"""diff.asp""",_
|
| 606 |
null,_
|
585 |
null,_
|
| 607 |
"images/abtn_merge_manager.gif",_
|
586 |
"images/abtn_merge_manager.gif",_
|
| 608 |
"images/abtn_merge_manager_off.gif",_
|
587 |
"images/abtn_merge_manager_off.gif",_
|
| 609 |
"Run merge manager...",_
|
588 |
"Run merge manager...",_
|
| Line 613... |
Line 592... |
| 613 |
"N")
|
592 |
"N")
|
| 614 |
rsQry.AddNew varFields, varValues
|
593 |
rsQry.AddNew varFields, varValues
|
| 615 |
End If
|
594 |
End If
|
| 616 |
|
595 |
|
| 617 |
If isAbtnRequired(aAbtnList, "btnMoveRelease") Then
|
596 |
If isAbtnRequired(aAbtnList, "btnMoveRelease") Then
|
| 618 |
varValues = Array(18, "btnMoveRelease", null,_
|
597 |
varValues = Array("btnMoveRelease", null,_
|
| 619 |
"""javascript:go_submit( document.FormName, """"btnMoveRelease"""" );""",_
|
598 |
"""javascript:go_submit( document.FormName, """"btnMoveRelease"""" );""",_
|
| 620 |
null,_
|
599 |
null,_
|
| 621 |
"images/abtn_move_release.gif",_
|
600 |
"images/abtn_move_release.gif",_
|
| 622 |
"images/abtn_move_release_off.gif",_
|
601 |
"images/abtn_move_release_off.gif",_
|
| 623 |
"Move selected release vertically...",_
|
602 |
"Move selected release vertically...",_
|
| Line 626... |
Line 605... |
| 626 |
"N",_
|
605 |
"N",_
|
| 627 |
"N")
|
606 |
"N")
|
| 628 |
rsQry.AddNew varFields, varValues
|
607 |
rsQry.AddNew varFields, varValues
|
| 629 |
End If
|
608 |
End If
|
| 630 |
|
609 |
|
| 631 |
' NOTE: entries 19 and 20 were not used
|
- |
|
| 632 |
' Index numbers can be reused
|
- |
|
| 633 |
|
- |
|
| 634 |
If isAbtnRequired(aAbtnList, "btnNewVersion-MASSREF") Then
|
610 |
If isAbtnRequired(aAbtnList, "btnNewVersion-MASSREF") Then
|
| 635 |
varValues = Array(21, "btnNewVersion-MASSREF", null,_
|
611 |
varValues = Array("btnNewVersion-MASSREF", null,_
|
| 636 |
"""form_new_version.asp?rtag_id=""& AssocMASSREFValue &""&pv_id=""& Request(""pv_id"")",_
|
612 |
"""form_new_version.asp?rtag_id=""& AssocMASSREFValue &""&pv_id=""& Request(""pv_id"")",_
|
| 637 |
null,_
|
613 |
null,_
|
| 638 |
"images/abtn_new_version_MassRef.gif",_
|
614 |
"images/abtn_new_version_MassRef.gif",_
|
| 639 |
null,_
|
615 |
null,_
|
| 640 |
"Create new version of this package in associated MASS REF.",_
|
616 |
"Create new version of this package in associated MASS REF.",_
|
| Line 644... |
Line 620... |
| 644 |
"N")
|
620 |
"N")
|
| 645 |
rsQry.AddNew varFields, varValues
|
621 |
rsQry.AddNew varFields, varValues
|
| 646 |
End If
|
622 |
End If
|
| 647 |
|
623 |
|
| 648 |
If isAbtnRequired(aAbtnList, "btnDestroyWip") Then
|
624 |
If isAbtnRequired(aAbtnList, "btnDestroyWip") Then
|
| 649 |
varValues = Array(34, "btnDestroyWip", null,_
|
625 |
varValues = Array("btnDestroyWip", null,_
|
| 650 |
"""javascript:;""",_
|
626 |
"""javascript:;""",_
|
| 651 |
"""onClick=""""MM_openVixIFrame('_destroy_package.asp?bfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Destroy WIP');""""""",_
|
627 |
"""onClick=""""MM_openVixIFrame('_destroy_package.asp?bfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Destroy WIP');""""""",_
|
| 652 |
"icons/i_destroy_package.gif",_
|
628 |
"icons/i_destroy_package.gif",_
|
| 653 |
"icons/i_destroy_package_off.gif",_
|
629 |
"icons/i_destroy_package_off.gif",_
|
| 654 |
"Destroy this WIP",_
|
630 |
"Destroy this WIP",_
|
| Line 658... |
Line 634... |
| 658 |
"N")
|
634 |
"N")
|
| 659 |
rsQry.AddNew varFields, varValues
|
635 |
rsQry.AddNew varFields, varValues
|
| 660 |
End If
|
636 |
End If
|
| 661 |
|
637 |
|
| 662 |
If isAbtnRequired(aAbtnList, "btnRecycleBin") Then
|
638 |
If isAbtnRequired(aAbtnList, "btnRecycleBin") Then
|
| 663 |
varValues = Array(22, "btnRecycleBin", null,_
|
639 |
varValues = Array("btnRecycleBin", null,_
|
| 664 |
"""javascript:;""",_
|
640 |
"""javascript:;""",_
|
| 665 |
"""onClick=""""MM_openVixIFrame('_destroy_package.asp?&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Destroy Package Version');""""""",_
|
641 |
"""onClick=""""MM_openVixIFrame('_destroy_package.asp?&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Destroy Package Version');""""""",_
|
| 666 |
"icons/i_destroy_package.gif",_
|
642 |
"icons/i_destroy_package.gif",_
|
| 667 |
"icons/i_destroy_package_off.gif",_
|
643 |
"icons/i_destroy_package_off.gif",_
|
| 668 |
"Destroy this package version",_
|
644 |
"Destroy this package version",_
|
| Line 672... |
Line 648... |
| 672 |
"N")
|
648 |
"N")
|
| 673 |
rsQry.AddNew varFields, varValues
|
649 |
rsQry.AddNew varFields, varValues
|
| 674 |
End If
|
650 |
End If
|
| 675 |
|
651 |
|
| 676 |
If isAbtnRequired(aAbtnList, "btnDeprecation") Then
|
652 |
If isAbtnRequired(aAbtnList, "btnDeprecation") Then
|
| 677 |
varValues = Array(23, "btnDeprecation", null,_
|
653 |
varValues = Array("btnDeprecation", null,_
|
| 678 |
"""javascript:;""",_
|
654 |
"""javascript:;""",_
|
| 679 |
"""onClick='MM_openVixIFrame(""""_wform_deprecate_package.asp?rfile=""& scriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id &"""""",""""Deprecate Package"""")' class='body_txt' title='Deprecate the package.'""",_
|
655 |
"""onClick='MM_openVixIFrame(""""_wform_deprecate_package.asp?rfile=""& scriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id &"""""",""""Deprecate Package"""")' class='body_txt' title='Deprecate the package.'""",_
|
| 680 |
"images/BombBorder.gif",_
|
656 |
"images/BombBorder.gif",_
|
| 681 |
"images/BombBorder_off.gif",_
|
657 |
"images/BombBorder_off.gif",_
|
| 682 |
"Deprecate this package in this release.",_
|
658 |
"Deprecate this package in this release.",_
|
| Line 686... |
Line 662... |
| 686 |
"N")
|
662 |
"N")
|
| 687 |
rsQry.AddNew varFields, varValues
|
663 |
rsQry.AddNew varFields, varValues
|
| 688 |
End If
|
664 |
End If
|
| 689 |
|
665 |
|
| 690 |
If isAbtnRequired(aAbtnList, "btnUnDeprecation") Then
|
666 |
If isAbtnRequired(aAbtnList, "btnUnDeprecation") Then
|
| 691 |
varValues = Array(24, "btnUnDeprecation", null,_
|
667 |
varValues = Array("btnUnDeprecation", null,_
|
| 692 |
"""_wform_undeprecate_package.asp?rfile=""& scriptName &""&pkg_id=""& pkgInfoHash.Item(""pkg_id"") &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id &""""",_
|
668 |
"""_wform_undeprecate_package.asp?rfile=""& scriptName &""&pkg_id=""& pkgInfoHash.Item(""pkg_id"") &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id &""""",_
|
| 693 |
"""vixConfirm('You are about to undeprecate package: ""& pkgInfoHash.Item (""pkg_name"") &"".',{title:'Undeprecate Package', url: 'HREF'});""""""",_
|
669 |
"""vixConfirm('You are about to undeprecate package: ""& pkgInfoHash.Item (""pkg_name"") &"".',{title:'Undeprecate Package', url: 'HREF'});""""""",_
|
| 694 |
"images/BombBorder.gif",_
|
670 |
"images/BombBorder.gif",_
|
| 695 |
null,_
|
671 |
null,_
|
| 696 |
"Un Deprecate this package in this release",_
|
672 |
"Un Deprecate this package in this release",_
|
| Line 700... |
Line 676... |
| 700 |
"N")
|
676 |
"N")
|
| 701 |
rsQry.AddNew varFields, varValues
|
677 |
rsQry.AddNew varFields, varValues
|
| 702 |
End If
|
678 |
End If
|
| 703 |
|
679 |
|
| 704 |
If isAbtnRequired(aAbtnList, "btnAdminView") Then
|
680 |
If isAbtnRequired(aAbtnList, "btnAdminView") Then
|
| 705 |
varValues = Array(25, "btnAdminView", null,_
|
681 |
varValues = Array("btnAdminView", null,_
|
| 706 |
"""form_edit_project_view.asp?proj_id=""& parProjId &""""",_
|
682 |
"""form_edit_project_view.asp?proj_id=""& parProjId &""""",_
|
| 707 |
null,_
|
683 |
null,_
|
| 708 |
"images/view_admin.gif",_
|
684 |
"images/view_admin.gif",_
|
| 709 |
null,_
|
685 |
null,_
|
| 710 |
"Administer the views in the project.",_
|
686 |
"Administer the views in the project.",_
|
| Line 714... |
Line 690... |
| 714 |
"N")
|
690 |
"N")
|
| 715 |
rsQry.AddNew varFields, varValues
|
691 |
rsQry.AddNew varFields, varValues
|
| 716 |
End If
|
692 |
End If
|
| 717 |
|
693 |
|
| 718 |
If isAbtnRequired(aAbtnList, "btnNotificationView") Then
|
694 |
If isAbtnRequired(aAbtnList, "btnNotificationView") Then
|
| 719 |
varValues = Array(25, "btnNotificationView", null,_
|
695 |
varValues = Array("btnNotificationView", null,_
|
| 720 |
"""form_view_release_notifications.asp?proj_id=""& parProjId &""""",_
|
696 |
"""form_view_release_notifications.asp?proj_id=""& parProjId &""""",_
|
| 721 |
null,_
|
697 |
null,_
|
| 722 |
"images/view_notifications.gif",_
|
698 |
"images/view_notifications.gif",_
|
| 723 |
null,_
|
699 |
null,_
|
| 724 |
"Display the package notification information in this project .",_
|
700 |
"Display the package notification information in this project .",_
|
| Line 728... |
Line 704... |
| 728 |
"N")
|
704 |
"N")
|
| 729 |
rsQry.AddNew varFields, varValues
|
705 |
rsQry.AddNew varFields, varValues
|
| 730 |
End If
|
706 |
End If
|
| 731 |
|
707 |
|
| 732 |
If isAbtnRequired(aAbtnList, "btnProjectReplication") Then
|
708 |
If isAbtnRequired(aAbtnList, "btnProjectReplication") Then
|
| 733 |
varValues = Array(25, "btnProjectReplication", null,_
|
709 |
varValues = Array("btnProjectReplication", null,_
|
| 734 |
"""form_project_replication.asp?proj_id=""& parProjId &""""",_
|
710 |
"""form_project_replication.asp?proj_id=""& parProjId &""""",_
|
| 735 |
null,_
|
711 |
null,_
|
| 736 |
"images/project_replication.gif",_
|
712 |
"images/project_replication.gif",_
|
| 737 |
null,_
|
713 |
null,_
|
| 738 |
"Display the project replication information.",_
|
714 |
"Display the project replication information.",_
|
| Line 743... |
Line 719... |
| 743 |
rsQry.AddNew varFields, varValues
|
719 |
rsQry.AddNew varFields, varValues
|
| 744 |
End If
|
720 |
End If
|
| 745 |
|
721 |
|
| 746 |
' NOTE: I do not think this one is ever used
|
722 |
' NOTE: I do not think this one is ever used
|
| 747 |
If isAbtnRequired(aAbtnList, "btnAddProc") Then
|
723 |
If isAbtnRequired(aAbtnList, "btnAddProc") Then
|
| 748 |
varValues = Array(26, "btnAddProc", "Add Process",_
|
724 |
varValues = Array("btnAddProc", "Add Process",_
|
| 749 |
"""javascript:;""",_
|
725 |
"""javascript:;""",_
|
| 750 |
"""onClick=""""MM_openVixIFrame('wAddProc.asp?rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Add Process');""""""",_
|
726 |
"""onClick=""""MM_openVixIFrame('wAddProc.asp?rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Add Process');""""""",_
|
| 751 |
"icons/btn_add.gif",_
|
727 |
"icons/btn_add.gif",_
|
| 752 |
null,_
|
728 |
null,_
|
| 753 |
null,_
|
729 |
null,_
|
| Line 757... |
Line 733... |
| 757 |
"N")
|
733 |
"N")
|
| 758 |
rsQry.AddNew varFields, varValues
|
734 |
rsQry.AddNew varFields, varValues
|
| 759 |
End If
|
735 |
End If
|
| 760 |
|
736 |
|
| 761 |
If isAbtnRequired(aAbtnList, "btnEditGBE_Machtype") Then
|
737 |
If isAbtnRequired(aAbtnList, "btnEditGBE_Machtype") Then
|
| 762 |
varValues = Array(27, "btnEditGBE_Machtype", null,_
|
738 |
varValues = Array("btnEditGBE_Machtype", null,_
|
| 763 |
"""javascript:;""",_
|
739 |
"""javascript:;""",_
|
| 764 |
"""onClick=""""MM_openVixIFrame('wAddMachtype.asp?type=edit&gbe_id=""& gbe_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Machine Type');""""""",_
|
740 |
"""onClick=""""MM_openVixIFrame('wAddMachtype.asp?type=edit&gbe_id=""& gbe_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Machine Type');""""""",_
|
| 765 |
"icons/i_edit.gif",_
|
741 |
"icons/i_edit.gif",_
|
| 766 |
null,_
|
742 |
null,_
|
| 767 |
"Edit this GBE MachType value",_
|
743 |
"Edit this GBE MachType value",_
|
| Line 771... |
Line 747... |
| 771 |
"N")
|
747 |
"N")
|
| 772 |
rsQry.AddNew varFields, varValues
|
748 |
rsQry.AddNew varFields, varValues
|
| 773 |
End If
|
749 |
End If
|
| 774 |
|
750 |
|
| 775 |
If isAbtnRequired(aAbtnList, "btnDeleteGBE_Machtype") Then
|
751 |
If isAbtnRequired(aAbtnList, "btnDeleteGBE_Machtype") Then
|
| 776 |
varValues = Array(28, "btnDeleteGBE_Machtype", null,_
|
752 |
varValues = Array("btnDeleteGBE_Machtype", null,_
|
| 777 |
"""_DeleteMachtype.asp?rfile=""& SCRIPT_NAME &""&gbe_id=""& gbe_id &""&""& objPMod.ComposeURL()",_
|
753 |
"""_DeleteMachtype.asp?rfile=""& SCRIPT_NAME &""&gbe_id=""& gbe_id &""&""& objPMod.ComposeURL()",_
|
| 778 |
"""vixConfirm('Remove \'""& GBE_VALUE &""\' from this list?',{title:'Remove GBE_MACHTYPE', button:'Remove', url: 'HREF'});""""""",_
|
754 |
"""vixConfirm('Remove \'""& GBE_VALUE &""\' from this list?',{title:'Remove GBE_MACHTYPE', button:'Remove', url: 'HREF'});""""""",_
|
| 779 |
"icons/i_remove.gif",_
|
755 |
"icons/i_remove.gif",_
|
| 780 |
null,_
|
756 |
null,_
|
| 781 |
"Delete this GBE MachType value",_
|
757 |
"Delete this GBE MachType value",_
|
| Line 785... |
Line 761... |
| 785 |
"N")
|
761 |
"N")
|
| 786 |
rsQry.AddNew varFields, varValues
|
762 |
rsQry.AddNew varFields, varValues
|
| 787 |
End If
|
763 |
End If
|
| 788 |
|
764 |
|
| 789 |
If isAbtnRequired(aAbtnList, "btnEditDaemon") Then
|
765 |
If isAbtnRequired(aAbtnList, "btnEditDaemon") Then
|
| 790 |
varValues = Array(29, "btnEditDaemon", null,_
|
766 |
varValues = Array("btnEditDaemon", null,_
|
| 791 |
"""javascript:;""",_
|
767 |
"""javascript:;""",_
|
| 792 |
"""onClick=""""MM_openVixIFrame('wAddDaemon.asp?type=edit&rcon_id=""& rcon_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Build Daemon');""""""",_
|
768 |
"""onClick=""""MM_openVixIFrame('wAddDaemon.asp?type=edit&rcon_id=""& rcon_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Build Daemon');""""""",_
|
| 793 |
"icons/i_edit.gif",_
|
769 |
"icons/i_edit.gif",_
|
| 794 |
NULL,_
|
770 |
NULL,_
|
| 795 |
"Edit Build Configuration",_
|
771 |
"Edit Build Configuration",_
|
| Line 799... |
Line 775... |
| 799 |
"N")
|
775 |
"N")
|
| 800 |
rsQry.AddNew varFields, varValues
|
776 |
rsQry.AddNew varFields, varValues
|
| 801 |
End If
|
777 |
End If
|
| 802 |
|
778 |
|
| 803 |
If isAbtnRequired(aAbtnList, "btnDeleteDaemon") Then
|
779 |
If isAbtnRequired(aAbtnList, "btnDeleteDaemon") Then
|
| 804 |
varValues = Array(30, "btnDeleteDaemon", null,_
|
780 |
varValues = Array("btnDeleteDaemon", null,_
|
| 805 |
"""_DeleteDaemon.asp?rcon_id=""& rcon_id & ""&action=Delete&"" & objPMod.ComposeURL()",_
|
781 |
"""_DeleteDaemon.asp?rcon_id=""& rcon_id & ""&action=Delete&"" & objPMod.ComposeURL()",_
|
| 806 |
"""vixConfirm('Delete the \'""& Daemon &""\' Daemon and associated information from this Release?',{title:'Remove Deamon', button:'Remove', url: 'HREF'});""""""",_
|
782 |
"""vixConfirm('Delete the \'""& Daemon &""\' Daemon and associated information from this Release?',{title:'Remove Deamon', button:'Remove', url: 'HREF'});""""""",_
|
| 807 |
"icons/i_remove.gif",_
|
783 |
"icons/i_remove.gif",_
|
| 808 |
null,_
|
784 |
null,_
|
| 809 |
"Delete Daemon",_
|
785 |
"Delete Daemon",_
|
| Line 813... |
Line 789... |
| 813 |
"N")
|
789 |
"N")
|
| 814 |
rsQry.AddNew varFields, varValues
|
790 |
rsQry.AddNew varFields, varValues
|
| 815 |
End If
|
791 |
End If
|
| 816 |
|
792 |
|
| 817 |
If isAbtnRequired(aAbtnList, "btnRemoveDaemon") Then
|
793 |
If isAbtnRequired(aAbtnList, "btnRemoveDaemon") Then
|
| 818 |
varValues = Array(47, "btnRemoveDaemon", null,_
|
794 |
varValues = Array("btnRemoveDaemon", null,_
|
| 819 |
"""_DeleteDaemon.asp?rcon_id=""& rcon_id & ""&action=Remove&""& objPMod.ComposeURL()",_
|
795 |
"""_DeleteDaemon.asp?rcon_id=""& rcon_id & ""&action=Remove&""& objPMod.ComposeURL()",_
|
| 820 |
"""vixConfirm('Unlink the \'""& Daemon &""\' Daemon from this Release.<p>Configuration information will be maintained.',{title:'Unlink Deamon', button:'Unlink', url: 'HREF'});""""""",_
|
796 |
"""vixConfirm('Unlink the \'""& Daemon &""\' Daemon from this Release.<p>Configuration information will be maintained.',{title:'Unlink Deamon', button:'Unlink', url: 'HREF'});""""""",_
|
| 821 |
"icons/break_link.gif",_
|
797 |
"icons/break_link.gif",_
|
| 822 |
null,_
|
798 |
null,_
|
| 823 |
"Unlink Daemon from entry",_
|
799 |
"Unlink Daemon from entry",_
|
| Line 827... |
Line 803... |
| 827 |
"N")
|
803 |
"N")
|
| 828 |
rsQry.AddNew varFields, varValues
|
804 |
rsQry.AddNew varFields, varValues
|
| 829 |
End If
|
805 |
End If
|
| 830 |
|
806 |
|
| 831 |
If isAbtnRequired(aAbtnList, "btnEditBuildMachine") Then
|
807 |
If isAbtnRequired(aAbtnList, "btnEditBuildMachine") Then
|
| 832 |
varValues = Array(29, "btnEditBuildMachine", null,_
|
808 |
varValues = Array("btnEditBuildMachine", null,_
|
| 833 |
"""javascript:;""",_
|
809 |
"""javascript:;""",_
|
| 834 |
"""onClick=""""MM_openVixIFrame('wAddBuildMachine.asp?type=edit&bmcon_id=""& bmcon_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Build Machine');""""""",_
|
810 |
"""onClick=""""MM_openVixIFrame('wAddBuildMachine.asp?type=edit&bmcon_id=""& bmcon_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Build Machine');""""""",_
|
| 835 |
"icons/i_edit.gif",_
|
811 |
"icons/i_edit.gif",_
|
| 836 |
NULL,_
|
812 |
NULL,_
|
| 837 |
"Edit Build Machine",_
|
813 |
"Edit Build Machine",_
|
| Line 841... |
Line 817... |
| 841 |
"N")
|
817 |
"N")
|
| 842 |
rsQry.AddNew varFields, varValues
|
818 |
rsQry.AddNew varFields, varValues
|
| 843 |
End If
|
819 |
End If
|
| 844 |
|
820 |
|
| 845 |
If isAbtnRequired(aAbtnList, "btnDeleteBuildMachine") Then
|
821 |
If isAbtnRequired(aAbtnList, "btnDeleteBuildMachine") Then
|
| 846 |
varValues = Array(30, "btnDeleteBuildMachine", null,_
|
822 |
varValues = Array("btnDeleteBuildMachine", null,_
|
| 847 |
"""_DeleteBuildMachine.asp?rfile=""& SCRIPT_NAME &""&bmcon_id=""& bmcon_id &""&""& objPMod.ComposeURL()",_
|
823 |
"""_DeleteBuildMachine.asp?rfile=""& SCRIPT_NAME &""&bmcon_id=""& bmcon_id &""&""& objPMod.ComposeURL()",_
|
| 848 |
"""vixConfirm('Remove Build Machine \'""& machine_hostname &""\' from this list?',{title:'Delete Build Machine', button:'Delete', url: 'HREF'});""""""",_
|
824 |
"""vixConfirm('Remove Build Machine \'""& machine_hostname &""\' from this list?',{title:'Delete Build Machine', button:'Delete', url: 'HREF'});""""""",_
|
| 849 |
"icons/i_remove.gif",_
|
825 |
"icons/i_remove.gif",_
|
| 850 |
null,_
|
826 |
null,_
|
| 851 |
"Delete Build Machine",_
|
827 |
"Delete Build Machine",_
|
| Line 855... |
Line 831... |
| 855 |
"N")
|
831 |
"N")
|
| 856 |
rsQry.AddNew varFields, varValues
|
832 |
rsQry.AddNew varFields, varValues
|
| 857 |
End If
|
833 |
End If
|
| 858 |
|
834 |
|
| 859 |
If isAbtnRequired(aAbtnList, "btnEditBlatMachine") Then
|
835 |
If isAbtnRequired(aAbtnList, "btnEditBlatMachine") Then
|
| 860 |
varValues = Array(29, "btnEditBlatMachine", null,_
|
836 |
varValues = Array("btnEditBlatMachine", null,_
|
| 861 |
"""javascript:;""",_
|
837 |
"""javascript:;""",_
|
| 862 |
"""onClick=""""MM_openVixIFrame('wAddPkgReplica.asp?type=edit&server_id=""& server_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Package Replica');""""""",_
|
838 |
"""onClick=""""MM_openVixIFrame('wAddPkgReplica.asp?type=edit&server_id=""& server_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Package Replica');""""""",_
|
| 863 |
"icons/i_edit.gif",_
|
839 |
"icons/i_edit.gif",_
|
| 864 |
NULL,_
|
840 |
NULL,_
|
| 865 |
"Edit Package Replica",_
|
841 |
"Edit Package Replica",_
|
| Line 869... |
Line 845... |
| 869 |
"N")
|
845 |
"N")
|
| 870 |
rsQry.AddNew varFields, varValues
|
846 |
rsQry.AddNew varFields, varValues
|
| 871 |
End If
|
847 |
End If
|
| 872 |
|
848 |
|
| 873 |
If isAbtnRequired(aAbtnList, "btnDeleteBlatMachine") Then
|
849 |
If isAbtnRequired(aAbtnList, "btnDeleteBlatMachine") Then
|
| 874 |
varValues = Array(30, "btnDeleteBlatMachine", null,_
|
850 |
varValues = Array("btnDeleteBlatMachine", null,_
|
| 875 |
"""_DeletePkgReplica.asp?rfile=""& SCRIPT_NAME &""&server_id=""& server_id &""&""& objPMod.ComposeURL()",_
|
851 |
"""_DeletePkgReplica.asp?rfile=""& SCRIPT_NAME &""&server_id=""& server_id &""&""& objPMod.ComposeURL()",_
|
| 876 |
"""vixConfirm('Remove Package Replica \'""& display_name &""\' from this list?',{title:'Delete Package Replica', button:'Delete', url: 'HREF'});""""""",_
|
852 |
"""vixConfirm('Remove Package Replica \'""& display_name &""\' from this list?',{title:'Delete Package Replica', button:'Delete', url: 'HREF'});""""""",_
|
| 877 |
"icons/i_remove.gif",_
|
853 |
"icons/i_remove.gif",_
|
| 878 |
null,_
|
854 |
null,_
|
| 879 |
"Delete Package Replica",_
|
855 |
"Delete Package Replica",_
|
| Line 883... |
Line 859... |
| 883 |
"N")
|
859 |
"N")
|
| 884 |
rsQry.AddNew varFields, varValues
|
860 |
rsQry.AddNew varFields, varValues
|
| 885 |
End If
|
861 |
End If
|
| 886 |
|
862 |
|
| 887 |
If isAbtnRequired(aAbtnList, "btnPendingIntegration") Then
|
863 |
If isAbtnRequired(aAbtnList, "btnPendingIntegration") Then
|
| 888 |
varValues = Array(32, "btnPendingIntegration", null,_
|
864 |
varValues = Array("btnPendingIntegration", null,_
|
| 889 |
"""_modify_product_state.asp?state_id=1&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
865 |
"""_modify_product_state.asp?state_id=1&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
| 890 |
"""vixConfirm('Do you want to proceed to make this product pending for INTEGRATION?',{title:'Make Pending', button:'Pending', url: 'HREF'});""""""",_
|
866 |
"""vixConfirm('Do you want to proceed to make this product pending for INTEGRATION?',{title:'Make Pending', button:'Pending', url: 'HREF'});""""""",_
|
| 891 |
"icons/PendingIntegration.gif",_
|
867 |
"icons/PendingIntegration.gif",_
|
| 892 |
null,_
|
868 |
null,_
|
| 893 |
"Make this product pending for Integration.",_
|
869 |
"Make this product pending for Integration.",_
|
| Line 897... |
Line 873... |
| 897 |
"N")
|
873 |
"N")
|
| 898 |
rsQry.AddNew varFields, varValues
|
874 |
rsQry.AddNew varFields, varValues
|
| 899 |
End If
|
875 |
End If
|
| 900 |
|
876 |
|
| 901 |
If isAbtnRequired(aAbtnList, "btnPendingTest") Then
|
877 |
If isAbtnRequired(aAbtnList, "btnPendingTest") Then
|
| 902 |
varValues = Array(33, "btnPendingTest", null,_
|
878 |
varValues = Array("btnPendingTest", null,_
|
| 903 |
"""_modify_product_state.asp?state_id=2&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
879 |
"""_modify_product_state.asp?state_id=2&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
| 904 |
"""vixConfirm('Do you want to proceed to make this product pending for Test?',{title:'Make Test', button:'Test', url: 'HREF'});""""""",_
|
880 |
"""vixConfirm('Do you want to proceed to make this product pending for Test?',{title:'Make Test', button:'Test', url: 'HREF'});""""""",_
|
| 905 |
"icons/PendingTest.gif",_
|
881 |
"icons/PendingTest.gif",_
|
| 906 |
null,_
|
882 |
null,_
|
| 907 |
"Make this product pending for Test.",_
|
883 |
"Make this product pending for Test.",_
|
| Line 911... |
Line 887... |
| 911 |
"N")
|
887 |
"N")
|
| 912 |
rsQry.AddNew varFields, varValues
|
888 |
rsQry.AddNew varFields, varValues
|
| 913 |
End If
|
889 |
End If
|
| 914 |
|
890 |
|
| 915 |
If isAbtnRequired(aAbtnList, "btnPendingDeployment") Then
|
891 |
If isAbtnRequired(aAbtnList, "btnPendingDeployment") Then
|
| 916 |
varValues = Array(34, "btnPendingDeployment", null,_
|
892 |
varValues = Array("btnPendingDeployment", null,_
|
| 917 |
"""_modify_product_state.asp?state_id=3&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
893 |
"""_modify_product_state.asp?state_id=3&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
| 918 |
"""vixConfirm('Do you want to proceed to make this product pending for DEPLOYMENT?',{title:'Make Deploy', button:'Deploy', url: 'HREF'});""""""",_
|
894 |
"""vixConfirm('Do you want to proceed to make this product pending for DEPLOYMENT?',{title:'Make Deploy', button:'Deploy', url: 'HREF'});""""""",_
|
| 919 |
"icons/PendingDeployment.gif",_
|
895 |
"icons/PendingDeployment.gif",_
|
| 920 |
null,_
|
896 |
null,_
|
| 921 |
"Make this product pending for Deployment.",_
|
897 |
"Make this product pending for Deployment.",_
|
| Line 925... |
Line 901... |
| 925 |
"N")
|
901 |
"N")
|
| 926 |
rsQry.AddNew varFields, varValues
|
902 |
rsQry.AddNew varFields, varValues
|
| 927 |
End If
|
903 |
End If
|
| 928 |
|
904 |
|
| 929 |
If isAbtnRequired(aAbtnList, "btnRejectProduct") Then
|
905 |
If isAbtnRequired(aAbtnList, "btnRejectProduct") Then
|
| 930 |
varValues = Array(35, "btnRejectProduct", null,_
|
906 |
varValues = Array("btnRejectProduct", null,_
|
| 931 |
"""_modify_product_state.asp?state_id=4&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
907 |
"""_modify_product_state.asp?state_id=4&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
| 932 |
"""vixConfirm('Do you want to REJECT this product from DEPLOYMENT?',{title:'Reject Product', button:'Reject', url: 'HREF'});""""""",_
|
908 |
"""vixConfirm('Do you want to REJECT this product from DEPLOYMENT?',{title:'Reject Product', button:'Reject', url: 'HREF'});""""""",_
|
| 933 |
"icons/i_reject_pending.gif",_
|
909 |
"icons/i_reject_pending.gif",_
|
| 934 |
null,_
|
910 |
null,_
|
| 935 |
"Reject this product from Deployment.",_
|
911 |
"Reject this product from Deployment.",_
|
| Line 939... |
Line 915... |
| 939 |
"N")
|
915 |
"N")
|
| 940 |
rsQry.AddNew varFields, varValues
|
916 |
rsQry.AddNew varFields, varValues
|
| 941 |
End If
|
917 |
End If
|
| 942 |
|
918 |
|
| 943 |
If isAbtnRequired(aAbtnList, "btnPendingIntegrateAndDeploy") Then
|
919 |
If isAbtnRequired(aAbtnList, "btnPendingIntegrateAndDeploy") Then
|
| 944 |
varValues = Array(36, "btnPendingIntegrateAndDeploy", null,_
|
920 |
varValues = Array("btnPendingIntegrateAndDeploy", null,_
|
| 945 |
"""_modify_product_state.asp?state_id=5&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
921 |
"""_modify_product_state.asp?state_id=5&rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
| 946 |
"""vixConfirm('Do you want to proceed to make this product pending for INTEGRATION and DEPLOYMENT?',{title:'Pending Product', button:'Confirm', url: 'HREF'});""""""",_
|
922 |
"""vixConfirm('Do you want to proceed to make this product pending for INTEGRATION and DEPLOYMENT?',{title:'Pending Product', button:'Confirm', url: 'HREF'});""""""",_
|
| 947 |
"icons/PendingDeployment.gif",_
|
923 |
"icons/PendingDeployment.gif",_
|
| 948 |
null,_
|
924 |
null,_
|
| 949 |
"Make this product pending for Integration and Deployment.",_
|
925 |
"Make this product pending for Integration and Deployment.",_
|
| Line 953... |
Line 929... |
| 953 |
"N")
|
929 |
"N")
|
| 954 |
rsQry.AddNew varFields, varValues
|
930 |
rsQry.AddNew varFields, varValues
|
| 955 |
End If
|
931 |
End If
|
| 956 |
|
932 |
|
| 957 |
If isAbtnRequired(aAbtnList, "btnDeleteSchedule") Then
|
933 |
If isAbtnRequired(aAbtnList, "btnDeleteSchedule") Then
|
| 958 |
varValues = Array(37, "btnDeleteSchedule", null,_
|
934 |
varValues = Array("btnDeleteSchedule", null,_
|
| 959 |
"""_DeleteSchedule.asp?scheduled_id=""& scheduled_id &""&""& objPMod.ComposeURL()",_
|
935 |
"""_DeleteSchedule.asp?scheduled_id=""& scheduled_id &""&""& objPMod.ComposeURL()",_
|
| 960 |
"""vixConfirm('Remove Schedule from this list?',{title:'Remove Schedule', button:'Remove', url: 'HREF'});""""""",_
|
936 |
"""vixConfirm('Remove Schedule from this list?',{title:'Remove Schedule', button:'Remove', url: 'HREF'});""""""",_
|
| 961 |
"icons/i_remove.gif",_
|
937 |
"icons/i_remove.gif",_
|
| 962 |
"icons/i_remove_dis.gif",_
|
938 |
"icons/i_remove_dis.gif",_
|
| 963 |
"Delete Schedule",_
|
939 |
"Delete Schedule",_
|
| Line 967... |
Line 943... |
| 967 |
"N")
|
943 |
"N")
|
| 968 |
rsQry.AddNew varFields, varValues
|
944 |
rsQry.AddNew varFields, varValues
|
| 969 |
End If
|
945 |
End If
|
| 970 |
|
946 |
|
| 971 |
If isAbtnRequired(aAbtnList, "btnApproveMerge") Then
|
947 |
If isAbtnRequired(aAbtnList, "btnApproveMerge") Then
|
| 972 |
varValues = Array(38, "btnApproveMerge", null,_
|
948 |
varValues = Array("btnApproveMerge", null,_
|
| 973 |
"""_approve_merge.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
949 |
"""_approve_merge.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id",_
|
| 974 |
"""vixConfirm('The release will be updated by this merge operation',{title:'Approve Merge', button:'Merge', url: 'HREF'});""""""",_
|
950 |
"""vixConfirm('The release will be updated by this merge operation',{title:'Approve Merge', button:'Merge', url: 'HREF'});""""""",_
|
| 975 |
"icons/i_make_released.gif",_
|
951 |
"icons/i_make_released.gif",_
|
| 976 |
"icons/i_make_released_off.gif",_
|
952 |
"icons/i_make_released_off.gif",_
|
| 977 |
"Approve and carry out the pending merge operation",_
|
953 |
"Approve and carry out the pending merge operation",_
|
| Line 981... |
Line 957... |
| 981 |
"N")
|
957 |
"N")
|
| 982 |
rsQry.AddNew varFields, varValues
|
958 |
rsQry.AddNew varFields, varValues
|
| 983 |
End If
|
959 |
End If
|
| 984 |
|
960 |
|
| 985 |
If isAbtnRequired(aAbtnList, "btnRejectAutobuildPackage") Then
|
961 |
If isAbtnRequired(aAbtnList, "btnRejectAutobuildPackage") Then
|
| 986 |
varValues = Array( 39, "btnRejectAutobuildPackage", null,_
|
962 |
varValues = Array("btnRejectAutobuildPackage", null,_
|
| 987 |
"""_make_rejected.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
963 |
"""_make_rejected.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 988 |
"""vixConfirm('Rejecting a package already approved for autobuild will set it back to Work-In-Progress',{title:'Reject Package', button:'Reject', url: 'HREF'});""""""",_
|
964 |
"""vixConfirm('Rejecting a package already approved for autobuild will set it back to Work-In-Progress',{title:'Reject Package', button:'Reject', url: 'HREF'});""""""",_
|
| 989 |
"icons/i_reject_pending.gif",_
|
965 |
"icons/i_reject_pending.gif",_
|
| 990 |
"icons/i_reject_pending_off.gif",_
|
966 |
"icons/i_reject_pending_off.gif",_
|
| 991 |
"Unapprove autobuild, move back to Work-In-Progress.",_
|
967 |
"Unapprove autobuild, move back to Work-In-Progress.",_
|
| Line 995... |
Line 971... |
| 995 |
"N")
|
971 |
"N")
|
| 996 |
rsQry.AddNew varFields, varValues
|
972 |
rsQry.AddNew varFields, varValues
|
| 997 |
End If
|
973 |
End If
|
| 998 |
|
974 |
|
| 999 |
If isAbtnRequired(aAbtnList, "btnDeleteDaemonInst") Then
|
975 |
If isAbtnRequired(aAbtnList, "btnDeleteDaemonInst") Then
|
| 1000 |
varValues = Array(40, "btnDeleteDaemonInst", null,_
|
976 |
varValues = Array("btnDeleteDaemonInst", null,_
|
| 1001 |
"""_DeleteDaemonInstruction.asp?rfile=""& ScriptName &""&inst_id=""& daemonInstId &""&""& objPMod.ComposeURL()",_
|
977 |
"""_DeleteDaemonInstruction.asp?rfile=""& ScriptName &""&inst_id=""& daemonInstId &""&""& objPMod.ComposeURL()",_
|
| 1002 |
"""vixConfirm('Delete the Daemon Instruction from this list?',{title:'Delete Instruction', button:'Delete', url: 'HREF', width : 350, height : 150});""""""",_
|
978 |
"""vixConfirm('Delete the Daemon Instruction from this list?',{title:'Delete Instruction', button:'Delete', url: 'HREF', width : 350, height : 150});""""""",_
|
| 1003 |
"icons/i_remove.gif",_
|
979 |
"icons/i_remove.gif",_
|
| 1004 |
null,_
|
980 |
null,_
|
| 1005 |
"Delete this Daemon Instruction",_
|
981 |
"Delete this Daemon Instruction",_
|
| Line 1009... |
Line 985... |
| 1009 |
"N")
|
985 |
"N")
|
| 1010 |
rsQry.AddNew varFields, varValues
|
986 |
rsQry.AddNew varFields, varValues
|
| 1011 |
End If
|
987 |
End If
|
| 1012 |
|
988 |
|
| 1013 |
If isAbtnRequired(aAbtnList, "btnEditDaemonInst") Then
|
989 |
If isAbtnRequired(aAbtnList, "btnEditDaemonInst") Then
|
| 1014 |
varValues = Array(41, "btnEditDaemonInst", null,_
|
990 |
varValues = Array("btnEditDaemonInst", null,_
|
| 1015 |
"""javascript:;""",_
|
991 |
"""javascript:;""",_
|
| 1016 |
"""onClick=""""MM_openVixIFrame('wAddDaemonInstruction.asp?edit=true&inst_id=""& daemonInstId & ""&sort="" & parSortOrder & ""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Edit Daemon Instruction');""""""",_
|
992 |
"""onClick=""""MM_openVixIFrame('wAddDaemonInstruction.asp?edit=true&inst_id=""& daemonInstId & ""&sort="" & parSortOrder & ""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Edit Daemon Instruction');""""""",_
|
| 1017 |
"icons/i_edit.gif",_
|
993 |
"icons/i_edit.gif",_
|
| 1018 |
NULL,_
|
994 |
NULL,_
|
| 1019 |
"Edit this Daemon Instruction",_
|
995 |
"Edit this Daemon Instruction",_
|
| Line 1023... |
Line 999... |
| 1023 |
"N")
|
999 |
"N")
|
| 1024 |
rsQry.AddNew varFields, varValues
|
1000 |
rsQry.AddNew varFields, varValues
|
| 1025 |
End If
|
1001 |
End If
|
| 1026 |
|
1002 |
|
| 1027 |
If isAbtnRequired(aAbtnList, "btnAddDaemonInstRipplePackage") Then
|
1003 |
If isAbtnRequired(aAbtnList, "btnAddDaemonInstRipplePackage") Then
|
| 1028 |
varValues = Array(42, "btnAddDaemonInstRipplePackage", null,_
|
1004 |
varValues = Array("btnAddDaemonInstRipplePackage", null,_
|
| 1029 |
"""javascript:;""",_
|
1005 |
"""javascript:;""",_
|
| 1030 |
"""onClick=""""MM_openVixIFrame('wAddDaemonInstructionSimple.asp?op_code=0"" &""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Ripple or Test Build Package');""""""",_
|
1006 |
"""onClick=""""MM_openVixIFrame('wAddDaemonInstructionSimple.asp?op_code=0"" &""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Ripple or Test Build Package');""""""",_
|
| 1031 |
"images/ripplesquare.gif",_
|
1007 |
"images/ripplesquare.gif",_
|
| 1032 |
NULL,_
|
1008 |
NULL,_
|
| 1033 |
"Request the Build Daemon to ripple this package version",_
|
1009 |
"Request the Build Daemon to ripple this package version",_
|
| Line 1037... |
Line 1013... |
| 1037 |
"Y")
|
1013 |
"Y")
|
| 1038 |
rsQry.AddNew varFields, varValues
|
1014 |
rsQry.AddNew varFields, varValues
|
| 1039 |
End If
|
1015 |
End If
|
| 1040 |
|
1016 |
|
| 1041 |
If isAbtnRequired(aAbtnList, "btnDelDaemonInstRipplePackage") Then
|
1017 |
If isAbtnRequired(aAbtnList, "btnDelDaemonInstRipplePackage") Then
|
| 1042 |
varValues = Array(42, "btnDelDaemonInstRipplePackage", null,_
|
1018 |
varValues = Array("btnDelDaemonInstRipplePackage", null,_
|
| 1043 |
"""_DeleteDaemonInstruction.asp?rfile=""& ScriptName &""&opCode="" & OP_CODE_0_RIPPLE_BUILD_PACKAGE & ""&""& objPMod.ComposeURL()",_
|
1019 |
"""_DeleteDaemonInstruction.asp?rfile=""& ScriptName &""&opCode="" & OP_CODE_0_RIPPLE_BUILD_PACKAGE & ""&""& objPMod.ComposeURL()",_
|
| 1044 |
"""vixConfirm('Delete the Ripple Request?',{title:'Delete Ripple Request', button:'Delete', url: 'HREF', width : 350, height : 150});""""""",_
|
1020 |
"""vixConfirm('Delete the Ripple Request?',{title:'Delete Ripple Request', button:'Delete', url: 'HREF', width : 350, height : 150});""""""",_
|
| 1045 |
"images/CascadeSquareDel.gif",_
|
1021 |
"images/CascadeSquareDel.gif",_
|
| 1046 |
NULL,_
|
1022 |
NULL,_
|
| 1047 |
"Delete the Ripple Request",_
|
1023 |
"Delete the Ripple Request",_
|
| Line 1051... |
Line 1027... |
| 1051 |
"Y")
|
1027 |
"Y")
|
| 1052 |
rsQry.AddNew varFields, varValues
|
1028 |
rsQry.AddNew varFields, varValues
|
| 1053 |
End If
|
1029 |
End If
|
| 1054 |
|
1030 |
|
| 1055 |
If isAbtnRequired(aAbtnList, "btnDelDaemonInstTestPackage") Then
|
1031 |
If isAbtnRequired(aAbtnList, "btnDelDaemonInstTestPackage") Then
|
| 1056 |
varValues = Array(42, "btnDelDaemonInstTestPackage", null,_
|
1032 |
varValues = Array("btnDelDaemonInstTestPackage", null,_
|
| 1057 |
"""_DeleteDaemonInstruction.asp?rfile=""& ScriptName &""&opCode="" & OP_CODE_1_TEST_BUILD_PACKAGE & ""&""& objPMod.ComposeURL()",_
|
1033 |
"""_DeleteDaemonInstruction.asp?rfile=""& ScriptName &""&opCode="" & OP_CODE_1_TEST_BUILD_PACKAGE & ""&""& objPMod.ComposeURL()",_
|
| 1058 |
"""vixConfirm('Delete the Test Build Request?',{title:'Delete Test Build Request', button:'Delete', url: 'HREF', width : 350, height : 150});""""""",_
|
1034 |
"""vixConfirm('Delete the Test Build Request?',{title:'Delete Test Build Request', button:'Delete', url: 'HREF', width : 350, height : 150});""""""",_
|
| 1059 |
"images/testSquareDel.gif",_
|
1035 |
"images/testSquareDel.gif",_
|
| 1060 |
NULL,_
|
1036 |
NULL,_
|
| 1061 |
"Delete the Test Build Request",_
|
1037 |
"Delete the Test Build Request",_
|
| Line 1066... |
Line 1042... |
| 1066 |
rsQry.AddNew varFields, varValues
|
1042 |
rsQry.AddNew varFields, varValues
|
| 1067 |
End If
|
1043 |
End If
|
| 1068 |
|
1044 |
|
| 1069 |
|
1045 |
|
| 1070 |
If isAbtnRequired(aAbtnList, "btnAddDaemonInstTestBuildPackage") Then
|
1046 |
If isAbtnRequired(aAbtnList, "btnAddDaemonInstTestBuildPackage") Then
|
| 1071 |
varValues = Array(43, "btnAddDaemonInstTestBuildPackage", null,_
|
1047 |
varValues = Array("btnAddDaemonInstTestBuildPackage", null,_
|
| 1072 |
"""javascript:;""",_
|
1048 |
"""javascript:;""",_
|
| 1073 |
"""onClick=""""MM_openVixIFrame('wAddDaemonInstruction.asp?op_code=1"" &""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Add Daemon Instruction');""""""",_
|
1049 |
"""onClick=""""MM_openVixIFrame('wAddDaemonInstruction.asp?op_code=1"" &""&rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Add Daemon Instruction');""""""",_
|
| 1074 |
"images/abtn_test_build.gif",_
|
1050 |
"images/abtn_test_build.gif",_
|
| 1075 |
NULL,_
|
1051 |
NULL,_
|
| 1076 |
"Request the Build Daemon to test build this WIP package version",_
|
1052 |
"Request the Build Daemon to test build this WIP package version",_
|
| Line 1080... |
Line 1056... |
| 1080 |
"N")
|
1056 |
"N")
|
| 1081 |
rsQry.AddNew varFields, varValues
|
1057 |
rsQry.AddNew varFields, varValues
|
| 1082 |
End If
|
1058 |
End If
|
| 1083 |
|
1059 |
|
| 1084 |
If isAbtnRequired(aAbtnList, "btnMoveWIPToRelease") Then
|
1060 |
If isAbtnRequired(aAbtnList, "btnMoveWIPToRelease") Then
|
| 1085 |
varValues = Array( 44, "btnMoveWIPToRelease", null,_
|
1061 |
varValues = Array("btnMoveWIPToRelease", null,_
|
| 1086 |
"""javascript:;""",_
|
1062 |
"""javascript:;""",_
|
| 1087 |
"""onClick=""""MM_openVixIFrame('_wform_move_wip.asp"" &""?rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Move WIP');""""""",_
|
1063 |
"""onClick=""""MM_openVixIFrame('_wform_move_wip.asp"" &""?rfile=""& ScriptName &""&""& objPMod.ComposeURL() &""','Move WIP');""""""",_
|
| 1088 |
"images/abtn_move_wip_to_release.gif",_
|
1064 |
"images/abtn_move_wip_to_release.gif",_
|
| 1089 |
"images/abtn_move_wip_to_release_off.gif",_
|
1065 |
"images/abtn_move_wip_to_release_off.gif",_
|
| 1090 |
"Move this WIP to another release.",_
|
1066 |
"Move this WIP to another release.",_
|
| Line 1094... |
Line 1070... |
| 1094 |
"N")
|
1070 |
"N")
|
| 1095 |
rsQry.AddNew varFields, varValues
|
1071 |
rsQry.AddNew varFields, varValues
|
| 1096 |
End If
|
1072 |
End If
|
| 1097 |
|
1073 |
|
| 1098 |
If isAbtnRequired(aAbtnList, "btnLockPackage") Then
|
1074 |
If isAbtnRequired(aAbtnList, "btnLockPackage") Then
|
| 1099 |
varValues = Array( 45, "btnLockPackage", null,_
|
1075 |
varValues = Array("btnLockPackage", null,_
|
| 1100 |
"""_s_lock_package.asp?pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
1076 |
"""_s_lock_package.asp?pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 1101 |
"""vixConfirm('Lock Package.<p>This will prevent changes to the package.',{title:'Lock Package', button:'Lock', url: 'HREF'});""""""",_
|
1077 |
"""vixConfirm('Lock Package.<p>This will prevent changes to the package.',{title:'Lock Package', button:'Lock', url: 'HREF'});""""""",_
|
| 1102 |
"icons/i_lock.gif",_
|
1078 |
"icons/i_lock.gif",_
|
| 1103 |
"icons/i_lock_off.gif",_
|
1079 |
"icons/i_lock_off.gif",_
|
| 1104 |
"Lock this package.",_
|
1080 |
"Lock this package.",_
|
| Line 1108... |
Line 1084... |
| 1108 |
"N")
|
1084 |
"N")
|
| 1109 |
rsQry.AddNew varFields, varValues
|
1085 |
rsQry.AddNew varFields, varValues
|
| 1110 |
End If
|
1086 |
End If
|
| 1111 |
|
1087 |
|
| 1112 |
If isAbtnRequired(aAbtnList, "btnUnLockPackage") Then
|
1088 |
If isAbtnRequired(aAbtnList, "btnUnLockPackage") Then
|
| 1113 |
varValues = Array( 46, "btnUnLockPackage", null,_
|
1089 |
varValues = Array("btnUnLockPackage", null,_
|
| 1114 |
"""_s_unlock_package.asp?pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
1090 |
"""_s_unlock_package.asp?pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
|
| 1115 |
"""vixConfirm('Unlock Package.<p>This may have serious side effects.',{title:'Unlock Package', button:'Unlock', url: 'HREF'});""""""",_
|
1091 |
"""vixConfirm('Unlock Package.<p>This may have serious side effects.',{title:'Unlock Package', button:'Unlock', url: 'HREF'});""""""",_
|
| 1116 |
"icons/i_unlock.gif",_
|
1092 |
"icons/i_unlock.gif",_
|
| 1117 |
"icons/i_unlock_off.gif",_
|
1093 |
"icons/i_unlock_off.gif",_
|
| 1118 |
"Unlock this package.",_
|
1094 |
"Unlock this package.",_
|
| Line 1124... |
Line 1100... |
| 1124 |
End If
|
1100 |
End If
|
| 1125 |
|
1101 |
|
| 1126 |
|
1102 |
|
| 1127 |
|
1103 |
|
| 1128 |
If isAbtnRequired(aAbtnList, "btnEditProjectExtensions") Then
|
1104 |
If isAbtnRequired(aAbtnList, "btnEditProjectExtensions") Then
|
| 1129 |
varValues = Array(29, "btnEditProjectExtensions", null,_
|
1105 |
varValues = Array("btnEditProjectExtensions", null,_
|
| 1130 |
"""javascript:;""",_
|
1106 |
"""javascript:;""",_
|
| 1131 |
"""onClick=""""MM_openVixIFrame('wAddProjectExtension.asp?type=edit&ext=""& extName &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Project Extension');""""""",_
|
1107 |
"""onClick=""""MM_openVixIFrame('wAddProjectExtension.asp?type=edit&ext=""& extName &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Project Extension');""""""",_
|
| 1132 |
"icons/i_edit.gif",_
|
1108 |
"icons/i_edit.gif",_
|
| 1133 |
NULL,_
|
1109 |
NULL,_
|
| 1134 |
"Edit Project Extensions",_
|
1110 |
"Edit Project Extensions",_
|
| Line 1138... |
Line 1114... |
| 1138 |
"N")
|
1114 |
"N")
|
| 1139 |
rsQry.AddNew varFields, varValues
|
1115 |
rsQry.AddNew varFields, varValues
|
| 1140 |
End If
|
1116 |
End If
|
| 1141 |
|
1117 |
|
| 1142 |
If isAbtnRequired(aAbtnList, "btnDeleteProjectExtension") Then
|
1118 |
If isAbtnRequired(aAbtnList, "btnDeleteProjectExtension") Then
|
| 1143 |
varValues = Array(30, "btnDeleteProjectExtension", null,_
|
1119 |
varValues = Array("btnDeleteProjectExtension", null,_
|
| 1144 |
"""_DeleteProjectExtension.asp?rfile=""& SCRIPT_NAME &""&ext=""& extName &""&""& objPMod.ComposeURL()",_
|
1120 |
"""_DeleteProjectExtension.asp?rfile=""& SCRIPT_NAME &""&ext=""& extName &""&""& objPMod.ComposeURL()",_
|
| 1145 |
"""vixConfirm('Remove Project Extension: \'""& extName &""\' from this list?<p>This will prevent it from being used in new package versions.',{title:'Remove Project Extension', button:'Remove', url: 'HREF'});""""""",_
|
1121 |
"""vixConfirm('Remove Project Extension: \'""& extName &""\' from this list?<p>This will prevent it from being used in new package versions.',{title:'Remove Project Extension', button:'Remove', url: 'HREF'});""""""",_
|
| 1146 |
"icons/i_remove.gif",_
|
1122 |
"icons/i_remove.gif",_
|
| 1147 |
null,_
|
1123 |
null,_
|
| 1148 |
"Delete Project Extension",_
|
1124 |
"Delete Project Extension",_
|
| Line 1152... |
Line 1128... |
| 1152 |
"N")
|
1128 |
"N")
|
| 1153 |
rsQry.AddNew varFields, varValues
|
1129 |
rsQry.AddNew varFields, varValues
|
| 1154 |
End If
|
1130 |
End If
|
| 1155 |
|
1131 |
|
| 1156 |
If isAbtnRequired(aAbtnList, "btnEditGBE_Machclass") Then
|
1132 |
If isAbtnRequired(aAbtnList, "btnEditGBE_Machclass") Then
|
| 1157 |
varValues = Array(31, "btnEditGBE_Machclass", null,_
|
1133 |
varValues = Array("btnEditGBE_Machclass", null,_
|
| 1158 |
"""javascript:;""",_
|
1134 |
"""javascript:;""",_
|
| 1159 |
"""onClick=""""MM_openVixIFrame('wAddMachclass.asp?type=edit&bm_id=""& bm_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Machine Class');""""""",_
|
1135 |
"""onClick=""""MM_openVixIFrame('wAddMachclass.asp?type=edit&bm_id=""& bm_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Machine Class');""""""",_
|
| 1160 |
"icons/i_edit.gif",_
|
1136 |
"icons/i_edit.gif",_
|
| 1161 |
NULL,_
|
1137 |
NULL,_
|
| 1162 |
"Edit this GBE MachClass value",_
|
1138 |
"Edit this GBE MachClass value",_
|
| Line 1166... |
Line 1142... |
| 1166 |
"N")
|
1142 |
"N")
|
| 1167 |
rsQry.AddNew varFields, varValues
|
1143 |
rsQry.AddNew varFields, varValues
|
| 1168 |
End If
|
1144 |
End If
|
| 1169 |
|
1145 |
|
| 1170 |
If isAbtnRequired(aAbtnList, "btnDeleteGBE_Machclass") Then
|
1146 |
If isAbtnRequired(aAbtnList, "btnDeleteGBE_Machclass") Then
|
| 1171 |
varValues = Array(32, "btnDeleteGBE_Machclass", null,_
|
1147 |
varValues = Array("btnDeleteGBE_Machclass", null,_
|
| 1172 |
"""wAddMachclass.asp?type=delete&bm_id=""& bm_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL()",_
|
1148 |
"""wAddMachclass.asp?type=delete&bm_id=""& bm_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL()",_
|
| 1173 |
"""vixConfirm('Delete the \'""& GBE_VALUE &""\' Machine Class',{title:'Delete Machine Class', button:'Delete', url: 'HREF'});""""""",_
|
1149 |
"""vixConfirm('Delete the \'""& GBE_VALUE &""\' Machine Class',{title:'Delete Machine Class', button:'Delete', url: 'HREF'});""""""",_
|
| 1174 |
"icons/i_remove.gif",_
|
1150 |
"icons/i_remove.gif",_
|
| 1175 |
null,_
|
1151 |
null,_
|
| 1176 |
"Delete this GBE MachClass value",_
|
1152 |
"Delete this GBE MachClass value",_
|
| Line 1180... |
Line 1156... |
| 1180 |
"N")
|
1156 |
"N")
|
| 1181 |
rsQry.AddNew varFields, varValues
|
1157 |
rsQry.AddNew varFields, varValues
|
| 1182 |
End If
|
1158 |
End If
|
| 1183 |
|
1159 |
|
| 1184 |
If isAbtnRequired(aAbtnList, "btnEditGBE_BuildStandard") Then
|
1160 |
If isAbtnRequired(aAbtnList, "btnEditGBE_BuildStandard") Then
|
| 1185 |
varValues = Array(48, "btnEditGBE_BuildStandard", null,_
|
1161 |
varValues = Array("btnEditGBE_BuildStandard", null,_
|
| 1186 |
"""javascript:;""",_
|
1162 |
"""javascript:;""",_
|
| 1187 |
"""onClick=""""MM_openVixIFrame('wAddBuildStandard.asp?type=edit&bsa_id=""& bsa_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Build Standard');""""""",_
|
1163 |
"""onClick=""""MM_openVixIFrame('wAddBuildStandard.asp?type=edit&bsa_id=""& bsa_id &""&rfile=""& SCRIPT_NAME &""&""& objPMod.ComposeURL() &""','Edit Build Standard');""""""",_
|
| 1188 |
"icons/i_edit.gif",_
|
1164 |
"icons/i_edit.gif",_
|
| 1189 |
NULL,_
|
1165 |
NULL,_
|
| 1190 |
"Edit this Build Standard",_
|
1166 |
"Edit this Build Standard",_
|
| Line 1194... |
Line 1170... |
| 1194 |
"N")
|
1170 |
"N")
|
| 1195 |
rsQry.AddNew varFields, varValues
|
1171 |
rsQry.AddNew varFields, varValues
|
| 1196 |
End If
|
1172 |
End If
|
| 1197 |
|
1173 |
|
| 1198 |
If isAbtnRequired(aAbtnList, "btnDeleteGBE_BuildStandard") Then
|
1174 |
If isAbtnRequired(aAbtnList, "btnDeleteGBE_BuildStandard") Then
|
| 1199 |
varValues = Array(49, "btnDeleteGBE_BuildStandard", null,_
|
1175 |
varValues = Array("btnDeleteGBE_BuildStandard", null,_
|
| 1200 |
"""_DeleteBuildStandard.asp?rfile=""& SCRIPT_NAME &""&bsa_id=""& bsa_id &""&""& objPMod.ComposeURL()",_
|
1176 |
"""_DeleteBuildStandard.asp?rfile=""& SCRIPT_NAME &""&bsa_id=""& bsa_id &""&""& objPMod.ComposeURL()",_
|
| 1201 |
"""vixConfirm('Delete the \'""& GBE_VALUE &""\' Build Standard',{title : 'Delete Build Standard', button:'Delete', url: 'HREF'});""""""",_
|
1177 |
"""vixConfirm('Delete the \'""& GBE_VALUE &""\' Build Standard',{title : 'Delete Build Standard', button:'Delete', url: 'HREF'});""""""",_
|
| 1202 |
"icons/i_remove.gif",_
|
1178 |
"icons/i_remove.gif",_
|
| 1203 |
null,_
|
1179 |
null,_
|
| 1204 |
"Delete this Build Standard",_
|
1180 |
"Delete this Build Standard",_
|
| Line 1263... |
Line 1239... |
| 1263 |
'-----------------------------------------------------------------------------------------------------------------
|
1239 |
'-----------------------------------------------------------------------------------------------------------------
|
| 1264 |
Public Sub Text ( sItemName, Value )
|
1240 |
Public Sub Text ( sItemName, Value )
|
| 1265 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxTxt, Value )
|
1241 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxTxt, Value )
|
| 1266 |
End Sub
|
1242 |
End Sub
|
| 1267 |
'-----------------------------------------------------------------------------------------------------------------
|
1243 |
'-----------------------------------------------------------------------------------------------------------------
|
| 1268 |
Public Sub ItemID ( sItemName, Value )
|
- |
|
| 1269 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxID, Value )
|
- |
|
| 1270 |
End Sub
|
- |
|
| 1271 |
'-----------------------------------------------------------------------------------------------------------------
|
- |
|
| 1272 |
Public Sub Image ( sItemName, Value )
|
1244 |
Public Sub Image ( sItemName, Value )
|
| 1273 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxImg, Value )
|
1245 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxImg, Value )
|
| 1274 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxImgOff, Value ) ' Default image disable to be the same as image
|
1246 |
Call SetItemPropertyByIndex ( mobjNameDefMap.Item (Cstr(sItemName)), InxImgOff, Value ) ' Default image disable to be the same as image
|
| 1275 |
End Sub
|
1247 |
End Sub
|
| 1276 |
'-----------------------------------------------------------------------------------------------------------------
|
1248 |
'-----------------------------------------------------------------------------------------------------------------
|
| Line 1324... |
Line 1296... |
| 1324 |
mReadonlyActionBehaviour = enumABTNCTRL_ON_READONLY_HIDE ' Tell control what to do by default if mbIsReadonly = TRUE
|
1296 |
mReadonlyActionBehaviour = enumABTNCTRL_ON_READONLY_HIDE ' Tell control what to do by default if mbIsReadonly = TRUE
|
| 1325 |
|
1297 |
|
| 1326 |
mnButtonSpacer = 0
|
1298 |
mnButtonSpacer = 0
|
| 1327 |
mnImageHspace = 4
|
1299 |
mnImageHspace = 4
|
| 1328 |
|
1300 |
|
| 1329 |
mNumOfProperties = 12 ' Number of properties in array which define one menu item.
|
1301 |
mNumOfProperties = 11 ' Number of properties in array which define one menu item.
|
| 1330 |
mLastPropertyInx = mNumOfProperties - 1
|
1302 |
mLastPropertyInx = mNumOfProperties - 1
|
| 1331 |
|
1303 |
|
| 1332 |
mbDisableAll = FALSE
|
1304 |
mbDisableAll = FALSE
|
| 1333 |
|
1305 |
|
| 1334 |
ReDim mArrAbtnDef ( mNumOfProperties, -1 )
|
1306 |
ReDim mArrAbtnDef ( mNumOfProperties, -1 )
|
| 1335 |
InxID = 0
|
- |
|
| 1336 |
InxName = 1
|
1307 |
InxName = 0
|
| 1337 |
InxTxt = 2
|
1308 |
InxTxt = 1
|
| 1338 |
InxLink = 3
|
1309 |
InxLink = 2
|
| 1339 |
InxEventHandler = 4
|
1310 |
InxEventHandler = 3
|
| 1340 |
InxImg = 5
|
1311 |
InxImg = 4
|
| 1341 |
InxImgOff = 6
|
1312 |
InxImgOff = 5
|
| 1342 |
InxHint = 7
|
1313 |
InxHint = 6
|
| 1343 |
InxVisible = 8
|
1314 |
InxVisible = 7
|
| 1344 |
InxActive = 9
|
1315 |
InxActive = 8
|
| 1345 |
InxIsReadonlyAction = 10
|
1316 |
InxIsReadonlyAction = 9
|
| 1346 |
InxHideOnClosed = 11
|
1317 |
InxHideOnClosed = 10
|
| 1347 |
|
- |
|
| 1348 |
End Sub
|
1318 |
End Sub
|
| 1349 |
'-----------------------------------------------------------------------------------------------------------------
|
1319 |
'-----------------------------------------------------------------------------------------------------------------
|
| 1350 |
Private Sub Class_Terminate()
|
1320 |
Private Sub Class_Terminate()
|
| 1351 |
'// Perform action on object disposal. e.g. Set myObj = Nothing
|
1321 |
'// Perform action on object disposal. e.g. Set myObj = Nothing
|
| 1352 |
Set mobjNameDefMap = Nothing
|
1322 |
Set mobjNameDefMap = Nothing
|