| Line 42... |
Line 42... |
| 42 |
Dim colorA, colorB, ChangeTypeIcon
|
42 |
Dim colorA, colorB, ChangeTypeIcon
|
| 43 |
Dim btnMerge, btnRemove
|
43 |
Dim btnMerge, btnRemove
|
| 44 |
Dim rowId
|
44 |
Dim rowId
|
| 45 |
Dim email
|
45 |
Dim email
|
| 46 |
Dim genReport
|
46 |
Dim genReport
|
| - |
|
47 |
Dim reportPath
|
| 47 |
Dim FSO
|
48 |
Dim FSO
|
| 48 |
Dim NewTextFile
|
49 |
Dim NewTextFile
|
| 49 |
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, counterB
|
50 |
Dim pkgA, pkgB, pkgname, delimiter, rsQryA, rsQryB, rsQryCommentsA, rsQryCommentsB, sqlstrA, counterA, sqlstrB, counterB
|
| 50 |
Dim SSsql, retVal, rsCQ, DEVIiss
|
51 |
Dim SSsql, retVal, rsCQ, DEVIiss
|
| 51 |
Dim a, b, c, d, pkgversion, errormsg, ChangeASource, ChangeAUpdate, ChangeBSource, ChangeBUpdate, pvCollectionA, pvCollectionB
|
52 |
Dim a, b, c, d, pkgversion, errormsg, ChangeASource, ChangeAUpdate, ChangeBSource, ChangeBUpdate, pvCollectionA, pvCollectionB
|
| Line 89... |
Line 90... |
| 89 |
genReport = true
|
90 |
genReport = true
|
| 90 |
End If
|
91 |
End If
|
| 91 |
If Request("btn") = "Show Me Report" Then
|
92 |
If Request("btn") = "Show Me Report" Then
|
| 92 |
genReport = true
|
93 |
genReport = true
|
| 93 |
End If
|
94 |
End If
|
| - |
|
95 |
If genReport Then
|
| - |
|
96 |
reportPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
|
| - |
|
97 |
End If
|
| 94 |
'--------------------------------------------------------------------------------------------------------------------------
|
98 |
'--------------------------------------------------------------------------------------------------------------------------
|
| 95 |
Sub GetDiffFilterValues ( outDepFilter )
|
99 |
Sub GetDiffFilterValues ( outDepFilter )
|
| 96 |
Dim FilterVal, aFilterValues
|
100 |
Dim FilterVal, aFilterValues
|
| 97 |
|
101 |
|
| 98 |
If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) <> "" Then
|
102 |
If Request.Cookies(enum_RELMGR_COOKIE_DOMAIN)(COOKIE_HIDE_DIFF_FILTER) <> "" Then
|
| Line 931... |
Line 935... |
| 931 |
}
|
935 |
}
|
| 932 |
</style>
|
936 |
</style>
|
| 933 |
</head>
|
937 |
</head>
|
| 934 |
<!-- HEADER -->
|
938 |
<!-- HEADER -->
|
| 935 |
<!--#include file="_header.asp"-->
|
939 |
<!--#include file="_header.asp"-->
|
| 936 |
<form name="FormName" method="post" action="<%=ScriptName%>">
|
940 |
<form name="FormName" method="post" action="<%=ScriptName%>?rtagA=<%=parRtagA%>&rtagB=<%=parRtagB%>">
|
| 937 |
<!-- BODY ---->
|
941 |
<!-- BODY ---->
|
| 938 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
942 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| 939 |
<tr>
|
943 |
<tr>
|
| 940 |
<td width="20%">
|
944 |
<td width="20%">
|
| 941 |
<td width="60%">
|
945 |
<td width="60%">
|
| Line 1088... |
Line 1092... |
| 1088 |
<td width="100%" bgcolor="#DAD7C8">
|
1092 |
<td width="100%" bgcolor="#DAD7C8">
|
| 1089 |
<input type="submit" name="btn" value="Compare" class="form_btn_comp" style="margin-right:5px;">
|
1093 |
<input type="submit" name="btn" value="Compare" class="form_btn_comp" style="margin-right:5px;">
|
| 1090 |
<input type="submit" name="btn" value="Swap Compare" class="form_btn_comp">
|
1094 |
<input type="submit" name="btn" value="Swap Compare" class="form_btn_comp">
|
| 1091 |
<span class="body_txt">
|
1095 |
<span class="body_txt">
|
| 1092 |
<input name="btn" type="submit" class="form_btn" value="Mail Me Report">
|
1096 |
<input name="btn" type="submit" class="form_btn" value="Mail Me Report">
|
| 1093 |
<% '<input name="btn" type="submit" class="form_btn" value="Show Me Report"> %>
|
1097 |
<%'<input name="btn" type="submit" class="form_btn" value="Show Me Report">%>
|
| 1094 |
</span>
|
1098 |
</span>
|
| 1095 |
</td>
|
1099 |
</td>
|
| 1096 |
<td width="1" align="right" bgcolor="#DAD7C8" nowrap>
|
1100 |
<td width="1" align="right" bgcolor="#DAD7C8" nowrap>
|
| 1097 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
1101 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| 1098 |
<tr>
|
1102 |
<tr>
|
| Line 1128... |
Line 1132... |
| 1128 |
' Successfull Merge
|
1132 |
' Successfull Merge
|
| 1129 |
If (Request("btn") = "Merge") Then
|
1133 |
If (Request("btn") = "Merge") Then
|
| 1130 |
Call Messenger ( "Merge has completed successfully.", 3, "100%" )
|
1134 |
Call Messenger ( "Merge has completed successfully.", 3, "100%" )
|
| 1131 |
End If
|
1135 |
End If
|
| 1132 |
|
1136 |
|
| - |
|
1137 |
If genReport Then
|
| 1133 |
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
|
1138 |
Set FSO=Server.CreateObject("Scripting.FileSystemObject")
|
| 1134 |
Set NewTextFile=FSO.CreateTextFile(Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html"), true)
|
1139 |
Set NewTextFile=FSO.CreateTextFile(reportPath, true)
|
| 1135 |
|
1140 |
|
| 1136 |
Call Header()
|
1141 |
Call Header()
|
| - |
|
1142 |
End If
|
| 1137 |
|
1143 |
|
| 1138 |
If (parRtagA <> "") AND (parRtagB <> "")Then%>
|
1144 |
If (parRtagA <> "") AND (parRtagB <> "")Then%>
|
| 1139 |
<table width="100%" border="0" cellspacing="1" cellpadding="0">
|
1145 |
<table width="100%" border="0" cellspacing="1" cellpadding="0">
|
| 1140 |
<tr>
|
1146 |
<tr>
|
| 1141 |
<td width="50%" bgcolor="#E4E9EC" class="body_row" nowrap><%= ReleaseIcon(objRelCollectorA.Item("official")) & objRelCollectorA.Item("location")%> </td>
|
1147 |
<td width="50%" bgcolor="#E4E9EC" class="body_row" nowrap><%= ReleaseIcon(objRelCollectorA.Item("official")) & objRelCollectorA.Item("location")%> </td>
|
| Line 1163... |
Line 1169... |
| 1163 |
OraDatabase.Parameters.Remove "REMOVED"
|
1169 |
OraDatabase.Parameters.Remove "REMOVED"
|
| 1164 |
|
1170 |
|
| 1165 |
Set rsQryA = OraDatabase.DbCreateDynaset( "SELECT RT.RTAG_NAME, PRJ.PROJ_NAME FROM RELEASE_TAGS RT, PROJECTS PRJ WHERE RTAG_ID="& parRtagA &" AND RT.PROJ_ID=PRJ.PROJ_ID", cint(0))
|
1171 |
Set rsQryA = OraDatabase.DbCreateDynaset( "SELECT RT.RTAG_NAME, PRJ.PROJ_NAME FROM RELEASE_TAGS RT, PROJECTS PRJ WHERE RTAG_ID="& parRtagA &" AND RT.PROJ_ID=PRJ.PROJ_ID", cint(0))
|
| 1166 |
Set rsQryB = OraDatabase.DbCreateDynaset( "SELECT RT.RTAG_NAME, PRJ.PROJ_NAME FROM RELEASE_TAGS RT, PROJECTS PRJ WHERE RTAG_ID="& parRtagB &" AND RT.PROJ_ID=PRJ.PROJ_ID", cint(0))
|
1172 |
Set rsQryB = OraDatabase.DbCreateDynaset( "SELECT RT.RTAG_NAME, PRJ.PROJ_NAME FROM RELEASE_TAGS RT, PROJECTS PRJ WHERE RTAG_ID="& parRtagB &" AND RT.PROJ_ID=PRJ.PROJ_ID", cint(0))
|
| 1167 |
|
1173 |
|
| - |
|
1174 |
If genReport Then
|
| 1168 |
Call Javascript()
|
1175 |
Call Javascript()
|
| 1169 |
Call Styles()
|
1176 |
Call Styles()
|
| 1170 |
|
1177 |
|
| 1171 |
NewTextFile.WriteLine("<title>Difference Report Between "&rsQryA("proj_name")&" "&rsQryA("rtag_name")&" and "&rsQryB("proj_name")&" "&rsQryB("rtag_name")&"</title>")
|
1178 |
NewTextFile.WriteLine("<title>Difference Report Between "&rsQryA("proj_name")&" "&rsQryA("rtag_name")&" and "&rsQryB("proj_name")&" "&rsQryB("rtag_name")&"</title>")
|
| 1172 |
NewTextFile.WriteLine("<div class=""page_title"">Difference Report Between "&rsQryA("proj_name")&" "&rsQryA("rtag_name")&" and "&rsQryB("proj_name")&" "&rsQryB("rtag_name")&"</div><br>")
|
1179 |
NewTextFile.WriteLine("<div class=""page_title"">Difference Report Between "&rsQryA("proj_name")&" "&rsQryA("rtag_name")&" and "&rsQryB("proj_name")&" "&rsQryB("rtag_name")&"</div><br>")
|
| 1173 |
NewTextFile.WriteLine("<b>Key:</b><br><blockquote>")
|
1180 |
NewTextFile.WriteLine("<b>Key:</b><br><blockquote>")
|
| 1174 |
NewTextFile.WriteLine("<span class=changesa><b>SOURCE CODE CHANGES</b></span><span class=texta> Indicates Changes to a Package in "& rsQryA("rtag_name") &".</span><br>")
|
1181 |
NewTextFile.WriteLine("<span class=changesa><b>SOURCE CODE CHANGES</b></span><span class=texta> Indicates Changes to a Package in "& rsQryA("rtag_name") &".</span><br>")
|
| 1175 |
NewTextFile.WriteLine("<span class=changesb><b>SOURCE CODE CHANGES</b></span><span class=textb> Indicates Changes to a Package in "& rsQryB("rtag_name") &".</span><br>")
|
1182 |
NewTextFile.WriteLine("<span class=changesb><b>SOURCE CODE CHANGES</b></span><span class=textb> Indicates Changes to a Package in "& rsQryB("rtag_name") &".</span><br>")
|
| 1176 |
NewTextFile.WriteLine("<span class=changesnone><b>Grey Text</b></span><span class=textnone> No Source Code Changes to a Package in either Release.</span>")
|
1183 |
NewTextFile.WriteLine("<span class=changesnone><b>Grey Text</b></span><span class=textnone> No Source Code Changes to a Package in either Release.</span>")
|
| 1177 |
NewTextFile.WriteLine("</blockquote>")
|
1184 |
NewTextFile.WriteLine("</blockquote>")
|
| 1178 |
|
1185 |
|
| 1179 |
NewTextFile.WriteLine("<b>Toggle Sections:</b><blockquote>")
|
1186 |
NewTextFile.WriteLine("<b>Toggle Sections:</b><blockquote>")
|
| 1180 |
NewTextFile.WriteLine("<a href=""javascript:;"" onClick=""MM_toggleAll('divPkgInfo','1');"">Expand All</a>")
|
1187 |
NewTextFile.WriteLine("<a href=""javascript:;"" onClick=""MM_toggleAll('divPkgInfo','1');"">Expand All</a>")
|
| 1181 |
NewTextFile.WriteLine("<a href=""javascript:;"" onClick=""MM_toggleAll('divPkgInfo','');"">Collapse All</a>")
|
1188 |
NewTextFile.WriteLine("<a href=""javascript:;"" onClick=""MM_toggleAll('divPkgInfo','');"">Collapse All</a>")
|
| 1182 |
NewTextFile.WriteLine("</blockquote>")
|
1189 |
NewTextFile.WriteLine("</blockquote>")
|
| - |
|
1190 |
End If
|
| 1183 |
|
1191 |
|
| 1184 |
Dim currView_id
|
1192 |
Dim currView_id
|
| 1185 |
currView_id = -1
|
1193 |
currView_id = -1
|
| 1186 |
|
1194 |
|
| 1187 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
1195 |
While ((NOT rsQry.BOF) AND (NOT rsQry.EOF))
|
| Line 1436... |
Line 1444... |
| 1436 |
ChangeASource = false
|
1444 |
ChangeASource = false
|
| 1437 |
ChangeAUpdate = false
|
1445 |
ChangeAUpdate = false
|
| 1438 |
ChangeBSource = false
|
1446 |
ChangeBSource = false
|
| 1439 |
ChangeBUpdate = false
|
1447 |
ChangeBUpdate = false
|
| 1440 |
|
1448 |
|
| - |
|
1449 |
If genReport Then
|
| 1441 |
'NewTextFile.WriteLine("<br><b><font face="&chr(34)&"arial"&chr(34)&">"&pkgname&"</font></b>")
|
1450 |
'NewTextFile.WriteLine("<br><b><font face="&chr(34)&"arial"&chr(34)&">"&pkgname&"</font></b>")
|
| 1442 |
NewTextFile.Write("<a href=""javascript:;"" class=""body_scol"" onClick=""toggleSPAN('"& rowId &"');"">"& pkgname &"</a>")
|
1451 |
NewTextFile.Write("<a href=""javascript:;"" class=""body_scol"" onClick=""toggleSPAN('"& rowId &"');"">"& pkgname &"</a>")
|
| 1443 |
NewTextFile.WriteLine("<DIV class=divPkgInfo id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
|
1452 |
NewTextFile.WriteLine("<DIV class=divPkgInfo id=""spanPkgInfo"& rowId &""" name=""spanPkgInfo"" style=""display:none;"">")
|
| 1444 |
NewTextFile.Write(rsQryA("rtag_name")&" uses: "&rsQry("pkg_version_a")&" (")
|
1453 |
NewTextFile.Write(rsQryA("rtag_name")&" uses: "&rsQry("pkg_version_a")&" (")
|
| 1445 |
Call Release(rsQry("pv_id_a"))
|
1454 |
Call Release(rsQry("pv_id_a"))
|
| 1446 |
NewTextFile.WriteLine(")<br>")
|
1455 |
NewTextFile.WriteLine(")<br>")
|
| 1447 |
NewTextFile.Write(rsQryB("rtag_name")&" uses: "&rsQry("pkg_version_b")&" (")
|
1456 |
NewTextFile.Write(rsQryB("rtag_name")&" uses: "&rsQry("pkg_version_b")&" (")
|
| 1448 |
Call Release(rsQry("pv_id_b"))
|
1457 |
Call Release(rsQry("pv_id_b"))
|
| 1449 |
NewTextFile.WriteLine(")<br>")
|
1458 |
NewTextFile.WriteLine(")<br>")
|
| 1450 |
|
1459 |
|
| 1451 |
a = rsQry("pv_id_a")
|
1460 |
a = rsQry("pv_id_a")
|
| 1452 |
b = rsQry("pv_id_b")
|
1461 |
b = rsQry("pv_id_b")
|
| 1453 |
c = rsQry("pv_id_a")
|
1462 |
c = rsQry("pv_id_a")
|
| 1454 |
d = rsQry("pv_id_b")
|
1463 |
d = rsQry("pv_id_b")
|
| 1455 |
|
1464 |
|
| 1456 |
Set pvCollectionA = CreateObject("Scripting.Dictionary")
|
1465 |
Set pvCollectionA = CreateObject("Scripting.Dictionary")
|
| 1457 |
Set pvCollectionB = CreateObject("Scripting.Dictionary")
|
1466 |
Set pvCollectionB = CreateObject("Scripting.Dictionary")
|
| 1458 |
On Error Resume Next
|
1467 |
On Error Resume Next
|
| 1459 |
While CLng(a) <> CLng(b) and NOT errormsg
|
1468 |
While CLng(a) <> CLng(b) and NOT errormsg
|
| 1460 |
|
1469 |
|
| 1461 |
'NewTextFile.WriteLine("A: "&a)
|
1470 |
'NewTextFile.WriteLine("A: "&a)
|
| 1462 |
'NewTextFile.WriteLine("B: "&b)
|
1471 |
'NewTextFile.WriteLine("B: "&b)
|
| 1463 |
pvCollectionA.Add CStr(a), Empty
|
1472 |
pvCollectionA.Add CStr(a), Empty
|
| 1464 |
pvCollectionB.Add CStr(b), Empty
|
1473 |
pvCollectionB.Add CStr(b), Empty
|
| 1465 |
If CLng(a) > CLng(b) Then
|
1474 |
If CLng(a) > CLng(b) Then
|
| 1466 |
'NewTextFile.WriteLine("TestA")
|
1475 |
'NewTextFile.WriteLine("TestA")
|
| 1467 |
Call LastPvIdA(a)
|
1476 |
Call LastPvIdA(a)
|
| 1468 |
ElseIf CLng(b) > CLng(a) Then
|
1477 |
ElseIf CLng(b) > CLng(a) Then
|
| 1469 |
'NewTextFile.WriteLine("TestB")
|
1478 |
'NewTextFile.WriteLine("TestB")
|
| 1470 |
Call LastPvIdB(b)
|
1479 |
Call LastPvIdB(b)
|
| 1471 |
End If
|
1480 |
End If
|
| 1472 |
Wend
|
1481 |
Wend
|
| 1473 |
|
1482 |
|
| 1474 |
Set pvCollectionA = Nothing
|
1483 |
Set pvCollectionA = Nothing
|
| 1475 |
Set pvCollectionB = Nothing
|
1484 |
Set pvCollectionB = Nothing
|
| 1476 |
|
1485 |
|
| 1477 |
Call pkg_Version(a)
|
1486 |
Call pkg_Version(a)
|
| 1478 |
NewTextFile.Write("Common PARENT package version: "&pkgversion&" (")
|
1487 |
NewTextFile.Write("Common PARENT package version: "&pkgversion&" (")
|
| 1479 |
Call Release(a)
|
1488 |
Call Release(a)
|
| 1480 |
NewTextFile.WriteLine(")<br><br>")
|
1489 |
NewTextFile.WriteLine(")<br><br>")
|
| 1481 |
NewTextFile.WriteLine()
|
1490 |
NewTextFile.WriteLine()
|
| 1482 |
NewTextFile.WriteLine("<b>"&rsQryA("rtag_name")&"</b>")
|
1491 |
NewTextFile.WriteLine("<b>"&rsQryA("rtag_name")&"</b>")
|
| 1483 |
|
1492 |
|
| 1484 |
If pkgversion <> rsQry("pkg_version_a") Then
|
1493 |
If pkgversion <> rsQry("pkg_version_a") Then
|
| 1485 |
NewTextFile.WriteLine("<blockquote><b><i>Versions between "& pkgversion &" and "& rsQry("pkg_version_a")&"</i></b></blockquote>")
|
1494 |
NewTextFile.WriteLine("<blockquote><b><i>Versions between "& pkgversion &" and "& rsQry("pkg_version_a")&"</i></b></blockquote>")
|
| 1486 |
|
1495 |
|
| 1487 |
If errormsg Then
|
1496 |
If errormsg Then
|
| 1488 |
NewTextFile.WriteLine("Error determining root!<br>")
|
1497 |
NewTextFile.WriteLine("Error determining root!<br>")
|
| 1489 |
NewTextFile.WriteLine()
|
1498 |
NewTextFile.WriteLine()
|
| 1490 |
End If
|
1499 |
End If
|
| 1491 |
|
1500 |
|
| 1492 |
source_change = false
|
1501 |
source_change = false
|
| 1493 |
|
1502 |
|
| 1494 |
While CLng(a) <> CLng(c) and NOT errormsg
|
1503 |
While CLng(a) <> CLng(c) and NOT errormsg
|
| 1495 |
Call Comments(c)
|
1504 |
Call Comments(c)
|
| 1496 |
If scFlag = TRUE Then
|
1505 |
If scFlag = TRUE Then
|
| 1497 |
Call GetFixedIssues(c)
|
1506 |
Call GetFixedIssues(c)
|
| - |
|
1507 |
End If
|
| - |
|
1508 |
Call LastPvIdAa(c)
|
| - |
|
1509 |
NewTextFile.WriteLine()
|
| - |
|
1510 |
Wend
|
| - |
|
1511 |
|
| - |
|
1512 |
If source_change = false Then
|
| - |
|
1513 |
NewTextFile.WriteLine("<blockquote><b><i>No source changes to "& rsQryA("rtag_name")&". Only Rippled Builds.</i></b></blockquote><br>")
|
| - |
|
1514 |
ChangeASource = true
|
| 1498 |
End If
|
1515 |
End If
|
| - |
|
1516 |
|
| 1499 |
Call LastPvIdAa(c)
|
1517 |
Call pkg_Version(b)
|
| - |
|
1518 |
NewTextFile.WriteLine()
|
| 1500 |
NewTextFile.WriteLine()
|
1519 |
NewTextFile.WriteLine()
|
| 1501 |
Wend
|
- |
|
| 1502 |
|
1520 |
|
| 1503 |
If source_change = false Then
|
1521 |
ElseIf pkgversion = rsQry("pkg_version_a") Then
|
| 1504 |
NewTextFile.WriteLine("<blockquote><b><i>No source changes to "& rsQryA("rtag_name")&". Only Rippled Builds.</i></b></blockquote><br>")
|
1522 |
NewTextFile.WriteLine("<blockquote><b><i>No updates to "& rsQryA("rtag_name")&"</i></b></blockquote><br>")
|
| 1505 |
ChangeASource = true
|
1523 |
ChangeAUpdate = true
|
| - |
|
1524 |
NewTextFile.WriteLine()
|
| 1506 |
End If
|
1525 |
End If
|
| 1507 |
|
1526 |
|
| 1508 |
Call pkg_Version(b)
|
- |
|
| 1509 |
NewTextFile.WriteLine()
|
- |
|
| 1510 |
NewTextFile.WriteLine()
|
1527 |
NewTextFile.WriteLine("<b>"&rsQryB("rtag_name")&"</b>")
|
| 1511 |
|
1528 |
|
| 1512 |
ElseIf pkgversion = rsQry("pkg_version_a") Then
|
1529 |
If pkgversion <> rsQry("pkg_version_b") Then
|
| 1513 |
NewTextFile.WriteLine("<blockquote><b><i>No updates to "& rsQryA("rtag_name")&"</i></b></blockquote><br>")
|
1530 |
NewTextFile.WriteLine("<blockquote><b><i>Versions between "& pkgversion &" and "& rsQry("pkg_version_b")&"</i></b></blockquote>")
|
| 1514 |
ChangeAUpdate = true
|
- |
|
| 1515 |
NewTextFile.WriteLine()
|
- |
|
| 1516 |
End If
|
- |
|
| 1517 |
|
1531 |
|
| - |
|
1532 |
If errormsg Then
|
| 1518 |
NewTextFile.WriteLine("<b>"&rsQryB("rtag_name")&"</b>")
|
1533 |
NewTextFile.WriteLine("Error determining root!<br>")
|
| - |
|
1534 |
NewTextFile.WriteLine()
|
| - |
|
1535 |
End If
|
| - |
|
1536 |
|
| - |
|
1537 |
source_change = false
|
| 1519 |
|
1538 |
|
| - |
|
1539 |
While CLng(b) <> CLng(d) and NOT errormsg
|
| - |
|
1540 |
Call Comments(d)
|
| - |
|
1541 |
If scFlag = TRUE Then
|
| - |
|
1542 |
Call GetFixedIssues(d)
|
| - |
|
1543 |
End If
|
| - |
|
1544 |
Call LastPvIdBb(d)
|
| - |
|
1545 |
NewTextFile.WriteLine()
|
| - |
|
1546 |
Wend
|
| - |
|
1547 |
|
| 1520 |
If pkgversion <> rsQry("pkg_version_b") Then
|
1548 |
If source_change = false Then
|
| 1521 |
NewTextFile.WriteLine("<blockquote><b><i>Versions between "& pkgversion &" and "& rsQry("pkg_version_b")&"</i></b></blockquote>")
|
1549 |
NewTextFIle.WriteLine("<blockquote><b><i>No source changes to "& rsQryB("rtag_name")&". Only Rippled Builds.</i></b></blockquote><br>")
|
| - |
|
1550 |
ChangeBSource = true
|
| - |
|
1551 |
End If
|
| 1522 |
|
1552 |
|
| 1523 |
If errormsg Then
|
1553 |
ElseIf pkgversion = rsQry("pkg_version_b") Then
|
| - |
|
1554 |
NewTextFile.WriteLine("<blockquote><b><i>No updates to "& rsQryB("rtag_name")&"</i></b></blockquote><br>")
|
| 1524 |
NewTextFile.WriteLine("Error determining root!<br>")
|
1555 |
ChangeBUpdate = true
|
| 1525 |
NewTextFile.WriteLine()
|
1556 |
NewTextFile.WriteLine()
|
| 1526 |
End If
|
1557 |
End If
|
| 1527 |
|
1558 |
|
| 1528 |
source_change = false
|
1559 |
NewTextFile.WriteLine("</DIV>")
|
| 1529 |
|
1560 |
|
| - |
|
1561 |
If ChangeASource Then
|
| - |
|
1562 |
If ChangeBSource Then
|
| 1530 |
While CLng(b) <> CLng(d) and NOT errormsg
|
1563 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &": .</b class=changesnone> Ripple Builds Only.</td><td width=""50%""><b>"& Ucase(rsQryB("rtag_name")) &": </b class=changesnone> Ripple Builds Only.</td> </tr></table></blockquote>")
|
| 1531 |
Call Comments(d)
|
1564 |
ElseIf ChangeBUpdate Then
|
| 1532 |
If scFlag = TRUE Then
|
1565 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &": </b><span class=changesnone>Ripple Builds Only.</span></td><td width=""50%""><b>"& Ucase(rsQryB("rtag_name")) &": </b><span class=changesnone> No Updates.</span></td> </tr></table></blockquote>")
|
| - |
|
1566 |
ElseIf NOT ChangeBSource AND NOT ChangeBUpdate Then
|
| 1533 |
Call GetFixedIssues(d)
|
1567 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""><tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <span class=changesnone>Ripple Builds Only.</span></td> <td width=""50%""> <b>"& Ucase(rsQryB("rtag_name")) &":</b> <b class=changesb> SOURCE CODE CHANGES.</b></td></tr></table></blockquote>")
|
| 1534 |
End If
|
1568 |
End If
|
| 1535 |
Call LastPvIdBb(d)
|
- |
|
| 1536 |
NewTextFile.WriteLine()
|
- |
|
| 1537 |
Wend
|
- |
|
| 1538 |
|
- |
|
| 1539 |
If source_change = false Then
|
- |
|
| 1540 |
NewTextFIle.WriteLine("<blockquote><b><i>No source changes to "& rsQryB("rtag_name")&". Only Rippled Builds.</i></b></blockquote><br>")
|
- |
|
| 1541 |
ChangeBSource = true
|
- |
|
| 1542 |
End If
|
1569 |
End If
|
| 1543 |
|
1570 |
|
| 1544 |
ElseIf pkgversion = rsQry("pkg_version_b") Then
|
- |
|
| 1545 |
NewTextFile.WriteLine("<blockquote><b><i>No updates to "& rsQryB("rtag_name")&"</i></b></blockquote><br>")
|
- |
|
| 1546 |
ChangeBUpdate = true
|
- |
|
| 1547 |
NewTextFile.WriteLine()
|
- |
|
| 1548 |
End If
|
- |
|
| 1549 |
|
- |
|
| 1550 |
NewTextFile.WriteLine("</DIV>")
|
- |
|
| 1551 |
|
- |
|
| 1552 |
If ChangeASource Then
|
- |
|
| 1553 |
If ChangeBSource Then
|
1571 |
If ChangeBSource Then
|
| 1554 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &": .</b class=changesnone> Ripple Builds Only.</td><td width=""50%""><b>"& Ucase(rsQryB("rtag_name")) &": </b class=changesnone> Ripple Builds Only.</td> </tr></table></blockquote>")
|
- |
|
| 1555 |
ElseIf ChangeBUpdate Then
|
1572 |
If NOT ChangeAUpdate Then
|
| 1556 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &": </b><span class=changesnone>Ripple Builds Only.</span></td><td width=""50%""><b>"& Ucase(rsQryB("rtag_name")) &": </b><span class=changesnone> No Updates.</span></td> </tr></table></blockquote>")
|
- |
|
| 1557 |
ElseIf NOT ChangeBSource AND NOT ChangeBUpdate Then
|
1573 |
If NOT ChangeASource AND NOT ChangeBUpdate Then
|
| 1558 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""><tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <span class=changesnone>Ripple Builds Only.</span></td> <td width=""50%""> <b>"& Ucase(rsQryB("rtag_name")) &":</b> <b class=changesb> SOURCE CODE CHANGES.</b></td></tr></table></blockquote>")
|
1574 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &": </b><b class=changesa> SOURCE CODE CHANGES</b>.</td> <td width=""50%""> <b>"& Ucase(rsQryB("rtag_name")) &":</b> <span class=changesnone> Ripple Builds Only.</span></td> </tr></table></blockquote>")
|
| 1559 |
End If
|
1575 |
End If
|
| 1560 |
End If
|
- |
|
| 1561 |
|
- |
|
| 1562 |
If ChangeBSource Then
|
- |
|
| 1563 |
If NOT ChangeAUpdate Then
|
- |
|
| 1564 |
If NOT ChangeASource AND NOT ChangeBUpdate Then
|
- |
|
| 1565 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &": </b><b class=changesa> SOURCE CODE CHANGES</b>.</td> <td width=""50%""> <b>"& Ucase(rsQryB("rtag_name")) &":</b> <span class=changesnone> Ripple Builds Only.</span></td> </tr></table></blockquote>")
|
- |
|
| 1566 |
End If
|
1576 |
End If
|
| 1567 |
End If
|
1577 |
End If
|
| 1568 |
End If
|
- |
|
| 1569 |
|
1578 |
|
| 1570 |
If NOT ChangeASource Then
|
1579 |
If NOT ChangeASource Then
|
| 1571 |
If NOT ChangeAUpdate Then
|
1580 |
If NOT ChangeAUpdate Then
|
| 1572 |
If NOT ChangeBSource AND NOT ChangeBUpdate Then
|
1581 |
If NOT ChangeBSource AND NOT ChangeBUpdate Then
|
| 1573 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <b class=changesa> SOURCE CODE CHANGES.</b></td><td width=""50%""><b>"& Ucase(rsQryB("rtag_name")) &":</b><b class=changesb> SOURCE CODE CHANGES.</b></td></tr></table></blockquote>")
|
1582 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <b class=changesa> SOURCE CODE CHANGES.</b></td><td width=""50%""><b>"& Ucase(rsQryB("rtag_name")) &":</b><b class=changesb> SOURCE CODE CHANGES.</b></td></tr></table></blockquote>")
|
| 1574 |
ElseIf ChangeBUpdate Then
|
1583 |
ElseIf ChangeBUpdate Then
|
| 1575 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <b class=changesa> SOURCE CODE CHANGES.</b></td> <td width=""50%""><b>"& Ucase(rsQryB("rtag_name")) &":</b><span class=changesnone> No Updates.</span></td> </tr></table></blockquote>")
|
1584 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <b class=changesa> SOURCE CODE CHANGES.</b></td> <td width=""50%""><b>"& Ucase(rsQryB("rtag_name")) &":</b><span class=changesnone> No Updates.</span></td> </tr></table></blockquote>")
|
| 1576 |
End If
|
1585 |
End If
|
| 1577 |
ElseIf ChangeAUpdate Then
|
1586 |
ElseIf ChangeAUpdate Then
|
| 1578 |
If NOT ChangeBSource AND NOT ChangeBUpdate Then
|
1587 |
If NOT ChangeBSource AND NOT ChangeBUpdate Then
|
| 1579 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <span class=changesnone>No Updates.</span></td> <td width=""50%""> <b></font>"& Ucase(rsQryB("rtag_name")) &":</b><b class=changesb> SOURCE CODE CHANGES.</b></td></tr></table></blockquote>")
|
1588 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <span class=changesnone>No Updates.</span></td> <td width=""50%""> <b></font>"& Ucase(rsQryB("rtag_name")) &":</b><b class=changesb> SOURCE CODE CHANGES.</b></td></tr></table></blockquote>")
|
| 1580 |
ElseIf ChangeBSource Then
|
1589 |
ElseIf ChangeBSource Then
|
| 1581 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <span class=changesnone>No Updates.</span></td> <td width=""50%""> </font><b>"& Ucase(rsQryB("rtag_name")) &":</b> <span class=changesnone> Ripple Builds Only.</span></td> </tr></table></blockquote>")
|
1590 |
NewTextFile.WriteLine("<blockquote><table width=""100%"" border=""0""> <tr><td width=""50%""><b>"& Ucase(rsQryA("rtag_name")) &":</b> <span class=changesnone>No Updates.</span></td> <td width=""50%""> </font><b>"& Ucase(rsQryB("rtag_name")) &":</b> <span class=changesnone> Ripple Builds Only.</span></td> </tr></table></blockquote>")
|
| - |
|
1591 |
End If
|
| 1582 |
End If
|
1592 |
End If
|
| 1583 |
End If
|
1593 |
End If
|
| 1584 |
End If
|
1594 |
End If
|
| 1585 |
|
1595 |
|
| 1586 |
End If 'changeType = "U" OR changeType = "UW"
|
1596 |
End If 'changeType = "U" OR changeType = "UW"
|
| Line 1592... |
Line 1602... |
| 1592 |
|
1602 |
|
| 1593 |
rsQry.Close
|
1603 |
rsQry.Close
|
| 1594 |
Set rsQry = Nothing
|
1604 |
Set rsQry = Nothing
|
| 1595 |
%>
|
1605 |
%>
|
| 1596 |
<%
|
1606 |
<%
|
| - |
|
1607 |
If genReport Then
|
| 1597 |
Call Footer()
|
1608 |
Call Footer()
|
| 1598 |
NewTextFile.Close
|
1609 |
NewTextFile.Close
|
| 1599 |
Set NewTextFile=Nothing
|
1610 |
Set NewTextFile=Nothing
|
| - |
|
1611 |
End If
|
| 1600 |
%>
|
1612 |
%>
|
| 1601 |
</table>
|
1613 |
</table>
|
| 1602 |
<br>
|
1614 |
<br>
|
| 1603 |
<%Else%>
|
1615 |
<%Else%>
|
| 1604 |
<br>
|
1616 |
<br>
|
| Line 1700... |
Line 1712... |
| 1700 |
</tr>
|
1712 |
</tr>
|
| 1701 |
</table>
|
1713 |
</table>
|
| 1702 |
</form>
|
1714 |
</form>
|
| 1703 |
<%
|
1715 |
<%
|
| 1704 |
If email Then
|
1716 |
If email Then
|
| 1705 |
Dim LocalPath
|
- |
|
| 1706 |
LocalPath = Server.MapPath("docs\compareReleases_"&objAccessControl.UserName&".html")
|
- |
|
| 1707 |
|
- |
|
| 1708 |
Send_Email "Release Manager Notification",_
|
1717 |
Send_Email "Release Manager Notification",_
|
| 1709 |
ADMIN_EMAIL, _
|
1718 |
ADMIN_EMAIL, _
|
| 1710 |
objAccessControl.UserEmail,_
|
1719 |
objAccessControl.UserEmail,_
|
| 1711 |
"Release Comparisons from Release Manager", _
|
1720 |
"Release Comparisons from Release Manager", _
|
| 1712 |
"Your requested report...",_
|
1721 |
"Your requested report...",_
|
| 1713 |
LocalPath
|
1722 |
reportPath
|
| 1714 |
End If
|
1723 |
End If
|
| 1715 |
%>
|
1724 |
%>
|
| 1716 |
<!-- FOOTER -->
|
1725 |
<!-- FOOTER -->
|
| 1717 |
<!--#include file="_footer.asp"-->
|
1726 |
<!--#include file="_footer.asp"-->
|
| 1718 |
</body>
|
1727 |
</body>
|