Subversion Repositories DevTools

Rev

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

Rev 149 Rev 157
Line 446... Line 446...
446 
      End If
 446 
      End If
447 
 
 447 
 
448 
      If isAbtnRequired(aAbtnList, "btnMoveToView") Then
 448 
      If isAbtnRequired(aAbtnList, "btnMoveToView") Then
449 
         varValues = Array( 8, "btnMoveToView", null,_
 449 
         varValues = Array( 8, "btnMoveToView", null,_
450 
                           """javascript:;""",_
 450 
                           """javascript:;""",_
451 
                           """onClick=""""MM_openBrWindow('_wform_change_group.asp?""& objPMod.ComposeURL() &""','MovePackage','resizable=yes,width=400,height=200');""""""",_
 451 
                           """onClick=""""MM_openBrWindow('_wform_change_group.asp?""& objPMod.ComposeURL() &""','MovePackage','resizable=yes,width=600,height=200');""""""",_
452 
                           "images/abtn_move_package.gif",_
 452 
                           "images/abtn_move_package.gif",_
453 
                           null,_
 453 
                           null,_
454 
                           "Move this package to different Base View (Group).",_
 454 
                           "Move this package to different Base View (Group).",_
455 
                           "Y",_
 455 
                           "Y",_
456 
                           "Y",_
 456 
                           "Y",_
Line 900... Line 900...
900 
                           "Y",_
 900 
                           "Y",_
901 
                           "Y",_
 901 
                           "Y",_
902 
                           "N")
 902 
                           "N")
903 
         rsQry.AddNew varFields, varValues
 903 
         rsQry.AddNew varFields, varValues
904 
      End If
 904 
      End If
- 
 
 905 
 
- 
 
 906 
      If isAbtnRequired(aAbtnList, "btnMoveWIPToRelease") Then
- 
 
 907 
         varValues = Array( 44, "btnMoveWIPToRelease", null,_
- 
 
 908 
                           """javascript:;""",_
- 
 
 909 
                           """onClick=""""MM_openBrWindow('_wform_move_wip.asp"" &""?rfile=""& ScriptName &""&""&  objPMod.ComposeURL() &""','MoveWIP','resizable=yes,width=800,height=400');""""""",_
- 
 
 910 
                           "images/abtn_move_wip_to_release.gif",_
- 
 
 911 
                           null,_
- 
 
 912 
                           "Move this WIP to another release.",_
- 
 
 913 
                           "Y",_
- 
 
 914 
                           "Y",_
- 
 
 915 
                           "N")
- 
 
 916 
         rsQry.AddNew varFields, varValues
- 
 
 917 
      End If
905 
 
 918 
 
906 
      ' Move cursor to the first record
 919 
      ' Move cursor to the first record
907 
      rsQry.MoveFirst
 920 
      rsQry.MoveFirst
908 
 
 921 
 
909 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 922 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then