Subversion Repositories DevTools

Rev

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

Rev 7468 Rev 7536
Line 25... Line 25...
25 
Dim baseURL
 25 
Dim baseURL
26 
Dim rsProjId
 26 
Dim rsProjId
27 
Dim rsPkgMetrics
 27 
Dim rsPkgMetrics
28 
Dim rsCodeReviewURL
 28 
Dim rsCodeReviewURL
29 
Dim vcsInfoCollector
 29 
Dim vcsInfoCollector
- 
 
 30 
Dim bHasaLicense
30 
'------------ Constants Declaration -----------
 31 
'------------ Constants Declaration -----------
31 
Const enumLoc_iss_db = 0
 32 
Const enumLoc_iss_db = 0
32 
Const enumLoc_iss_id = 1
 33 
Const enumLoc_iss_id = 1
33 
Const enumLoc_iss_num = 2
 34 
Const enumLoc_iss_num = 2
34 
Const enumLoc_summary = 3
 35 
Const enumLoc_summary = 3
Line 59... Line 60...
59 
formTips.tips.PreviousNonRippleVcsTag= newTip(-150, 20, 200, 10, 'PREVIOUS NON RIPPLE VCS TAG',
 60 
formTips.tips.PreviousNonRippleVcsTag= newTip(-150, 20, 200, 10, 'PREVIOUS NON RIPPLE VCS TAG',
60 
                                                       'This is the vcs tag of the preceding significant (non-ripple) change that led to the current package version.'+
 61 
                                                       'This is the vcs tag of the preceding significant (non-ripple) change that led to the current package version.'+
61 
                                                       '<br><br>NOTE:<br>Derivation of this has no sensitivity to the selected release.');
 62 
                                                       '<br><br>NOTE:<br>Derivation of this has no sensitivity to the selected release.');
62 
formTips.tips.CreationHints= newTip(-150, 20, 200, 10, 'HINTS FOR PACKAGE CREATION',
 63 
formTips.tips.CreationHints= newTip(-150, 20, 200, 10, 'HINTS FOR PACKAGE CREATION',
63 
                                                       'These are not correct commands. They are command hints to assist in creating a new package.');
 64 
                                                       'These are not correct commands. They are command hints to assist in creating a new package.');
- 
 
 65 
formTips.tips.ExternalRef= newTip(-150, 20, 200, 10, 'External Package Reference',
- 
 
 66 
                                                       'A reference to the original source of 3rd party and licenced packages.' +
- 
 
 67 
                                                        '<p>This field may be used by tools that automatically detect new versions of these external packages.');
64 
formTips.tips.BuildOwner= newTip(-150, 20, 200, 10, 'BUILD OWNER',
 68 
formTips.tips.BuildOwner= newTip(-150, 20, 200, 10, 'BUILD OWNER',
65 
                                                       'The Build Owner will be notified of Build Failures when a new package-version fails to build.' +
 69 
                                                       'The Build Owner will be notified of Build Failures when a new package-version fails to build.' +
66 
                                                        '<p>The Build Owner is set to the person who created the new version or who released the version to the build system by setting its state to Pending.');
 70 
                                                        '<p>The Build Owner is set to the person who created the new version or who released the version to the build system by setting its state to Pending.');
