Subversion Repositories DevTools

Rev

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

Rev 157 Rev 159
Line 129... Line 129...
129 
 
 129 
 
130 
      End If
 130 
      End If
131 
 
 131 
 
132 
      If IsObject(DDfixedIss) Then
 132 
      If IsObject(DDfixedIss) Then
133 
         ' Store only Fixed Issues
 133 
         ' Store only Fixed Issues
- 
 
 134 
         If CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) AND _
134 
         If CInt(rsTemp("iss_state")) = CInt(enumISSUES_STATE_FIXED) Then DDfixedIss.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), ""
 135 
           DDfixedIss.Exists(Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id"))) = false Then DDfixedIss.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), ""
135 
      End If
 136 
      End If
136 
 
 137 
 
137 
      If IsObject(DDnotesIssDict) Then
 138 
      If IsObject(DDnotesIssDict) Then
138 
         ' Store Notes
 139 
         ' Store Notes
- 
 
 140 
         If Not IsNull(rsTemp("notes")) AND (rsTemp("notes") <> "") AND _
139 
         If Not IsNull(rsTemp("notes")) AND (rsTemp("notes") <> "")Then DDnotesIssDict.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), Cstr(rsTemp("notes"))
 141 
           DDnotesIssDict.Exists(Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id"))) = false Then DDnotesIssDict.Add Cstr(rsTemp("iss_db") &"."& rsTemp("iss_id")), Cstr(rsTemp("notes"))
140 
      End If
 142 
      End If
141 
 
 143 
 
142 
      rsTemp.MoveNext
 144 
      rsTemp.MoveNext
143 
   WEnd
 145 
   WEnd
144 
 
 146