Subversion Repositories DevTools

Rev

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

Rev 5980 Rev 6121
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 
</script>
 49 
</script>
- 
 
 50 
<script language="JavaScript">
- 
 
 51 
//  Add copy to clipboard icon to every element with a class of 'clip'
- 
 
 52 
$( document ).ready(function() {
- 
 
 53 
    $('.clip').append('<img title="Copy to clipboard" src="images/CopyToClipboard.ico" height="12px" width="12px" hspace="0px" align="absmiddle" border="0">');
- 
 
 54 
    $('.clip').on("click", function(event){
- 
 
 55 
 
- 
 
 56 
        // Blink the clipboard icon
- 
 
 57 
        $(this).hide();
- 
 
 58 
        $(this).fadeIn(100, function(){});
- 
 
 59 
 
- 
 
 60 
        // Copy to clipboard
- 
 
 61 
        var $temp = $("<input>");
- 
 
 62 
        $("body").append($temp);
- 
 
 63 
        $temp.val($.trim(this.innerText)).select();
- 
 
 64 
        document.execCommand("copy");
- 
 
 65 
        $temp.remove();
- 
 
 66 
     });
- 
 
 67 
});
- 
 
 68 
</script>
50 
<%
 69 
<%
51 
'----------------------------------------------------------------------------------------------------------------------------------------
 70 
'----------------------------------------------------------------------------------------------------------------------------------------
52 
Function asDepIss ( SSiss_db_id, SScolumn )
 71 
Function asDepIss ( SSiss_db_id, SScolumn )
53 
   If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
 72 
   If NOT depIssDict.Exists (SSiss_db_id) Then Exit Function
54 
 
 73 
 
Line 856... Line 875...
856 
            </td>
 875 
            </td>
857 
         </tr>
 876 
         </tr>
858 
 
 877 
 
859 
         <tr>
 878 
         <tr>
860 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Source Path:</b> </td>
 879 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Source Path:</b> </td>
861 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
 880 
            <td bgcolor=#f5f5f5 class="sublbox_txt clip">
862 
               <%If IsNull( rsQry("src_path") ) Then%>
 881 
               <%If IsNull( rsQry("src_path") ) Then%>
863 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
 882 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("src_path") ) )%>
864 
               <%End If%>
 883 
               <%End If%>
865 
            </td>
 884 
            </td>
866 
         </tr>
 885 
         </tr>
867 
 
 886 
 
868 
         <tr>
 887 
         <tr>
869 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Tag:</b></td>
 888 
            <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Tag:</b></td>
870 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
 889 
            <td bgcolor=#f5f5f5 class="sublbox_txt clip">
871 
               <%If IsNull( rsQry("pkg_label") ) Then%>
 890 
               <%If IsNull( rsQry("pkg_label") ) Then%>
872 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
 891 
                  <span class='err_alert'>Required!</span><%Else%><%=NewLine_To_BR ( To_HTML( rsQry("pkg_label") ) )%>
873 
               <%End If%>
 892 
               <%End If%>
874 
            </td>
 893 
            </td>
875 
         </tr>
 894 
         </tr>
Line 890... Line 909...
890 
         </tr>
 909 
         </tr>
891 
      <%End If%>
 910 
      <%End If%>
892 
 
 911 
 
893 
      <tr>
 912 
      <tr>
894 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Base View:</b></td>
 913 
         <td nowrap bgcolor=#e4e9ec class="sublbox_txt" valign="top"><b>Base View:</b></td>
895 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
 914 
         <td bgcolor=#f5f5f5 class="sublbox_txt clip">
896 
            <%=Get_Pkg_Base_View ( parPv_id, parRtag_id )%>
 915 
            <%=Get_Pkg_Base_View ( parPv_id, parRtag_id )%>
897 
         </td>
 916 
         </td>
898 
      </tr>
 917 
      </tr>
899 
 
 918 
 
900 
      <tr>
 919 
      <tr>
Line 1028... Line 1047...
1028 
                            <a href=<%=getLinkUrl(last_pv_id)%>>
 1047 
                            <a href=<%=getLinkUrl(last_pv_id)%>>
1029 
                            <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
 1048 
                            <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
1030 
                            </a>
 1049 
                            </a>
1031 
                        <%End If%>
 1050 
                        <%End If%>
1032 
                      </td>
 1051 
                      </td>
1033 
                      <td colspan="2" nowrap class="sublbox_txt">
 1052 
                      <td colspan="2" nowrap class="sublbox_txt clip">
