Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5957
Line 26... Line 26...
26 
<!--#include file="_access_control_general.asp"-->
 26 
<!--#include file="_access_control_general.asp"-->
27 
<!--#include file="_access_control_project.asp"-->
 27 
<!--#include file="_access_control_project.asp"-->
28 
<%
 28 
<%
29 
' Make sure rtag_id is always present
 29 
' Make sure rtag_id is always present
30 
If Request("pv_id") = "" AND Request("rtag_id") = "" Then
 30 
If Request("pv_id") = "" AND Request("rtag_id") = "" Then
- 
 
 31 
   Call Destroy_All_Objects
31 
   Response.Redirect("index.asp")
 32 
   Response.Redirect("index.asp")
32 
End If
 33 
End If
33 
%>
 34 
%>
34 
<%
 35 
<%
35 
'------------ Variable Definition -------------
 36 
'------------ Variable Definition -------------
Line 50... Line 51...
50 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
 51 
Set pkgInfoHash = CreateObject("Scripting.Dictionary")
51 
'----------------------------------------------
 52 
'----------------------------------------------
52 
%>
 53 
%>
53 
<%
 54 
<%
54 
' ---- Action requirements ----
 55 
' ---- Action requirements ----
- 
 
 56 
If parPkg_list = "" Then
- 
 
 57 
    Call Destroy_All_Objects
55 
If parPkg_list = "" Then Response.Redirect( "form_search_result_pkgs.asp?pv_id="& parPv_id &_
 58 
    Response.Redirect( "form_search_result_pkgs.asp?pv_id="& parPv_id &_
56 
                                            "&rtag_id="& parRtag_id &_
 59 
                                                  "&rtag_id="& parRtag_id &_
57 
                                            "&pkgfind="& parPkgfind &_
 60 
                                                  "&pkgfind="& parPkgfind &_
58 
                                            "&add_type="& parAdd_type &_
 61 
                                                  "&add_type="& parAdd_type &_
59 
                                            "&errmsg=true" )
 62 
                                                  "&errmsg=true" )
- 
 
 63 
End If
60 
%>
 64 
%>
61 
<%
 65 
<%
62 
Function Page_Title ( NNadd_type )
 66 
Function Page_Title ( NNadd_type )
63 
   If NNadd_type = Cstr(enum_ADD_PACKAGES) Then
 67 
   If NNadd_type = Cstr(enum_ADD_PACKAGES) Then
64 
      Page_Title = "ADD Package"
 68 
      Page_Title = "ADD Package"
Line 649... Line 653...
649 
            </tr>
 653 
            </tr>
650 
         </table>
 654 
         </table>
651 
         <!-------------------------------------------------->
 655 
         <!-------------------------------------------------->
652 
      </td>
 656 
      </td>
653 
   </tr>
 657 
   </tr>
654 
   <tr>
 - 
 
655 
      <td valign="bottom" background="images/bg_lght_gray.gif">
 - 
 
656 
         <!-- FOOTER -->
 658 
 <!-- FOOTER -->
657 
         <!--#include file="_footer.asp"-->
 659 
 <!--#include file="_footer.asp"-->
658 
      </td>
 - 
 
659 
   </tr>
 - 
 
660 
</table>
 660 
</table>
661 
</body>
 661 
</body>
662 
</html>
 662 
</html>
663 
<%
 - 
 
664 
Call Destroy_All_Objects
 - 
 
665 
%>
 -