Subversion Repositories DevTools

Rev

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

Rev 5901 Rev 5957
Line 24... Line 24...
24 
%>
 24 
%>
25 
<%
 25 
<%
26 
'------------ RUN BEFORE PAGE RENDER ----------
 26 
'------------ RUN BEFORE PAGE RENDER ----------
27 
 
 27 
 
28 
'--- Make sure rtag_id is always present
 28 
'--- Make sure rtag_id is always present
29 
If (Request("rtag_id") = "") AND (Request("pv_id") = "") Then Response.Redirect("index.asp")
 29 
If (Request("rtag_id") = "") AND (Request("pv_id") = "") Then
- 
 
 30 
    Call Destroy_All_Objects
- 
 
 31 
    Response.Redirect("index.asp")
- 
 
 32 
End If
30 
 
 33 
 
31 
 
 34 
 
32 
'--- Rebuild Environment
 35 
'--- Rebuild Environment
33 
If (Request("rtag_id") <> "") Then
 36 
If (Request("rtag_id") <> "") Then
34 
   Call Rebuild_Environment ( parRtag_id )
 37 
   Call Rebuild_Environment ( parRtag_id )
Line 46... Line 49...
46 
'--- Get Package General Information
 49 
'--- Get Package General Information
47 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
 50 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
48 
If Request("pv_id") <> "" Then
 51 
If Request("pv_id") <> "" Then
49 
   Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
 52 
   Call Get_Pkg_Info ( Request("pv_id"), Request("rtag_id") )
50 
 
 53 
 
51 
   ' Make sure pv_id exists as it may be removed
 54 
    ' Make sure pv_id exists as it may be removed
- 
 
 55 
    If pkgInfoHash.Item("pv_id") = "" Then
- 
 
 56 
        Call Destroy_All_Objects
52 
   If pkgInfoHash.Item("pv_id") = "" Then Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
 57 
        Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
- 
 
 58 
    End If
53 
 
 59 
 
54 
ElseIf isDefined("allowNoPackage") Then
 60 
ElseIf isDefined("allowNoPackage") Then
55 
    ' Get basic information - if no package is present
 61 
    ' Get basic information - if no package is present
56 
    ' Used by dependencies.asp, find.asp and sdk_add_release.asp
 62 
    ' Used by dependencies.asp, find.asp and sdk_add_release.asp
57 
    Call Get_NoPkg_Info( Request("rtag_id") )
 63 
    Call Get_NoPkg_Info( Request("rtag_id") )
58 
Else
 64 
Else
59 
    ' Don't know how we got here without a pvid - display default page
 65 
    ' Don't know how we got here without a pvid - display default page
- 
 
 66 
    Call Destroy_All_Objects
60 
    Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
 67 
    Response.Redirect ("dependencies.asp?rtag_id="& Request("rtag_id"))
61 
End If
 68 
End If
62 
 
 69 
 
63 
 
 70 
 
64 
'----------------------------------------------
 71 
'----------------------------------------------