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