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
%>
-