| Line 171... |
Line 171... |
| 171 |
' loaded by _make_released.asp which in turn is loaded when a user presses the btnMakeReleased action button for manual
|
171 |
' loaded by _make_released.asp which in turn is loaded when a user presses the btnMakeReleased action button for manual
|
| 172 |
' built pending versions.
|
172 |
' built pending versions.
|
| 173 |
Sub PUBLIC_NotifyInterestManualBuild( NNrtag_id, NNpv_id )
|
173 |
Sub PUBLIC_NotifyInterestManualBuild( NNrtag_id, NNpv_id )
|
| 174 |
Err.Clear
|
174 |
Err.Clear
|
| 175 |
On Error Resume Next
|
175 |
On Error Resume Next
|
| 176 |
Dim Query_String, rsQry, myMail
|
176 |
Dim Query_String, rsQry
|
| 177 |
|
177 |
|
| 178 |
Query_String = _
|
178 |
Query_String = _
|
| 179 |
" SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PACKAGE_VERSIONS PV, USERS U,"&_
|
179 |
" SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PACKAGE_VERSIONS PV, USERS U,"&_
|
| 180 |
" RELEASE_TAGS RT, PROJECTS PRJ WHERE PKG.PKG_ID = PI.PKG_ID AND "&_
|
180 |
" RELEASE_TAGS RT, PROJECTS PRJ WHERE PKG.PKG_ID = PI.PKG_ID AND "&_
|
| 181 |
" RT.RTAG_ID = "& NNrtag_id &""&_
|
181 |
" RT.RTAG_ID = "& NNrtag_id &""&_
|
| Line 185... |
Line 185... |
| 185 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
185 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
| 186 |
|
186 |
|
| 187 |
If rsQry.RecordCount <> "" Then
|
187 |
If rsQry.RecordCount <> "" Then
|
| 188 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
188 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
| 189 |
If rsQry("user_email") <> "" Then
|
189 |
If rsQry("user_email") <> "" Then
|
| 190 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
190 |
Send_Email "Release Manager Notification",_
|
| 191 |
myMail.Host = SMTP_HOST
|
191 |
adminEmail, _
|
| - |
|
192 |
rsQry("user_email"),_
|
| 192 |
myMail.Subject="Version "& rsQry("pkg_version") &" of Package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name") &" has been released."
|
193 |
"Version "& rsQry("pkg_version") &" of Package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name") &" has been released.",_
|
| 193 |
myMail.Body = "You have received this email as a result of your interest in this package. If you do not wish to receive further emails then remove your package interest from the notifications area in Release Manager."
|
194 |
"You have received this email as a result of your interest in this package. If you do not wish to receive further emails then remove your package interest from the notifications area in Release Manager.",_
|
| 194 |
myMail.From=ADMIN_EMAIL
|
- |
|
| 195 |
myMail.AddAddress rsQry("user_email")
|
- |
|
| 196 |
myMail.Send
|
- |
|
| 197 |
set myMail=nothing
|
195 |
NULL
|
| 198 |
End If
|
196 |
End If
|
| 199 |
rsQry.MoveNext
|
197 |
rsQry.MoveNext
|
| 200 |
Wend
|
198 |
Wend
|
| 201 |
|
199 |
|
| 202 |
End If
|
200 |
End If
|
| Line 319... |
Line 317... |
| 319 |
' Currently, this function does not seem to be used. The call to it was commented out in the _make_approved.asp file from where it was
|
317 |
' Currently, this function does not seem to be used. The call to it was commented out in the _make_approved.asp file from where it was
|
| 320 |
' originally called from.
|
318 |
' originally called from.
|
| 321 |
'
|
319 |
'
|
| 322 |
Sub PRIVATE_NotifyInterestAutoBuild( NNrtag_id, NNpv_id )
|
320 |
Sub PRIVATE_NotifyInterestAutoBuild( NNrtag_id, NNpv_id )
|
| 323 |
On Error Resume Next
|
321 |
On Error Resume Next
|
| 324 |
Dim Query_String, rsQry, myMail
|
322 |
Dim Query_String, rsQry
|
| 325 |
|
323 |
|
| 326 |
Query_String = _
|
324 |
Query_String = _
|
| 327 |
" SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PACKAGE_VERSIONS PV, USERS U,"&_
|
325 |
" SELECT * FROM PACKAGE_INTEREST PI, PACKAGES PKG, PACKAGE_VERSIONS PV, USERS U,"&_
|
| 328 |
" RELEASE_TAGS RT, PROJECTS PRJ WHERE PKG.PKG_ID = PI.PKG_ID AND "&_
|
326 |
" RELEASE_TAGS RT, PROJECTS PRJ WHERE PKG.PKG_ID = PI.PKG_ID AND "&_
|
| 329 |
" RT.RTAG_ID = "& NNrtag_id &""&_
|
327 |
" RT.RTAG_ID = "& NNrtag_id &""&_
|
| Line 333... |
Line 331... |
| 333 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
331 |
Set rsQry = OraDatabase.DbCreateDynaset( Query_String , cint(0) )
|
| 334 |
|
332 |
|
| 335 |
If rsQry.RecordCount <> "" Then
|
333 |
If rsQry.RecordCount <> "" Then
|
| 336 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
334 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
| 337 |
If rsQry("user_email") <> "" Then
|
335 |
If rsQry("user_email") <> "" Then
|
| 338 |
Set myMail=Server.CreateObject("Persits.MailSender")
|
336 |
Send_Email "Release Manager Notification",_
|
| 339 |
myMail.Host = SMTP_HOST
|
337 |
adminEmail, _
|
| - |
|
338 |
rsQry("user_email"),_
|
| 340 |
myMail.Subject="New Version of Package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name") &" would be autobuild soon."
|
339 |
"New Version of Package "& rsQry("pkg_name") &" in Project " & rsQry("proj_name") &" on Release Branch " & rsQry("rtag_name") &" would be autobuild soon.",_
|
| 341 |
myMail.From=ADMIN_EMAIL
|
- |
|
| 342 |
myMail.AddAddress rsQry("user_email")
|
340 |
"You have received this email as a result of your interest in this package. If you do not wish to receive further emails then remove your package interest from the notifications area in Release Manager.",_
|
| 343 |
myMail.Send
|
- |
|
| 344 |
set myMail=nothing
|
341 |
NULL
|
| 345 |
End If
|
342 |
End If
|
| 346 |
rsQry.MoveNext
|
343 |
rsQry.MoveNext
|
| 347 |
Wend
|
344 |
Wend
|
| 348 |
End If
|
345 |
End If
|
| 349 |
|
346 |
|