1034 
                      <% If sjats_extractable Then
 1053 
                      <% If sjats_extractable Then
1035 
                        response.write( NewLine_To_BR ( To_HTML(slast_vcs_tag) ))
 1054 
                        response.write( NewLine_To_BR ( To_HTML(slast_vcs_tag) ))
1036 
                      Else
 1055 
                      Else
1037 
                        response.write("Cannot be extracted with JATS")
 1056 
                        response.write("Cannot be extracted with JATS")
1038 
                      End If
 1057 
                      End If
Line 1067... Line 1086...
1067 
                        <a href=<%=getLinkUrl(iLastSignificantPVID)%>>
 1086 
                        <a href=<%=getLinkUrl(iLastSignificantPVID)%>>
1068 
                        <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
 1087 
                        <img src="images/i_link.gif" hspace="2" border="0" align="absmiddle" title="Show this version">
1069 
                        </a>
 1088 
                        </a>
1070 
                    <%End If%>
 1089 
                    <%End If%>
1071 
                  </td>
 1090 
                  </td>
1072 
                  <td colspan=2 nowrap class="sublbox_txt">
 1091 
                  <td colspan=2 nowrap class="sublbox_txt clip">
1073 
                      <% If sjats_extractable Then
 1092 
                      <% If sjats_extractable Then
1074 
                        response.write( NewLine_To_BR ( To_HTML(old_pkg_vcs_tag) ))
 1093 
                        response.write( NewLine_To_BR ( To_HTML(old_pkg_vcs_tag) ))
1075 
                      Else
 1094 
                      Else
1076 
                        response.write("Cannot be extracted with JATS")
 1095 
                        response.write("Cannot be extracted with JATS")
1077 
                      End If
 1096 
                      End If
Line 1087... Line 1106...
1087 
      <tr>
 1106 
      <tr>
1088 
         <td width="20%" bgcolor=#e4e9ec class="sublbox_txt" valign="top">
 1107 
         <td width="20%" bgcolor=#e4e9ec class="sublbox_txt" valign="top">
1089 
           <strong>JATS extraction commands:</strong>
 1108 
           <strong>JATS extraction commands:</strong>
1090 
                <%=Quick_Help ( "JatsExtraction_" & sjats_cmds_qh )%>
 1109 
                <%=Quick_Help ( "JatsExtraction_" & sjats_cmds_qh )%>
1091 
         </td>
 1110 
         </td>
1092 
         <td>
 1111 
         <td style="padding: 0px;">
1093 
         <table class="embedded_table">
 1112 
         <table class="full_table">
1094 
         <% Dim ii : For ii = 0 to UBound(sjats_cmds) %>
 1113 
         <% Dim ii : For ii = 0 to UBound(sjats_cmds) %>
1095 
             <tr><td bgcolor=#f5f5f5 class="sublbox_txt">
 1114 
             <tr><td bgcolor=#f5f5f5 class="sublbox_txt clip">
1096 
               <%=NewLine_To_BR ( To_HTML(sjats_cmds(ii)) )%>
 1115 
               <%=NewLine_To_BR ( To_HTML(sjats_cmds(ii)) )%>
1097 
             </td>
 1116 
             </td>
1098 
         <% Next %>
 1117 
         <% Next %>
1099 
         </td>
 1118 
         </td>
1100 
         </tr>
 1119 
         </tr>
Line 1102... Line 1121...
1102 
      </tr>
 1121 
      </tr>
1103 
      <tr>
 1122 
      <tr>
1104 
         <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
 1123 
         <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
1105 
           <strong>JATS Test:</strong><%=Quick_Help ( "JatsTest" )%>
 1124 
           <strong>JATS Test:</strong><%=Quick_Help ( "JatsTest" )%>
1106 
         </td>
 1125 
         </td>
1107 
         <td bgcolor=#f5f5f5 class="sublbox_txt">
 1126 
         <td bgcolor=#f5f5f5 class="sublbox_txt clip">
1108 
           <%=NewLine_To_BR ( To_HTML(sjats_cmd_test) )%>
 1127 
           <%=NewLine_To_BR ( To_HTML(sjats_cmd_test) )%>
1109 
         </td>
 1128 
         </td>
1110 
      </tr>
 1129 
      </tr>
1111 
 
 1130 
 
1112 
      <%
 1131 
      <%
1113 
      ' Beyond Compare difference command
 1132 
      ' Beyond Compare difference command
1114 
      Dim prevVcsTag
 1133 
      Dim prevVcsTag
1115 
      Dim curVcsTag
 1134 
      Dim curVcsTag