67 
formTips.tips.JatsExtraction_SVN  = stdTip(250,'Subversion', 'Various extraction commands.<br>Choose a command that suits the current requirements.' +
 71 
formTips.tips.JatsExtraction_SVN  = stdTip(250,'Subversion', 'Various extraction commands.<br>Choose a command that suits the current requirements.' +
68 
                                                     '<p>Default - suits most requirements' +
 72 
                                                     '<p>Default - suits most requirements' +
Line 565... Line 569...
565 
       End If
 569 
       End If
566 
 
 570 
 
567 
    End If
 571 
    End If
568 
End Function
 572 
End Function
569 
'---------------------------------------------------------------
 573 
'---------------------------------------------------------------
- 
 
 574 
' Get the external Reference field
- 
 
 575 
'---------------------------------------------------------------
- 
 
 576 
Dim bisaCots
- 
 
 577 
Dim externalRefText
- 
 
 578 
 
- 
 
 579 
Sub getExernalRef
- 
 
 580 
    Dim rsQry
- 
 
 581 
    bisaCots = FALSE
- 
 
 582 
    externalRefText = ""
- 
 
 583 
 
- 
 
 584 
    OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 585 
    OraDatabase.Parameters.Add "V_EXT", pkgInfoHash.Item ("v_ext"), ORAPARM_INPUT, ORATYPE_NUMBER
- 
 
 586 
 
- 
 
 587 
    Set rsQry = OraDatabase.DbCreateDynaset("SELECT IS_COTS from PROJECT_EXTENTIONS WHERE Upper(ext_name) = Upper(:V_EXT)", cint(0))
- 
 
 588 
    If rsQry.RecordCount > 0 Then
- 
 
 589 
        bisaCots = (rsQry("IS_COTS") = "Y")
- 
 
 590 
   End If
- 
 
 591 
 
- 
 
 592 
    Set rsQry = OraDatabase.DbCreateDynaset("SELECT EREF from PACKAGE_EREF WHERE PV_ID = :PV_ID", cint(0))
- 
 
 593 
    If rsQry.RecordCount > 0 Then
- 
 
 594 
        externalRefText = rsQry("EREF")
- 
 
 595 
   End If
- 
 
 596 
 
- 
 
 597 
    OraDatabase.Parameters.Remove "PV_ID"
- 
 
 598 
    OraDatabase.Parameters.Remove "V_EXT"
- 
 
 599 
    rsQry.Close()
- 
 
 600 
    Set rsQry = nothing
- 
 
 601 
End Sub
- 
 
 602 
'---------------------------------------------------------------
570 
' Description:  Return a string displaying licence information
 603 
' Description:  Return a string displaying licence information
571 
'---------------------------------------------------------------
 604 
'---------------------------------------------------------------
572 
Function getLicence
 605 
Function getLicence
573 
   Dim rsQry, rsSql, lName
 606 
   Dim rsQry, rsSql, lName
574 
   Dim licenceList
 607 
   Dim licenceList
575 
   Dim joiner : joiner = ""
 608 
   Dim joiner : joiner = ""
576 
   Dim otherVersions : otherVersions = ""
 609 
   Dim otherVersions : otherVersions = ""
577 
 
 610 
 
578 
   Set licenceList=Server.CreateObject("Scripting.Dictionary")
 611 
   Set licenceList=Server.CreateObject("Scripting.Dictionary")
579 
   getLicence = ""
 612 
   getLicence = ""
- 
 
 613 
   bHasaLicense = FALSE
580 
 
 614 
 
581 
   ' Determine license for this package-version
 615 
   ' Determine license for this package-version
582 
	OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
 616 
	OraDatabase.Parameters.Add "PV_ID", pkgInfoHash.Item ("pv_id"), ORAPARM_INPUT, ORATYPE_NUMBER
583 
 
 617 
 
584 
    Set rsQry = OraDatabase.DbCreateDynaset( _
 618 
    Set rsQry = OraDatabase.DbCreateDynaset( _
Line 592... Line 626...
592 
       lName = rsQry("name")
 626 
       lName = rsQry("name")
593 
	   getLicence = getLicence & joiner & lName
627 
	   getLicence = getLicence & joiner & lName
594 
	   licenceList.Add lName, "Y"
 628 
	   licenceList.Add lName, "Y"
595 
	   joiner = ", "
 629 
	   joiner = ", "
596 
	   rsQry.MoveNext
 630 
	   rsQry.MoveNext
- 
 
 631 
       bHasaLicense = TRUE
597 
	WEnd
 632 
	WEnd
598 
    rsQry.Close()
 633 
    rsQry.Close()
599 
    Set rsQry = nothing
 634 
    Set rsQry = nothing
600 
 
 635 
 
601 
	'
 636 
	'
Line 901... Line 936...
901 
         </td>
 936 
         </td>
902 
         <td>
 937 
         <td>
903 
            <%=getLicence()%>
 938 
            <%=getLicence()%>
904 
         </td>
 939 
         </td>
905 
      </tr>
 940 
      </tr>
- 
 
 941 
       <!-- Package 3rd Party External Reference -->
- 
 
 942 
      <tr>
- 
 
 943 
      <%
- 
 
 944 
      ' Display only if the package is a COTS ( or TOOL ) package
- 
 
 945 
      ' Display if this package has associated licencing
- 
 
 946 
      Call getExernalRef
- 
 
 947 
      If bisaCots OR bHasaLicense OR externalRefText <> ""  Then
- 
 
 948 
       %>
- 
 
 949 
         <td>
- 
 
 950 
            <%BuildEditButtonRaw canActionControlInProject ("EditPackageLicence") OR canActionControl("MSMaintainer"), _
- 
 
 951 
                "External Reference:", "Edit", False, "src='images/i_edit.gif' width='12' height='12' border='0' align='absmiddle'",_
- 
 
 952 
                "MM_openVixIFrame('_wform_change_eref.asp?pv_id="& parPv_id &"&rtag_id="& parRtag_id &"','Change External Reference')" %>
- 
 
 953 
                <%=Quick_Help("ExternalRef")%>
- 
 
 954 
         </td>
- 
 
 955 
         <td>
- 
 
 956 
            <%=externalRefText%>
- 
 
 957 
         </td>
- 
 
 958 
      </tr>
- 
 
 959 
       <%End If%>
906 
	  <!-- Build Owner -->
 960 
	  <!-- Build Owner -->
907 
      <tr>
 961 
      <tr>
908 
        <td>
 962 
        <td>
909 
         <%BuildEditButtonRaw objAccessControl.UserLogedIn() AND NOT pkgInfoHash.Item("is_sdkpkg"),_
 963 
         <%BuildEditButtonRaw objAccessControl.UserLogedIn() AND NOT pkgInfoHash.Item("is_sdkpkg"),_
910 
             "Build Owner:", "Edit", False, "src='images/i_edit.gif' width='12' height='12' border='0' align='absmiddle'",_
 964 
             "Build Owner:", "Edit", False, "src='images/i_edit.gif' width='12' height='12' border='0' align='absmiddle'",_