Subversion Repositories DevTools

Rev

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

Rev 4955 Rev 5146
Line 71... Line 71...
71 
'-----------------------  MAIN LINE  ---------------------------
 71 
'-----------------------  MAIN LINE  ---------------------------
72 
 
 72 
 
73 
'--- Process submition ---
 73 
'--- Process submition ---
74 
If ( Request("rtag_id") <> "") AND (Request("pv_id") <> "") Then
 74 
If ( Request("rtag_id") <> "") AND (Request("pv_id") <> "") Then
75 
 
 75 
 
- 
 
 76 
   If NOT canAddToRelease(Request("rtag_id"),Request("pv_id") ) Then
- 
 
 77 
        Call RaiseMsg ( enum_MSG_ERROR, _
- 
 
 78 
                        "<h3>Cannot progress a package that is a part of an SDK.</h3>" &_
- 
 
 79 
                        "<p>If the package is a WIP, then consider moving it to a different Release." _
- 
 
 80 
                      )
- 
 
 81 
   End If
- 
 
 82 
 
76 
   Call CheckRequirementsForMakePending ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
 83 
   Call CheckRequirementsForMakePending ( parPv_id, parRtag_id, pkgType, retERRmsg, retALRTmsg, retParameters )
77 
 
 84 
 
78 
   If IsNull(retERRmsg) Then
 85 
   If IsNull(retERRmsg) Then
79 
      ' All Requirements OK
 86 
      ' All Requirements OK
80 
      'COMPLETE THE REQUEST...
 87 
      'COMPLETE THE REQUEST...