Subversion Repositories DevTools

Rev

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

Rev 5207 Rev 5338
Line 18... Line 18...
18 
                                 'Manually built packages will not be built by the build daemons.'+
 18 
                                 'Manually built packages will not be built by the build daemons.'+
19 
                                 '<p>Manually built packages are very rare and not available to most developers');
 19 
                                 '<p>Manually built packages are very rare and not available to most developers');
20 
formTips.tips.ChangeType = stdTip(200, 'Version Number Assignment',
 20 
formTips.tips.ChangeType = stdTip(200, 'Version Number Assignment',
21 
                                  'Auto: The build system will determine the version number based on the Change Type' +
 21 
                                  'Auto: The build system will determine the version number based on the Change Type' +
22 
                                  '<p>Manual: The user specifies the version number to be used');
 22 
                                  '<p>Manual: The user specifies the version number to be used');
- 
 
 23 
formTips.tips.Licence = stdTip(250, 'Software Licence',
- 
 
 24 
                                 'All 3rd party software MUST be identifed. ');
- 
 
 25 
 
23 
</script>
 26 
</script>
24 
<%
 27 
<%
25 
'------------ Variable Definition -------------
 28 
'------------ Variable Definition -------------
26 
Dim parPv_id
 29 
Dim parPv_id
27 
Dim rsLocRel
 30 
Dim rsLocRel
Line 137... Line 140...
137 
   HasWellFormedVersion = re.Test(aversion)
 140 
   HasWellFormedVersion = re.Test(aversion)
138 
   Set re = Nothing
141 
   Set re = Nothing
139 
End Function
 142 
End Function
140 
 
 143 
 
141 
'-----------------------------------------------------------------------------------------------------------------------------
 144 
'-----------------------------------------------------------------------------------------------------------------------------
- 
 
 145 
Sub Get_All_Licences ( NNnewlicence_id )
- 
 
 146 
   Dim rsTemp, Query_String, selected
- 
 
 147 
 
- 
 
 148 
   Response.write "<option value='-1' >"& "100% Vix Developed" &"</option>"
- 
 
 149 
 
- 
 
 150 
   Query_String = _
- 
 
 151 
   "   SELECT licence, name"&_
- 
 
 152 
   "     FROM licences "&_
- 
 
 153 
   "    ORDER BY name ASC"
- 
 
 154 
 
- 
 
 155 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
- 
 
 156 
 
- 
 
 157 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
- 
 
 158 
      selected = ""
- 
 
 159 
      If NNnewlicence_id = Cstr( rsTemp.Fields("name")) Then
- 
 
 160 
          selected = " selected"
- 
 
 161 
      End If
- 
 
 162 
      Response.write "<option value='"& rsTemp("licence") &"' "& selected &">"& rsTemp("name") &"</option>"
- 
 
 163 
 
- 
 
 164 
      rsTemp.MoveNext
- 
 
 165 
   WEnd
- 
 
 166 
 
- 
 
 167 
   rsTemp.Close
- 
 
 168 
   Set rsTemp = nothing
- 
 
 169 
End Sub
- 
 
 170 
 
- 
 
 171 
'-----------------------------------------------------------------------------------------------------------------------------
142 
Sub Get_All_Base_Views ( NNnewgroup_id )
 172 
Sub Get_All_Base_Views ( NNnewgroup_id )
143 
   Dim rsTemp, Query_String
 173 
   Dim rsTemp, Query_String
144 
 
 174 
 
145 
   Query_String = _
 175 
   Query_String = _
146 
   "   SELECT vi.view_id, vi.view_name "&_
 176 
   "   SELECT vi.view_id, vi.view_name "&_
Line 339... Line 369...
339 
      changeToAutoVersionNumberAssignment();
 369 
      changeToAutoVersionNumberAssignment();
340 
   }
 370 
   }
341 
   updateCopyButton();
 371 
   updateCopyButton();
342 
   checkPackage();
 372 
   checkPackage();
343 
   checkBaseView();
 373 
   checkBaseView();
- 
 
 374 
   checkLicence();
