Subversion Repositories DevTools

Rev

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

Rev 5658 Rev 5898
Line 168... Line 168...
168
   returnERRmsg = NULL
168
   returnERRmsg = NULL
169
   returnALRTmsg = NULL
169
   returnALRTmsg = NULL
170
 
170
 
171
   If ( nPkgType = enumBASE_VIEW_PRODUCTS ) Then
171
   If ( nPkgType = enumBASE_VIEW_PRODUCTS ) Then
172
      ' Check Requirement for products
172
      ' Check Requirement for products
173
   Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
173
       Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
174
      If Not IsNull(rsErr("err_message")) Then
174
          If Not IsNull(rsErr("err_message")) Then
175
         returnERRmsg = rsErr("err_message")
175
             returnERRmsg = rsErr("err_message")
176
         returnALRTmsg = rsErr("products_msg")
176
             returnALRTmsg = rsErr("products_msg")
177
         returnParameters = "_make_released.asp" &"|"
177
             returnParameters = "_make_released.asp" &"|"
178
         If returnALRTmsg = "ERROR" Then
178
             If returnALRTmsg = "ERROR" Then
179
            returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
179
                returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
180
            Exit Do
180
                Exit Do
181
         End If
181
             End If
182
      End If
182
          End If
183
 
183
 
184
      rsErr.MoveNext
184
          rsErr.MoveNext
185
      Loop
185
      Loop
186
 
186
 
187
   Else
187
   Else
188
      ' Check Requirements for other packages
188
      ' Check Requirements for other packages
-
 
189
 
189
      Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
190
      Do While ((NOT rsErr.BOF) AND (NOT rsErr.EOF))
190
         If Not IsNull(rsErr("err_message")) Then
191
         If Not IsNull(rsErr("err_message")) Then
191
            returnERRmsg = rsErr("err_message")
192
            returnERRmsg = rsErr("err_message")
192
            returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
193
            returnParameters = rsErr("rfile") &"|"& rsErr("anchor")
193
            Exit Do
194
            Exit Do