Subversion Repositories DevTools

Rev

Rev 7337 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 7337 Rev 7457
Line 53... Line 53...
53 
      Dim style, icon
 53 
      Dim style, icon
54 
 
 54 
 
55 
      While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
 55 
      While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
56 
 
 56 
 
57 
         Select Case CInt(rsTemp("status"))
 57 
         Select Case CInt(rsTemp("status"))
58 
         Case enumDB_NUM_DIFF_UPDATED
 58 
            Case enumDB_NUM_DIFF_UPDATED
59 
            outputString = outputString & "[UPDATED] " & rsTemp("pkg_name") &" to "& rsTemp("pkg_version") &" ("& rsTemp("previous_version") &")"& VBNewLine
 59 
                outputString = outputString & "[UPDATED] " & rsTemp("pkg_name") &" to "& rsTemp("pkg_version") &" ("& rsTemp("previous_version") &")"& VBNewLine
60 
 
 60 
 
61 
            Case enumDB_NUM_DIFF_NEW
 61 
            Case enumDB_NUM_DIFF_NEW
62 
            outputString = outputString & "[NEW] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
 62 
                outputString = outputString & "[NEW] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
63 
 
 63 
 
64 
         Case enumDB_NUM_DIFF_REMOVED
 64 
            Case enumDB_NUM_DIFF_REMOVED
65 
            outputString = outputString & "[REMOVED] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
 65 
                outputString = outputString & "[REMOVED] " & rsTemp("pkg_name") &" "& rsTemp("pkg_version") & VBNewLine
66 
 
 66 
 
67 
         End Select
 67 
         End Select
68 
 
 68 
 
69 
            rsTemp.MoveNext
 69 
            rsTemp.MoveNext
70 
      WEnd
 70 
      WEnd