Subversion Repositories DevTools

Rev

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

Rev 5506 Rev 5952
Line 1... Line 1...
1 
<%@LANGUAGE="VBSCRIPT"%>
 1 
<%@LANGUAGE="VBSCRIPT"%>
2 
<%
 2 
<%
3 
'================================================================
 3 
'================================================================
4 
'		 	   		Update Reason For This Version - Dependencies
 4 
'                   Update Reason For This Version - Dependencies
5 
'               --- PROCESS FORM ---
 5 
'               --- PROCESS FORM ---
6 
'================================================================
 6 
'================================================================
7 
%>
 7 
%>
8 
<%
 8 
<%
9 
Option explicit
 9 
Option explicit
10 
' Good idea to set when using redirect
 10 
' Good idea to set when using redirect
11 
Response.Expires = 0	' always load the page, dont store
 11 
Response.Expires = 0    ' always load the page, dont store
12 
%>
 12 
%>
13 
<!--#include file="common/conf.asp"-->
 13 
<!--#include file="common/conf.asp"-->
14 
<!--#include file="common/globals.asp"-->
 14 
<!--#include file="common/globals.asp"-->
15 
<!--#include file="common/formating.asp"-->
 15 
<!--#include file="common/formating.asp"-->
16 
<!--#include file="common/qstr.asp"-->
 16 
<!--#include file="common/qstr.asp"-->
Line 35... Line 35...
35 
%>
 35 
%>
36 
<%
 36 
<%
37 
 
 37 
 
38 
'-----------------------------------------------------------------------------------------------------------------------------
 38 
'-----------------------------------------------------------------------------------------------------------------------------
39 
Sub fillCommentsWithDifferences ( parPv_id )
 39 
Sub fillCommentsWithDifferences ( parPv_id )
40 
	DIM outputString
 40 
    DIM outputString
41 
	DIM rsTemp, rsQry, query
 41 
    DIM rsTemp, rsQry, query
42
42
43
43
44 
	query = "SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID = :PV_ID "
 44 
    query = "SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID = :PV_ID "
45 
	OraDatabase.Parameters.Add "PV_ID",parPv_Id, 	ORAPARM_INPUT, ORATYPE_NUMBER
45 
    OraDatabase.Parameters.Add "PV_ID",parPv_Id,    ORAPARM_INPUT, ORATYPE_NUMBER
46
46
47 
	Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
 47 
    Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
48
- 
 
49
- 
 
50
48
51 
	'If pkgInfoHash.Item("base_view_id") = cstr(enumBASE_VIEW_PRODUCTS) Then
 49 
    'If pkgInfoHash.Item("base_view_id") = cstr(enumBASE_VIEW_PRODUCTS) Then
52
- 
 
53 
	 'If pkgInfoHash.Item("comments") = "" or isnull(pkgInfoHash.Item("comments")) Then
 50 
    'If pkgInfoHash.Item("comments") = "" or isnull(pkgInfoHash.Item("comments")) Then
54
- 
 
55
- 
 
56
51
57 
  	 	 If (rsQry("last_pv_id") = "") Then
 52 
     If (rsQry("last_pv_id") = "") Then
58 
	  			OraDatabase.Parameters.Add "OLD_PV_ID", 	0, 	ORAPARM_INPUT, ORATYPE_NUMBER
53 
            OraDatabase.Parameters.Add "OLD_PV_ID",     0,  ORAPARM_INPUT, ORATYPE_NUMBER
59 
	 	 Else
 54 
     Else
60 
	  			OraDatabase.Parameters.Add "OLD_PV_ID", 	rsQry("last_pv_id"), 	ORAPARM_INPUT, ORATYPE_NUMBER
55 
            OraDatabase.Parameters.Add "OLD_PV_ID",     rsQry("last_pv_id"),    ORAPARM_INPUT, ORATYPE_NUMBER
61 
	 	 End If
 56 
     End If
62 
 
 57 
 
63 
	  Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ( "diff_dependencies.sql" ), cint(0))
 58 
      Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ( "diff_dependencies.sql" ), cint(0))
