Subversion Repositories DevTools

Rev

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

Rev 177 Rev 183
Line 410... Line 410...
410 
         varValues = Array( 5, "btnMakeUnrelease", null,_
 410 
         varValues = Array( 5, "btnMakeUnrelease", null,_
411 
                           """_make_unreleased.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
 411 
                           """_make_unreleased.asp?rfile=""& ScriptName &""&pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
412 
                           """onClick=""""return confirmAction('You are going to unrelease this package. \nDo you want to proceed?');""""""",_
 412 
                           """onClick=""""return confirmAction('You are going to unrelease this package. \nDo you want to proceed?');""""""",_
413 
                           "icons/i_make_unreleased.gif",_
 413 
                           "icons/i_make_unreleased.gif",_
414 
                           "icons/i_make_unreleased_off.gif",_
 414 
                           "icons/i_make_unreleased_off.gif",_
415 
                           "Unlock this package.",_
 415 
                           "Unrelease this package.",_
416 
                           "Y",_
 416 
                           "Y",_
417 
                           "Y",_
 417 
                           "Y",_
418 
                           "N")
 418 
                           "N")
419 
         rsQry.AddNew varFields, varValues
 419 
         rsQry.AddNew varFields, varValues
420 
      End If
 420 
      End If
Line 939... Line 939...
939 
                           "Y",_
 939 
                           "Y",_
940 
                           "Y",_
 940 
                           "Y",_
941 
                           "N")
 941 
                           "N")
942 
         rsQry.AddNew varFields, varValues
 942 
         rsQry.AddNew varFields, varValues
943 
      End If
 943 
      End If
- 
 
 944 
 
- 
 
 945 
      If isAbtnRequired(aAbtnList, "btnLockPackage") Then
- 
 
 946 
         varValues = Array( 45, "btnLockPackage", null,_
- 
 
 947 
                           """_s_lock_package.asp?pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
- 
 
 948 
                           """onClick=""""return confirmAction('You are going to lock this package. \nDo you want to proceed?');""""""",_
- 
 
 949 
                           "icons/i_lock.gif",_
- 
 
 950 
                           "icons/i_lock_off.gif",_
- 
 
 951 
                           "Lock this package.",_
- 
 
 952 
                           "Y",_
- 
 
 953 
                           "Y",_
- 
 
 954 
                           "N")
- 
 
 955 
         rsQry.AddNew varFields, varValues
- 
 
 956 
      End If
- 
 
 957 
 
- 
 
 958 
      If isAbtnRequired(aAbtnList, "btnUnLockPackage") Then
- 
 
 959 
         varValues = Array( 46, "btnUnLockPackage", null,_
- 
 
 960 
                           """_s_unlock_package.asp?pv_id=""& parPv_id &""&rtag_id=""& parRtag_id ",_
- 
 
 961 
                           """onClick=""""return confirmAction('You are going to unlock this package. \nDo you want to proceed?');""""""",_
- 
 
 962 
                           "icons/i_unlock.gif",_
- 
 
 963 
                           "icons/i_unlock_off.gif",_
- 
 
 964 
                           "Unlock this package.",_
- 
 
 965 
                           "Y",_
- 
 
 966 
                           "Y",_
- 
 
 967 
                           "N")
- 
 
 968 
         rsQry.AddNew varFields, varValues
- 
 
 969 
      End If
944 
 
 970 
 
945 
      ' Move cursor to the first record
 971 
      ' Move cursor to the first record
946 
      rsQry.MoveFirst
 972 
      rsQry.MoveFirst
947 
 
 973 
 
948 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
 974 
      If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then