344 
 
 375 
 
345 
   // Hide error message
 376 
   // Hide error message
346 
   setIdText('eMessage','');
 377 
   setIdText('eMessage','');
347 
}
 378 
}
348 
 
 379 
 
Line 573... Line 604...
573 
            setIdText('bvError','');
 604 
            setIdText('bvError','');
574 
        }
 605 
        }
575 
    }
 606 
    }
576 
}
 607 
}
577 
 
 608 
 
- 
 
 609 
function checkLicence()
- 
 
 610 
{
- 
 
 611 
    var f = document.getElementById('NEWversion');
- 
 
 612 
    if ( f.newPackage.value > 0 )
- 
 
 613 
    {
- 
 
 614 
        reseteMessage();
- 
 
 615 
        MM_validateForm("--Silent",'licence_id','Licence','R');
- 
 
 616 
        if ( ! document.MM_returnValue )
- 
 
 617 
        {
- 
 
 618 
            addClass(document.getElementById('licence_id'), 'form_error' );
- 
 
 619 
            setIdText('liError','Required');
- 
 
 620 
            fieldError = true;
- 
 
 621 
        }
- 
 
 622 
        else
- 
 
 623 
        {
- 
 
 624 
            removeClass(document.getElementById('licence_id'), 'form_error' );
- 
 
 625 
            setIdText('liError','');
- 
 
 626 
        }
- 
 
 627 
    }
- 
 
 628 
}
- 
 
 629 
 
578 
function checkVersionNumber()
 630 
function checkVersionNumber()
579 
{
 631 
{
580 
   reseteMessage();
 632 
   reseteMessage();
581 
   if (document.NEWversion.version_type[0].checked)
 633 
   if (document.NEWversion.version_type[0].checked)
582 
   {
 634 
   {
Line 812... Line 864...
812 
        setIdText('eMessage','');
 864 
        setIdText('eMessage','');
813 
        fieldError = false;
 865 
        fieldError = false;
814 
        checkMode = 1;
 866 
        checkMode = 1;
815 
        checkPackage();
 867 
        checkPackage();
816 
        checkBaseView();
 868 
        checkBaseView();
- 
 
 869 
        checkLicence();
817 
        checkVersionNumber();
 870 
        checkVersionNumber();
818 
        <%If NOT parRename <> "" Then%>
 871 
        <%If NOT parRename <> "" Then%>
819 
        checkReason();
 872 
        checkReason();
820 
        <%End If%>
 873 
        <%End If%>
821 
        if (!fieldError)
 874 
        if (!fieldError)
Line 932... Line 985...
932 
                                          </select>
 985 
                                          </select>
933 
                                       </td>
 986 
                                       </td>
934 
                                    </tr>
 987 
                                    </tr>
935 
                                    <%End If%>
 988 
                                    <%End If%>
936 
 
 989 
 
- 
 
 990 
                                    <!-- Software Licence ----------------->
- 
 
 991 
                                    <tr>
- 
 
 992 
                                       <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Software Licence<%=Quick_Help("Licence")%></td>
- 
 
 993 
                                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item">
- 
 
 994 
                                           <select name="licence_id" id="licence_id" class="form_item" onBlur="checkLicence()">
- 
 
 995 
                                              <option></option>
- 
 
 996 
                                              <%Call Get_All_Licences(-2)%>
- 
 
 997 
                                           </select>
- 
 
 998 
                                           <span id="liError"></span>
- 
 
 999 
                                        </td>
- 
 
 1000 
                                    </tr>
- 
 
 1001 
 
937 
                                 <!--Dummy Line to highlight New Package Data -------------->
 1002 
                                 <!--Dummy Line to highlight New Package Data -------------->
938 
                                    <tr>
 1003 
                                    <tr>
939 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field"></td>
 1004 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field"></td>
940 
                                        <td background="images/bg_form_lightbluedark.gif" class="form_field"></td>
 1005 
                                        <td background="images/bg_form_lightbluedark.gif" class="form_field"></td>
941 
                                    </tr>
 1006 
                                    </tr>