Subversion Repositories DevTools

Rev

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

Rev 4 Rev 8
Line 533... Line 533...
533 
                           "Y",_
 533 
                           "Y",_
534 
                           "Y")
 534 
                           "Y")
535 
         rsQry.AddNew varFields, varValues
 535 
         rsQry.AddNew varFields, varValues
536 
      End If
 536 
      End If
537 
 
 537 
 
538 
      ' NOTE: Jeremy added this one as part of a change that never got released and can be seen by looking at the manager_suite_development_dump
 - 
 
539 
      ' branch and/or MANAGER_SUITE_DEVELOPMENT_DUMP label.
 - 
 
540 
      'If isAbtnRequired(aAbtnList, "btnAddApplicationUser") Then
 538 
      If isAbtnRequired(aAbtnList, "btnAddApplicationUser") Then
541 
      '   varValues = Array(21,"btnAddApplicationUser","Add To Application",_
 539 
         varValues = Array(21,"btnAddApplicationUser","Add To Application",_
542 
      '                     """javascript:;""",_
 540 
                           """javascript:;""",_
543 
      '                     """onClick=""""MM_openBrWindow('wAddToApplication.asp?rfile=User_Applications.asp&""& objPMod.ComposeURL() &""','AddToApplication','scrollbars=yes,resizable=yes,width=450,height=350');""""""",_
 541 
                           """onClick=""""MM_openBrWindow('wAddToApplication.asp?rfile=User_Applications.asp&""& objPMod.ComposeURL() &""','AddToApplication','scrollbars=yes,resizable=yes,width=450,height=350');""""""",_
544 
      '                     "images/btn_add_application.gif",_
 542 
                           "images/btn_add_application.gif",_
545 
      '                     null,_
 - 
 
546 
      '                     null,_
 - 
 
547 
      '                     "Y",_
 - 
 
548 
      '                     "Y",_
 - 
 
549 
      '                     "N")
 - 
 
550 
      '   rsQry.AddNew varFields, varValues
 - 
 
551 
      'End If
 - 
 
552 
 
 - 
 
553 
      ' NOTE: Jeremy added this one as part of a change that never got released and can be seen by looking at the manager_suite_development_dump
 - 
 
554 
      ' branch and/or MANAGER_SUITE_DEVELOPMENT_DUMP label.
 - 
 
555 
      'If isAbtnRequired(aAbtnList, "btnSubApplicationUser") Then
 - 
 
556 
      '   varValues = Array(22,"btnSubApplicationUser","Remove From Application",_
 - 
 
557 
      '                     """javascript:;""",_
 - 
 
558 
      '                     """onClick=""""MM_openBrWindow('wRemoveFromApplication.asp?rfile=User_Applications.asp&""& objPMod.ComposeURLWith(""user_id,tree"") &""','RemoveFromApplication','scrollbars=yes,resizable=yes,width=450,height=350');""""""",_
 - 
 
559 
      '                     "images/btn_sub_application.gif",_
 - 
 
560 
      '                     null,_
 543 
                           null,_
561 
      '                     null,_
 544 
                           null,_
562 
      '                     "Y",_
 545 
                           "Y",_
563 
      '                     "Y",_
 546 
                           "Y",_
564 
      '                     "N")
 547 
                           "N")
565 
      '   rsQry.AddNew varFields, varValues
 548 
         rsQry.AddNew varFields, varValues
566 
      'End If
 549 
      End If
567 
 
 550 
 
- 
 
 551 
      If isAbtnRequired(aAbtnList, "btnSubApplicationUser") Then
- 
 
 552 
         varValues = Array(22,"btnSubApplicationUser","Remove From Application",_
- 
 
 553 
                           """javascript:;""",_
- 
 
 554 
                           """onClick=""""MM_openBrWindow('wRemoveFromApplication.asp?rfile=User_Applications.asp&""& objPMod.ComposeURLWith(""user_id,tree"") &""','RemoveFromApplication','scrollbars=yes,resizable=yes,width=450,height=350');""""""",_
- 
 
 555 
                           "images/btn_sub_application.gif",_
- 
 
 556 
                           null,_
- 
 
 557 
                           null,_
- 
 
 558 
                           "Y",_
- 
 
 559 
                           "Y",_
- 
 
 560 
                           "N")
- 
 
 561 
         rsQry.AddNew varFields, varValues
- 
 
 562 
      End If
- 
 
 563 
 
568 
      ' NOTE: Along with the two commented out action buttons above, Jeremy may have intended to add another to allow access to the wEditAccount.asp
 564 
      ' NOTE: Jeremy may have intended to add another to allow access to the wEditAccount.asp
569 
      ' file (on manager_suite_development_dump branch). It seemed like he never got around to it though.
 565 
      ' file (on manager_suite_development_dump branch). It seemed like he never got around to it though.
570 
 
 566 
 
571 
 
 567 
 
572 
      ' Move cursor to the first record
 568 
      ' Move cursor to the first record
- 
 
 569 
      If rsQry.RecordCount > 0 Then
573 
      rsQry.MoveFirst
 570 
         rsQry.MoveFirst
574 
 
 571 
 
575 
		If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 572 
         If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
576 
			Call LoadButtons ( rsQry.GetRows() )
 573 
            Call LoadButtons ( rsQry.GetRows() )
577 
 
 574 
         End If
578 
		End If
 575 
      End If
579 
 
 576 
 
580 
		rsQry.Close
 577 
		rsQry.Close
581 
		Set rsQry = Nothing
 578 
		Set rsQry = Nothing
582 
	End Sub
 579 
	End Sub
583 
	'-----------------------------------------------------------------------------------------------------------------
 580 
	'-----------------------------------------------------------------------------------------------------------------