1116 
      Dim sBcCmd
 1135 
      Dim sBcCmd
1117 
 
 1136 
 
1118 
      prevVcsTag = Get_Pkg_Vcs_Tag(iLastSignificantPVID)
 1137 
      prevVcsTag = Get_Pkg_Vcs_Tag(iLastSignificantPVID)
1119 
      curVcsTag = Get_Pkg_Vcs_Tag(parPv_id)
 1138 
      curVcsTag = Get_Pkg_Vcs_Tag(parPv_id)
1120 
      sBcCmd = ""
 1139 
      sBcCmd = ""
1121 
 
 1140 
 
Line 1129... Line 1148...
1129 
            sBcCmd = "jats vcsdiff -old=" & prevVcsTag & " -new=" & curVcsTag
 1148 
            sBcCmd = "jats vcsdiff -old=" & prevVcsTag & " -new=" & curVcsTag
1130 
      End If
 1149 
      End If
1131 
      sBcCmd = NewLine_To_BR( To_HTML (sBcCmd) )
 1150 
      sBcCmd = NewLine_To_BR( To_HTML (sBcCmd) )
1132 
 
 1151 
 
1133 
      ' Codestriker commands - Only for ClearCase
 1152 
      ' Codestriker commands - Only for ClearCase
1134 
      Dim sCsCmd
 1153 
      Dim sCsCmd, sCsClass
1135 
      sCsCmd = ""
 1154 
      sCsCmd = ""
- 
 
 1155 
      sCsClass = ""
1136 
 
 1156 
 
1137 
      If vcsInfoCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG Then
 1157 
      If vcsInfoCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG Then
1138 
         Dim oldLabel
 1158 
         Dim oldLabel
1139 
         Dim old_vcs_tag
 1159 
         Dim old_vcs_tag
1140 
         If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
 1160 
         If (pv_id_exists(iLastSignificantPVID) = TRUE) Then
1141 
            old_vcs_tag = get_vcs_tag(iLastSignificantPVID)
 1161 
            old_vcs_tag = get_vcs_tag(iLastSignificantPVID)
1142 
            If (old_vcs_tag = enum_VCS_CLEARCASE_TAG) Then
 1162 
            If (old_vcs_tag = enum_VCS_CLEARCASE_TAG) Then
1143 
               oldLabel = get_Pkg_Label(iLastSignificantPVID)
 1163 
               oldLabel = get_Pkg_Label(iLastSignificantPVID)
1144 
               sCsCmd = NewLine_To_BR ( To_HTML( Codestriker_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )
 1164 
               sCsCmd = NewLine_To_BR ( To_HTML( Codestriker_Command (oldLabel, pkgInfoHash.Item("pkg_label")) ) )
- 
 
 1165 
               sCsClass = "clip"
1145 
           End If
 1166 
           End If
1146 
         End If
 1167 
         End If
1147 
      End If%>
 1168 
      End If%>
1148
1169
1149 
      <tr>
 1170 
      <tr>
1150 
        <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
 1171 
        <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
1151 
          <strong>Codestriker command:</strong><%=Quick_Help ( "Codestriker" )%>
 1172 
          <strong>Codestriker command:</strong><%=Quick_Help ( "Codestriker" )%>
1152 
        </td>
 1173 
        </td>
1153 
        <td bgcolor=#f5f5f5 class="sublbox_txt">
 1174 
        <td bgcolor=#f5f5f5 class="sublbox_txt <%=sCsClass%>">
1154 
          <%=sCsCmd%>
 1175 
          <%=sCsCmd%>
1155 
        </td>
 1176 
        </td>
1156 
      </tr>
 1177 
      </tr>
1157 
      <tr>
 1178 
      <tr>
1158 
        <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
 1179 
        <td width="20%" bgcolor=#e4e9ec class="sublbox_txt">
1159 
          <strong>Beyond Compare command:</strong><%=Quick_Help ( "BeyondCompare" )%>
 1180 
          <strong>Beyond Compare command:</strong><%=Quick_Help ( "BeyondCompare" )%>
1160 
        </td>
 1181 
        </td>
1161 
        <td bgcolor=#f5f5f5 class="sublbox_txt">
 1182 
        <td bgcolor=#f5f5f5 class="sublbox_txt clip">
1162 
          <%=sBcCmd%>
 1183 
          <%=sBcCmd%>
1163 
        </td>
 1184 
        </td>
1164 
      </tr>
 1185 
      </tr>
1165
1186
1166 
 
 1187