| Line 45... |
Line 45... |
| 45 |
<!-- Local Java Script -->
|
45 |
<!-- Local Java Script -->
|
| 46 |
<script language="JavaScript">
|
46 |
<script language="JavaScript">
|
| 47 |
// Local Tips
|
47 |
// Local Tips
|
| 48 |
formTips.tips.following = stdTip(200, 'Following', 'The user may \'follow\' a package in one or more Projects.<p>When the package is released the user will be notified by email.' );
|
48 |
formTips.tips.following = stdTip(200, 'Following', 'The user may \'follow\' a package in one or more Projects.<p>When the package is released the user will be notified by email.' );
|
| 49 |
formTips.tips.ripple_stop = stdTip(200, 'Ripple Stop', 'When set, will prevent the package being rippled. May be cleared to allow the ripple to continue.<p>If marked as \'Persistent\', then each new version will be marked to prevent rippling.' );
|
49 |
formTips.tips.ripple_stop = stdTip(200, 'Ripple Stop', 'When set, will prevent the package being rippled. May be cleared to allow the ripple to continue.<p>If marked as \'Persistent\', then each new version will be marked to prevent rippling.' );
|
| - |
|
50 |
formTips.tips.PreviousVcsTag = newTip(-150, 20, 200, 10, 'PREVIOUS VCS TAG','This is the vcs tag of the immediate ancestor version to the current package version.'+
|
| - |
|
51 |
'<br><br>NOTE:<br>Derivation of this has no sensitivity to the selected release.');
|
| - |
|
52 |
formTips.tips.PreviousSignificantVcsTag= newTip(-150, 20, 200, 10, 'PREVIOUS SIGNIFICANT VCS TAG',
|
| - |
|
53 |
'This is the vcs tag of the ancestor version immediately preceding a significant (non-ripple) change that led to the current package version.'+
|
| - |
|
54 |
'<br><br>NOTE:<br>Derivation of this has no sensitivity to the selected release.');
|
| - |
|
55 |
|
| - |
|
56 |
formTips.tips.PreviousNonRippleVcsTag= newTip(-150, 20, 200, 10, 'PREVIOUS NON RIPPLE VCS TAG',
|
| - |
|
57 |
'This is the vcs tag of the preceding significant (non-ripple) change that led to the current package version.'+
|
| - |
|
58 |
'<br><br>NOTE:<br>Derivation of this has no sensitivity to the selected release.');
|
| - |
|
59 |
|
| 50 |
</script>
|
60 |
</script>
|
| 51 |
<%
|
61 |
<%
|
| 52 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
62 |
'----------------------------------------------------------------------------------------------------------------------------------------
|
| 53 |
Function asDepIss ( SSiss_db_id, SScolumn )
|
63 |
Function asDepIss ( SSiss_db_id, SScolumn )
|
| 54 |
If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
|
64 |
If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
|
| Line 598... |
Line 608... |
| 598 |
joiner = "&"
|
608 |
joiner = "&"
|
| 599 |
End If
|
609 |
End If
|
| 600 |
|
610 |
|
| 601 |
getLinkUrl = getLinkUrl + joiner + "pv_id=" + pvid
|
611 |
getLinkUrl = getLinkUrl + joiner + "pv_id=" + pvid
|
| 602 |
End Function
|
612 |
End Function
|
| - |
|
613 |
'-------------------------------------------------
|
| - |
|
614 |
' DisplayVersionRow - Display a row of vesrion information
|
| - |
|
615 |
' pvid - pvid to process
|
| - |
|
616 |
' title - row title
|
| - |
|
617 |
' helpTag - Tag for help
|
| - |
|
618 |
'
|
| - |
|
619 |
Sub DisplayVersionRow( pvid, title, helpTag )
|
| - |
|
620 |
Dim versionText
|
| - |
|
621 |
Dim tagText
|
| - |
|
622 |
Dim showLink
|
| - |
|
623 |
Dim clipClass
|
| - |
|
624 |
Dim ExtractText
|
| - |
|
625 |
Dim queryResult
|
| - |
|
626 |
Set queryResult = OraDatabase.DbCreateDynaset( "SELECT pkg_version from package_versions where pv_id =" & pvid , cint(0))
|
| - |
|
627 |
|
| - |
|
628 |
If (NOT queryResult.BOF ) AND (NOT queryResult.EOF) Then
|
| - |
|
629 |
versionText = queryResult("pkg_version")
|
| - |
|
630 |
tagText = Get_Pkg_Vcs_Tag(pvid)
|
| - |
|
631 |
showLink = isDefined("showPrevVerLinks")
|
| - |
|
632 |
Else
|
| - |
|
633 |
versionText = "Unknown"
|
| - |
|
634 |
tagText = NULL
|
| - |
|
635 |
showLink = FALSE
|
| - |
|
636 |
End If
|
| - |
|
637 |
|
| - |
|
638 |
If sjats_extractable Then
|
| - |
|
639 |
clipClass = "clip"
|
| - |
|
640 |
ExtractText = NewLine_To_BR ( To_HTML(tagText) )
|
| - |
|
641 |
Else
|
| - |
|
642 |
clipClass = ""
|
| - |
|
643 |
ExtractText = "Cannot be extracted with JATS"
|
| - |
|
644 |
End If
|
| - |
|
645 |
%>
|
| - |
|
646 |
<tr>
|
| - |
|
647 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt"><strong><%=title%></strong><%=Quick_Help(helpTag)%></td>
|
| - |
|
648 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
| - |
|
649 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| - |
|
650 |
<tr class="sublbox_txt">
|
| - |
|
651 |
<td width=15% colspan=2 nowrap class="sublbox_txt">
|
| - |
|
652 |
<%=versionText%>
|
| - |
|
653 |
<%If showLink Then %>
|
| - |
|
654 |
<a href=<%=getLinkUrl(pvid)%>>
|
| - |
|
655 |
<img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
|
| - |
|
656 |
</a>
|
| - |
|
657 |
<%End If%>
|
| - |
|
658 |
</td>
|
| - |
|
659 |
<%If NOT IsNull(tagText) Then %>
|
| - |
|
660 |
<td colspan=2 nowrap class="sublbox_txt <%=clipClass%>">
|
| - |
|
661 |
<%=ExtractText%>
|
| - |
|
662 |
</td>
|
| - |
|
663 |
<%End If%>
|
| - |
|
664 |
</tr>
|
| - |
|
665 |
</table>
|
| - |
|
666 |
</td>
|
| - |
|
667 |
</tr>
|
| - |
|
668 |
<%
|
| - |
|
669 |
queryResult.Close()
|
| - |
|
670 |
Set queryResult = nothing
|
| - |
|
671 |
End Sub
|
| 603 |
%>
|
672 |
%>
|
| 604 |
<%
|
673 |
<%
|
| 605 |
'------------------ MAIN LINE --------------------
|
674 |
'------------------ MAIN LINE --------------------
|
| 606 |
'-------------------------------------------------
|
675 |
'-------------------------------------------------
|
| 607 |
If pkgInfoHash.Exists("pv_id") Then
|
676 |
If pkgInfoHash.Exists("pv_id") Then
|
| Line 961... |
Line 1030... |
| 961 |
<%currG1 = CInt(rsTemp("bm_id"))
|
1030 |
<%currG1 = CInt(rsTemp("bm_id"))
|
| 962 |
End If
|
1031 |
End If
|
| 963 |
rsTemp.MoveNext
|
1032 |
rsTemp.MoveNext
|
| 964 |
WEnd
|
1033 |
WEnd
|
| 965 |
%>
|
1034 |
%>
|
| 966 |
<tr>
|
- |
|
| 967 |
<td width="5%"></td>
|
- |
|
| 968 |
<td width="95%"></td>
|
- |
|
| 969 |
</tr>
|
- |
|
| 970 |
</table>
|
1035 |
</table>
|
| 971 |
<%End If%>
|
1036 |
<%End If%>
|
| 972 |
<%End If%>
|
1037 |
<%End If%>
|
| 973 |
</td>
|
1038 |
</td>
|
| 974 |
</tr>
|
1039 |
</tr>
|
| Line 977... |
Line 1042... |
| 977 |
<%
|
1042 |
<%
|
| 978 |
' Get JATS extraction commands
|
1043 |
' Get JATS extraction commands
|
| 979 |
Dim sjats_cmd_test, sjats_cmds_qh, sjats_extractable
|
1044 |
Dim sjats_cmd_test, sjats_cmds_qh, sjats_extractable
|
| 980 |
ReDim sjats_cmds(6)
|
1045 |
ReDim sjats_cmds(6)
|
| 981 |
call Jats_Extract_Command(sjats_cmds, sjats_cmd_test, sjats_cmds_qh, sjats_extractable)
|
1046 |
call Jats_Extract_Command(sjats_cmds, sjats_cmd_test, sjats_cmds_qh, sjats_extractable)
|
| 982 |
%>
|
- |
|
| 983 |
|
1047 |
|
| 984 |
|
1048 |
' Previous Versions
|
| 985 |
<%If IsNull(pkgInfoHash.Item ("is_patch")) Then%>
|
1049 |
If IsNull(pkgInfoHash.Item ("is_patch")) Then
|
| 986 |
<tr>
|
- |
|
| 987 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
|
1050 |
Dim PrevVerTitle : PrevVerTitle = "Previous Version:"
|
| 988 |
<%
|
1051 |
|
| 989 |
' Previous Version
|
1052 |
If canActionControlInProject("ChangePreviousVersion") AND NOT pkgInfoHash.Item("is_sdkpkg") Then
|
| 990 |
sonclick="MM_openVixIFrame('_wform_change_previous_version.asp?rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Change Previous Version')"
|
1053 |
sonclick="MM_openVixIFrame('_wform_change_previous_version.asp?rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Change Previous Version')"
|
| 991 |
If canActionControlInProject("ChangePreviousVersion") AND NOT pkgInfoHash.Item("is_sdkpkg") Then
|
- |
|
| 992 |
%>
|
- |
|
| 993 |
<a href='javascript:;' onClick="<%=sonclick%>" class='body_txt'>
|
- |
|
| 994 |
<strong>Previous Version:</strong><img src='images/i_edit.gif' width='12' height='12' border='0' alt='Edit'>
|
1054 |
PrevVerTitle = "<a href='javascript:;' onClick=""" & sonclick & """ class='sublbox_txt'> " & PrevVerTitle & " <img src='images/i_edit.gif' width='12' height='12' border='0' alt='Edit'></a>"
|
| 995 |
</a>
|
- |
|
| 996 |
<%Else%>
|
1055 |
Else
|
| 997 |
<strong>Previous Version:</strong><img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Edit'>
|
1056 |
PrevVerTitle = PrevVerTitle & "<img src='images/i_edit_disable.gif' width='12' height='12' border='0' alt='Edit'>"
|
| 998 |
<%End If%>
|
1057 |
End If
|
| 999 |
</td>
|
1058 |
Call DisplayVersionRow(pkgInfoHash.Item ("last_pv_id"), PrevVerTitle, "PreviousVcsTag")
|
| 1000 |
|
1059 |
|
| 1001 |
<%
|
- |
|
| 1002 |
Dim sprevious_version_value
|
- |
|
| 1003 |
sprevious_version_value = ""
|
- |
|
| 1004 |
If IsNull(pkgInfoHash.Item ("previous_version")) Then
|
- |
|
| 1005 |
sprevious_version_value = "Unknown!"
|
- |
|
| 1006 |
Else
|
- |
|
| 1007 |
sprevious_version_value = pkgInfoHash.Item ("previous_version")
|
- |
|
| 1008 |
End If
|
- |
|
| 1009 |
|
- |
|
| 1010 |
' Previous pkg vcs tag
|
- |
|
| 1011 |
Dim last_pv_id
|
- |
|
| 1012 |
Dim rsQryPV, rsQryVT
|
- |
|
| 1013 |
Set rsQryPV = OraDatabase.DbCreateDynaset( "SELECT last_pv_id from package_versions where pv_id ="&parPv_id , cint(0))
|
- |
|
| 1014 |
Dim slast_vcs_tag
|
- |
|
| 1015 |
last_pv_id = rsQryPV("last_pv_id")
|
- |
|
| 1016 |
If (pv_id_exists(last_pv_id)) Then
|
- |
|
| 1017 |
slast_vcs_tag = Get_Pkg_Vcs_Tag(last_pv_id)
|
- |
|
| 1018 |
End If
|
- |
|
| 1019 |
%>
|
- |
|
| 1020 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
- |
|
| 1021 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
- |
|
| 1022 |
<tr class="sublbox_txt">
|
- |
|
| 1023 |
<td width=15% colspan=2 nowrap class="sublbox_txt">
|
- |
|
| 1024 |
<%=sprevious_version_value%>
|
- |
|
| 1025 |
<%If isDefined("showPrevVerLinks") Then %>
|
- |
|
| 1026 |
<a href=<%=getLinkUrl(last_pv_id)%>>
|
- |
|
| 1027 |
<img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
|
- |
|
| 1028 |
</a>
|
- |
|
| 1029 |
<%End If%>
|
- |
|
| 1030 |
</td>
|
- |
|
| 1031 |
<td colspan="2" nowrap class="sublbox_txt clip">
|
- |
|
| 1032 |
<% If sjats_extractable Then
|
- |
|
| 1033 |
response.write( NewLine_To_BR ( To_HTML(slast_vcs_tag) ))
|
- |
|
| 1034 |
Else
|
- |
|
| 1035 |
response.write("Cannot be extracted with JATS")
|
- |
|
| 1036 |
End If
|
- |
|
| 1037 |
response.write(Quick_Help ( "PreviousVcsTag" ))
|
- |
|
| 1038 |
%>
|
- |
|
| 1039 |
</td>
|
- |
|
| 1040 |
</tr>
|
- |
|
| 1041 |
</table>
|
- |
|
| 1042 |
</td>
|
- |
|
| 1043 |
</tr>
|
- |
|
| 1044 |
<%End If%>
|
- |
|
| 1045 |
<%
|
- |
|
| 1046 |
Dim iLastSignificantPVID
|
1060 |
Dim iLastSignificantPVID
|
| 1047 |
Dim old_pkg_vcs_tag
|
1061 |
Dim iRippleBasePVID
|
| 1048 |
Dim old_previous_version_value
|
- |
|
| 1049 |
iLastSignificantPVID = getLastSignificantPVID(pkgInfoHash.Item("pv_id"), pkgInfoHash.Item("last_pv_id"))
|
1062 |
Call getLastSignificantVersions(pkgInfoHash.Item("pv_id"), iRippleBasePVID, iLastSignificantPVID)
|
| 1050 |
|
- |
|
| 1051 |
If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
|
- |
|
| 1052 |
Dim rsQryLPV
|
- |
|
| 1053 |
Set rsQryLPV = OraDatabase.DbCreateDynaset( "SELECT pkg_version from package_versions where pv_id ="&iLastSignificantPVID , cint(0))
|
- |
|
| 1054 |
old_previous_version_value = rsQryLPV("pkg_version")
|
- |
|
| 1055 |
old_pkg_vcs_tag = Get_Pkg_Vcs_Tag(iLastSignificantPVID)
|
- |
|
| 1056 |
%>
|
- |
|
| 1057 |
<tr>
|
- |
|
| 1058 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt"><strong>Previous Significant Version:</strong></td>
|
- |
|
| 1059 |
<td bgcolor=#f5f5f5 class="sublbox_txt">
|
- |
|
| 1060 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
- |
|
| 1061 |
<tr class="sublbox_txt">
|
- |
|
| 1062 |
<td width=15% colspan=2 nowrap class="sublbox_txt">
|
- |
|
| 1063 |
<%=old_previous_version_value%>
|
- |
|
| 1064 |
<%If isDefined("showPrevVerLinks") Then %>
|
- |
|
| 1065 |
<a href=<%=getLinkUrl(iLastSignificantPVID)%>>
|
- |
|
| 1066 |
<img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
|
- |
|
| 1067 |
</a>
|
- |
|
| 1068 |
<%End If%>
|
- |
|
| 1069 |
</td>
|
- |
|
| 1070 |
<td colspan=2 nowrap class="sublbox_txt clip">
|
- |
|
| 1071 |
<% If sjats_extractable Then
|
- |
|
| 1072 |
response.write( NewLine_To_BR ( To_HTML(old_pkg_vcs_tag) ))
|
- |
|
| 1073 |
Else
|
- |
|
| 1074 |
response.write("Cannot be extracted with JATS")
|
- |
|
| 1075 |
End If
|
- |
|
| 1076 |
response.write(Quick_Help ( "PreviousSignificantVcsTag" ))
|
- |
|
| 1077 |
%>
|
- |
|
| 1078 |
</td>
|
- |
|
| 1079 |
</tr>
|
- |
|
| 1080 |
</table>
|
- |
|
| 1081 |
</td>
|
- |
|
| 1082 |
</tr>
|
- |
|
| 1083 |
<%End If%>
|
- |
|
| 1084 |
|
1063 |
|
| - |
|
1064 |
Call DisplayVersionRow(iRippleBasePVID, "Previous NonRipple Version:", "PreviousNonRippleVcsTag")
|
| - |
|
1065 |
Call DisplayVersionRow(iLastSignificantPVID, "Previous Significant Version:", "PreviousSignificantVcsTag")
|
| - |
|
1066 |
End If
|
| - |
|
1067 |
%>
|
| 1085 |
<tr>
|
1068 |
<tr>
|
| 1086 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt" valign="top">
|
1069 |
<td width="20%" bgcolor=#e4e9ec class="sublbox_txt" valign="top">
|
| 1087 |
<strong>JATS extraction commands:</strong>
|
1070 |
<strong>JATS extraction commands:</strong>
|
| 1088 |
<%=Quick_Help ( "JatsExtraction_" & sjats_cmds_qh )%>
|
1071 |
<%=Quick_Help ( "JatsExtraction_" & sjats_cmds_qh )%>
|
| 1089 |
</td>
|
1072 |
</td>
|
| Line 1592... |
Line 1575... |
| 1592 |
Response.write "</table>"
|
1575 |
Response.write "</table>"
|
| 1593 |
%>
|
1576 |
%>
|
| 1594 |
</td>
|
1577 |
</td>
|
| 1595 |
</tr>
|
1578 |
</tr>
|
| 1596 |
<%End If%>
|
1579 |
<%End If%>
|
| 1597 |
<%If Request("rtag_id") <> "" Then
|
1580 |
<%If Request("rtag_id") <> "" AND pkgInfoHash.Item("dlocked") = "Y" Then
|
| 1598 |
Dim sClickStop, sStopText, dRippleStop, sButtonText, sPersistText
|
1581 |
Dim sClickStop, sStopText, dRippleStop, sButtonText, sPersistText
|
| 1599 |
dRippleStop = pkgInfoHash.Item("ripple_stop")
|
1582 |
dRippleStop = pkgInfoHash.Item("ripple_stop")
|
| 1600 |
If dRippleStop = "" OR IsNull(dRippleStop) Then
|
1583 |
If dRippleStop = "" OR IsNull(dRippleStop) Then
|
| 1601 |
sClickStop="vixConfirm('Marked this package so as to prevent it from being built<br>when its dependencies change, until it is manually resumed.<p>Stop Ripple Builds',{title:'Stop Ripple', button:'Stop', url: '_s_ripple_stop.asp?mode=s&rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &"'});"
|
1584 |
sClickStop="vixConfirm('Marked this package so as to prevent it from being built<br>when its dependencies change, until it is manually resumed.<p>Stop Ripple Builds',{title:'Stop Ripple', button:'Stop', url: '_s_ripple_stop.asp?mode=s&rfile="& scriptName &"&pv_id="& parPv_id &"&rtag_id="& parRtag_id &"'});"
|
| 1602 |
sStopText = "Normal"
|
1585 |
sStopText = "Normal"
|