Subversion Repositories DevTools

Rev

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

Rev 6497 Rev 6508
Line 698... Line 698...
698 
'-------------------------------------------------
 698 
'-------------------------------------------------
699 
'   DisplayCreationCommands
 699 
'   DisplayCreationCommands
700 
'   Display commands that may be useful in the creation of the package
 700 
'   Display commands that may be useful in the creation of the package
701 
'
 701 
'
702 
Sub DisplayCreationCommands
 702 
Sub DisplayCreationCommands
703 
    Dim tagText
 - 
 
704 
    Dim VcsType
 703 
    Dim VcsType: VcsType = vcsInfoCollector.Item("vcs_tag")
705 
    Dim title: title = "Package Creation Hints"
 704 
    Dim title: title = "Package Creation Hints"
706 
    Dim SvnUrl
 705 
    Dim SvnUrl
707 
    Dim SvnLabel
 706 
    Dim SvnLabel
708 
 
 707 
 
709 
    tagText = Get_Pkg_Vcs_Tag(pkgInfoHash.Item("pv_id"))
 - 
 
710 
    VcsType = Mid(tagText, 1, InStr(1, tagText, "::") - 1 )
 - 
 
711 
    If VcsType = "SVN" Then
 708 
    If VcsType = "SVN" Then
712 
        If pkgInfoHash.Item("src_path") <> "" Then
 709 
        If pkgInfoHash.Item("src_path") <> "" Then
713 
            SvnUrl = pkgInfoHash.Item("src_path")
 710 
            SvnUrl = pkgInfoHash.Item("src_path")
714 
            Dim lastBit: lastBit = InStrRev(SvnUrl, "/" )
 711 
            Dim lastBit: lastBit = InStrRev(SvnUrl, "/" )
715 
            If lastBit > 1 Then
 712 
            If lastBit > 1 Then
Line 735... Line 732...
735 
                  <tr><td nowrap class="sublbox_txt clip"> jats svn create_package -new <%=SvnUrl%> -label=<%=SvnLabel%> -import=<%=pkgInfoHash.Item ("pkg_name")%> </td></tr>
 732 
                  <tr><td nowrap class="sublbox_txt clip"> jats svn create_package -new <%=SvnUrl%> -label=<%=SvnLabel%> -import=<%=pkgInfoHash.Item ("pkg_name")%> </td></tr>
736 
              </table>
 733 
              </table>
737 
            </td>
 734 
            </td>
738 
         </tr>
 735 
         </tr>
739 
      <%
 736 
      <%
- 
 
 737 
    Else
- 
 
 738 
    %>
- 
 
 739 
         <tr>
- 
 
 740 
            <td width="20%" bgcolor=#e4e9ec class="sublbox_txt" valign="top"><strong><%=title%></strong></td>
- 
 
 741 
            <td bgcolor=#f5f5f5 class="sublbox_txt">
- 
 
 742 
            Not supported under this version control system.
- 
 
 743 
            </td>
- 
 
 744 
         </tr>
- 
 
 745 
     <%
740 
    End If
 746 
    End If
741 
End Sub
 747 
End Sub
742 
%>
 748 
%>
743 
<%
 749 
<%
744 
'------------------ MAIN LINE --------------------
 750 
'------------------ MAIN LINE --------------------