Subversion Repositories DevTools

<%@LANGUAGE="VBSCRIPT"%>
<%
'================================================================
'                                       Update Reason For This Version - Dependencies
'               --- PROCESS FORM ---
'================================================================
%>
<%
Option explicit
' Good idea to set when using redirect
Response.Expires = 0    ' always load the page, dont store
%>
<!--#include file="common/conf.asp"-->
<!--#include file="common/globals.asp"-->
<!--#include file="common/formating.asp"-->
<!--#include file="common/qstr.asp"-->
<!--#include file="common/common_subs.asp"-->
<!--#include file="common/common_dbedit.asp"-->

<%
' Set rfile parameter. This is a return page after Login
Call objPMod.StoreParameter ( "rfile", "fixed_issues.asp" )
'------------ ACCESS CONTROL ------------------
%>
<!--#include file="_access_control_login.asp"-->
<!--#include file="_access_control_general.asp"-->
<!--#include file="_access_control_project.asp"-->
<%
'------------ Variable Definition -------------
Dim parPv_id
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
parPv_id = QStrPar("pv_id")
'----------------------------------------------
%>
<%

'-----------------------------------------------------------------------------------------------------------------------------
Sub fillCommentsWithDifferences ( parPv_id )
        DIM outputString
        DIM rsTemp, rsQry, query
        
        
        query = "SELECT * FROM PACKAGE_VERSIONS WHERE PV_ID = :PV_ID "
        OraDatabase.Parameters.Add "PV_ID",parPv_Id,    ORAPARM_INPUT, ORATYPE_NUMBER 
        
        Set rsQry = OraDatabase.DbCreateDynaset( query , ORADYN_DEFAULT )
        
        
        
        'If pkgInfoHash.Item("base_view_id") = cstr(enumBASE_VIEW_PRODUCTS) Then
        
         'If pkgInfoHash.Item("comments") = "" or isnull(pkgInfoHash.Item("comments")) Then
 
          
          
                 If (rsQry("last_pv_id") = "") Then
                                OraDatabase.Parameters.Add "OLD_PV_ID",         0,      ORAPARM_INPUT, ORATYPE_NUMBER 
                 Else
                                OraDatabase.Parameters.Add "OLD_PV_ID",         rsQry("last_pv_id"),    ORAPARM_INPUT, ORATYPE_NUMBER 
                 End If

          Set rsTemp = OraDatabase.DbCreateDynaset( GetQuery ( "diff_dependencies.sql" ), cint(0))
          Dim style, icon
          While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))

                  Select Case CInt(rsTemp("status"))
                        Case enumDB_NUM_DIFF_UPDATED
                          outputString = outputString & "[UPDATED] " & rsTemp("pkg_name") &" to "& rsTemp("pkg_version") &" ("& rsTemp("previous_version") &")"& VBNewLine
                                
                    Case enumDB_NUM_DIFF_NEW
                          outputString = outputString & "[NEW] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
                                
                        Case enumDB_NUM_DIFF_REMOVED
                          outputString = outputString & "[REMOVED] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
                        
                  End Select

                  rsTemp.MoveNext
          WEnd
                

                rsQry.Edit
                rsQry.Fields("comments").Value = outputString 
                rsQry.Update
                
                rsTemp.Close
                Set rsTemp = nothing
                
                OraDatabase.Parameters.Remove "PV_ID"
                OraDatabase.Parameters.Remove "OLD_PV_ID"
         
         
         'End If
        'END IF
          
        rsQry.Close
        Set rsQry = Nothing
        
        OraDatabase.Parameters.Remove "PV_ID"
          
End Sub

'-----------------------------------------------------------------------------------------------------------------------------
%>
<%
'-----------------------  MAIN LINE  ---------------------------
'--- Process submition ---

If (parPv_id <> "") Then
        ' All mandatory parameters FOUND
        
        Call fillCommentsWithDifferences ( parPv_id )
        
        Response.Redirect("fixed_issues.asp?hidenv=true&pv_id="& Request("pv_id") &"&rtag_id="& Request("rtag_id"))
Else
        Response.write "Some mandatory parameters are missing!" & "<br>" 'TODO
        Response.write QSTR_All 
End If
%>

<!-- DESTRUCTOR ------->
<!--#include file="common/destructor.asp"-->