Subversion Repositories DevTools

Rev

Rev 5506 | Rev 6924 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 5506 Rev 5957
Line 263... Line 263...
263 
'Dim Item
 263 
'Dim Item
264 
'For Each Item In Request.Form
 264 
'For Each Item In Request.Form
265 
'    Response.Write "User Data: " &Item & ": " & Request.Form(Item) & "<br>"
 265 
'    Response.Write "User Data: " &Item & ": " & Request.Form(Item) & "<br>"
266 
'Next
 266 
'Next
267 
'Response.Write "------------<br></pre>"
 267 
'Response.Write "------------<br></pre>"
- 
 
 268 
'Call Destroy_All_Objects
268 
'Response.End
 269 
'Response.End
269 
 
 270 
 
270 
'--- Process submission ---
 271 
'--- Process submission ---
271 
If ((parNewPackage <> "") AND parNewPackage) Then
 272 
If ((parNewPackage <> "") AND parNewPackage) Then
272 
    '
 273 
    '
Line 367... Line 368...
367 
          '  Set objRC = Nothing
 368 
          '  Set objRC = Nothing
368 
          'End If
 369 
          'End If
369 
 
 370 
 
370 
          '--- Direct user the package-version that we have just added
 371 
          '--- Direct user the package-version that we have just added
371 
          '--- Goto the page with the release notes as more info will need to be added
 372 
          '--- Goto the page with the release notes as more info will need to be added
- 
 
 373 
          Call Destroy_All_Objects
372 
          Response.Redirect("fixed_issues.asp?rtag_id="& parRtag_id & "&pv_id=" & newPkgPv_id )
 374 
          Response.Redirect("fixed_issues.asp?rtag_id="& parRtag_id & "&pv_id=" & newPkgPv_id )
373 
 
 375 
 
374 
        Else
 376 
        Else
375 
          Err.Raise 8, "Cannot ADD a package in a CLOSED or CCB Release Mode"
 377 
          Err.Raise 8, "Cannot ADD a package in a CLOSED or CCB Release Mode"
376 
        End If
 378 
        End If
Line 416... Line 418...
416 
                Call objRC.Run_ReleaseChanged(parRtag_id,parOLDpv_id,enumRELEASE_CHANGE_MODE_PKG_REMOVED, true)
 418 
                Call objRC.Run_ReleaseChanged(parRtag_id,parOLDpv_id,enumRELEASE_CHANGE_MODE_PKG_REMOVED, true)
417 
                Set objRC = Nothing
 419 
                Set objRC = Nothing
418 
            End If
 420 
            End If
419 
 
 421 
 
420 
            If objEH.Finally Then
 422 
            If objEH.Finally Then
- 
 
 423 
               Call Destroy_All_Objects
421 
               Response.Redirect("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
 424 
               Response.Redirect("fixed_issues.asp?rtag_id="& parRtag_id &"&pv_id="& NEWpv_id )
422 
            End If
 425 
            End If
423 
         End If
 426 
         End If
424 
      Else
 427 
      Else
425 
         Call RaiseMsg( enum_MSG_PACKAGE_VERSION_INVALID&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
 428 
         Call RaiseMsg( enum_MSG_PACKAGE_VERSION_INVALID&"?rtag_id="& parRtag_id &"&pv_id="& parOLDpv_id &"", parFRnewver )
Line 428... Line 431...
428 
Else
 431 
Else
429 
    Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 432 
    Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
430 
    Response.write QSTR_FullQuery
 433 
    Response.write QSTR_FullQuery
431 
End If ' If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
 434 
End If ' If (parOLDpv_id <> "") AND ( (parFRnewver <> "") OR (parSetToPv_id <> "") ) AND (parRtag_id <> "") Then
432 
%>
 435 
%>
433 
 
 - 
 
434 
<!-- DESTRUCTOR ------->
 436 
<!-- DESTRUCTOR ------->
435 
<!--#include file="common/destructor.asp"-->
 437 
<!--#include file="common/destructor.asp"-->