Subversion Repositories DevTools

Rev

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

Rev 5383 Rev 5472
Line 586... Line 586...
586 
	End If
 586 
	End If
587 
 
 587 
 
588 
    OraDatabase.Parameters.Remove "PV_ID"
 588 
    OraDatabase.Parameters.Remove "PV_ID"
589 
 
 589 
 
590 
End Function
 590 
End Function
- 
 
 591 
'-------------------------------------------------
- 
 
 592 
Function getLinkUrl(pvid)
- 
 
 593 
     Dim joiner : joiner = "?"
- 
 
 594 
 
- 
 
 595 
     getLinkUrl = scriptName
- 
 
 596 
 
- 
 
 597 
     If parRtag_id <> "" Then
- 
 
 598 
        getLinkUrl = getLinkUrl + joiner + "rtag_id=" + parRtag_id
- 
 
 599 
        joiner = "&"
- 
 
 600 
     End If
- 
 
 601 
 
- 
 
 602 
     getLinkUrl = getLinkUrl + joiner + "pv_id=" + pvid
- 
 
 603 
End Function
591 
%>
 604 
%>
592 
<%
 605 
<%
593 
'------------------ MAIN LINE --------------------
 606 
'------------------ MAIN LINE --------------------
594 
'-------------------------------------------------
 607 
'-------------------------------------------------
595 
%>
 608 
%>
Line 986... Line 999...
986 
                <td bgcolor=#f5f5f5 class="sublbox_txt">
 999 
                <td bgcolor=#f5f5f5 class="sublbox_txt">
987 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
 1000 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
988 
                    <tr class="sublbox_txt">
 1001 
                    <tr class="sublbox_txt">
989 
                      <td width=15% colspan=2 nowrap class="sublbox_txt">
 1002 
                      <td width=15% colspan=2 nowrap class="sublbox_txt">
990 
                        <%=sprevious_version_value%>
 1003 
                        <%=sprevious_version_value%>
- 
 
 1004 
                        <%If isDefined("showPrevVerLinks") Then %>
- 
 
 1005 
                            <a href=<%=getLinkUrl(last_pv_id)%>>
- 
 
 1006 
                            <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
- 
 
 1007 
                            </a>
- 
 
 1008 
                        <%End If%>
991 
                      </td>
 1009 
                      </td>
992 
                      <td colspan="2" nowrap class="sublbox_txt">
 1010 
                      <td colspan="2" nowrap class="sublbox_txt">
993 
                      <% If sjats_extractable Then
 1011 
                      <% If sjats_extractable Then
994 
                        response.write( NewLine_To_BR ( To_HTML(slast_vcs_tag) ))
 1012 
                        response.write( NewLine_To_BR ( To_HTML(slast_vcs_tag) ))
995 
                      Else
 1013 
                      Else
Line 1020... Line 1038...
1020 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
 1038 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
1021 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
 1039 
              <table width="100%" border="0" cellspacing="0" cellpadding="0">
1022 
                <tr class="sublbox_txt">
 1040 
                <tr class="sublbox_txt">
1023 
                  <td width=15% colspan=2 nowrap class="sublbox_txt">
 1041 
                  <td width=15% colspan=2 nowrap class="sublbox_txt">
1024 
                    <%=old_previous_version_value%>
 1042 
                    <%=old_previous_version_value%>
- 
 
 1043 
                    <%If isDefined("showPrevVerLinks") Then %>
- 
 
 1044 
                        <a href=<%=getLinkUrl(iLastSignificantPVID)%>>
- 
 
 1045 
                        <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
- 
 
 1046 
                        </a>
- 
 
 1047 
                    <%End If%>
1025 
                  </td>
 1048 
                  </td>
1026 
                  <td colspan=2 nowrap class="sublbox_txt">
 1049 
                  <td colspan=2 nowrap class="sublbox_txt">
1027 
                      <% If sjats_extractable Then
 1050 
                      <% If sjats_extractable Then
1028 
                        response.write( NewLine_To_BR ( To_HTML(old_pkg_vcs_tag) ))
 1051 
                        response.write( NewLine_To_BR ( To_HTML(old_pkg_vcs_tag) ))
1029 
                      Else
 1052 
                      Else