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
End Sub

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

If (parPv_id <> "") Then
    ' All mandatory parameters FOUND
    
    Call fillCommentsWithDifferences ( parPv_id )
    
    Call Destroy_All_Objects
    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_FullQuery 
End If
%>
<!-- DESTRUCTOR ------->
<!--#include file="common/destructor.asp"-->