64 
	  Dim style, icon
 59 
      Dim style, icon
65 
	  While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 60 
      While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
66 
 
 61 
 
67 
		  Select Case CInt(rsTemp("status"))
 62 
          Select Case CInt(rsTemp("status"))
68 
			Case enumDB_NUM_DIFF_UPDATED
 63 
            Case enumDB_NUM_DIFF_UPDATED
69 
			  outputString = outputString & "[UPDATED] " & rsTemp("pkg_name") &" to "& rsTemp("pkg_version") &" ("& rsTemp("previous_version") &")"& VBNewLine
 64 
              outputString = outputString & "[UPDATED] " & rsTemp("pkg_name") &" to "& rsTemp("pkg_version") &" ("& rsTemp("previous_version") &")"& VBNewLine
70
65
71 
		    Case enumDB_NUM_DIFF_NEW
 66 
            Case enumDB_NUM_DIFF_NEW
72 
			  outputString = outputString & "[NEW] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
 67 
              outputString = outputString & "[NEW] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
73
68
74 
			Case enumDB_NUM_DIFF_REMOVED
 69 
            Case enumDB_NUM_DIFF_REMOVED
75 
			  outputString = outputString & "[REMOVED] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
 70 
              outputString = outputString & "[REMOVED] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
76
71
77 
		  End Select
 72 
          End Select
78 
 
 73 
 
79 
	  	  rsTemp.MoveNext
 74 
          rsTemp.MoveNext
80 
	  WEnd
 75 
      WEnd
81
76
82 
 
 - 
 
83 
		rsQry.Edit
 77 
      rsQry.Edit
84 
		rsQry.Fields("comments").Value = outputString
78 
      rsQry.Fields("comments").Value = outputString
85 
		rsQry.Update
 79 
      rsQry.Update
86
80 
 
87 
		rsTemp.Close
 81 
      rsTemp.Close
88 
		Set rsTemp = nothing
 82 
      Set rsTemp = nothing
89
83 
 
90 
		OraDatabase.Parameters.Remove "PV_ID"
 84 
      OraDatabase.Parameters.Remove "PV_ID"
91 
		OraDatabase.Parameters.Remove "OLD_PV_ID"
 85 
      OraDatabase.Parameters.Remove "OLD_PV_ID"
92
- 
 
93
86
94 
	 'End If
 87 
     'End If
95 
	'END IF
 88 
    'END IF
96
89
97 
	rsQry.Close
 90 
    rsQry.Close
98 
	Set rsQry = Nothing
 91 
    Set rsQry = Nothing
99
- 
 
100 
	OraDatabase.Parameters.Remove "PV_ID"
 - 
 
101
- 
 
102 
End Sub
 92 
End Sub
103 
 
 93 
 
104 
'-----------------------------------------------------------------------------------------------------------------------------
 94 
'-----------------------------------------------------------------------------------------------------------------------------
105 
%>
 95 
%>
106 
<%
 96 
<%
107 
'-----------------------  MAIN LINE  ---------------------------
 97 
'-----------------------  MAIN LINE  ---------------------------
108 
'--- Process submition ---
 98 
'--- Process submition ---
109 
 
 99 
 
110 
If (parPv_id <> "") Then
 100 
If (parPv_id <> "") Then
111 
	' All mandatory parameters FOUND
 101 
    ' All mandatory parameters FOUND
112
102
113 
	Call fillCommentsWithDifferences ( parPv_id )
 103 
    Call fillCommentsWithDifferences ( parPv_id )
114
104
115 
	Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
 105 
    Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
116 
Else
 106 
Else
117 
	Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
 107 
    Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
118 
	Response.write QSTR_FullQuery
108 
    Response.write QSTR_FullQuery
119 
End If
 109 
End If
120 
%>
 110 
%>
121 
 
 111 
 
122 
<!-- DESTRUCTOR ------->
 112 
<!-- DESTRUCTOR ------->
123 
<!--#include file="common/destructor.asp"-->
 113 
<!--#include file="common/destructor.asp"-->
124 

            114