| Line 59... |
Line 59... |
| 59 |
" SELECT pv.pkg_version, pv.dlocked,"&_
|
59 |
" SELECT pv.pkg_version, pv.dlocked,"&_
|
| 60 |
" DECODE ( pv.pv_id, "& nPv_id &", 'selected', NULL ) AS selected"&_
|
60 |
" DECODE ( pv.pv_id, "& nPv_id &", 'selected', NULL ) AS selected"&_
|
| 61 |
" FROM PACKAGES pkg, package_versions pv"&_
|
61 |
" FROM PACKAGES pkg, package_versions pv"&_
|
| 62 |
" WHERE pkg.pkg_id = pv.pkg_id AND pkg.pkg_id = "& NNpkg_id
|
62 |
" WHERE pkg.pkg_id = pv.pkg_id AND pkg.pkg_id = "& NNpkg_id
|
| 63 |
End Function
|
63 |
End Function
|
| - |
|
64 |
|
| - |
|
65 |
'-------------------------------------------------------------------------------------------------------------
|
| - |
|
66 |
'Returns TRUE if the specified version has a COTS extension
|
| - |
|
67 |
Function HasCotsExtension(aversion)
|
| - |
|
68 |
Dim re: Set re = New RegExp
|
| - |
|
69 |
re.Pattern = "\.cots$"
|
| - |
|
70 |
HasCotsExtension = re.Test(aversion)
|
| - |
|
71 |
Set re = Nothing
|
| - |
|
72 |
End Function
|
| - |
|
73 |
|
| - |
|
74 |
'-------------------------------------------------------------------------------------------------------------
|
| - |
|
75 |
'Returns TRUE if the specified version has a patch-build number.
|
| - |
|
76 |
Function HasPatchBuildNumber(aversion)
|
| - |
|
77 |
'test for a version with a patch build number, ie a dot and at least 4 digits before the extenstion.
|
| - |
|
78 |
Dim re: Set re = New RegExp
|
| - |
|
79 |
re.Pattern = "\.\d{4,}\.[^\.]+$"
|
| - |
|
80 |
HasPatchBuildNumber = re.Test(aversion)
|
| - |
|
81 |
Set re = Nothing
|
| - |
|
82 |
End Function
|
| - |
|
83 |
|
| 64 |
'-----------------------------------------------------------------------------------------------------------------------------
|
84 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 65 |
%>
|
85 |
%>
|
| 66 |
<%
|
86 |
<%
|
| 67 |
'===================== MAIN LINE ============================
|
87 |
'===================== MAIN LINE ============================
|
| 68 |
Call GetPackageInfo( parPv_id, objPkgInfo )
|
88 |
Call GetPackageInfo( parPv_id, objPkgInfo )
|
| - |
|
89 |
Dim bDisableAuto, bPatchOnly
|
| 69 |
|
90 |
|
| - |
|
91 |
'Disable the "Auto" build option if the package is a COTS package and the version doesn't have a patch-build number.
|
| - |
|
92 |
bDisableAuto = HasCotsExtension(objPkgInfo.Item("pkg_version")) and not HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))
|
| - |
|
93 |
'Enable only the "Patch Change" option if the package is a COTS package and the version has a patch-build number.
|
| - |
|
94 |
bPatchOnly = HasCotsExtension(objPkgInfo.Item("pkg_version")) and HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))
|
| - |
|
95 |
|
| - |
|
96 |
'if "Auto" build option is disabled then select the Manual option
|
| - |
|
97 |
If bDisableAuto Then
|
| - |
|
98 |
parAuto = "0"
|
| - |
|
99 |
'else default to Auto
|
| 70 |
If IsNull(parAuto) OR parAuto = "" Then
|
100 |
ElseIf IsNull(parAuto) OR parAuto = "" Then
|
| 71 |
parAuto = "1"
|
101 |
parAuto = "1"
|
| 72 |
End If
|
102 |
End If
|
| 73 |
'============================================================
|
103 |
'============================================================
|
| 74 |
%>
|
104 |
%>
|
| 75 |
<script language="JavaScript" type="text/JavaScript">
|
105 |
<script language="JavaScript" type="text/JavaScript">
|
| Line 315... |
Line 345... |
| 315 |
</tr>
|
345 |
</tr>
|
| 316 |
<tr>
|
346 |
<tr>
|
| 317 |
<td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Number Assignment</td>
|
347 |
<td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Number Assignment</td>
|
| 318 |
<td background="images/bg_form_lightgray.gif" class="form_txt">
|
348 |
<td background="images/bg_form_lightgray.gif" class="form_txt">
|
| 319 |
|
349 |
|
| 320 |
<%If parAuto = "1" Then%>
|
350 |
<%If bDisableAuto Then%>
|
| 321 |
<input name="build_type" id="build_type" type="radio" value="A" checked onclick="changeToAutoVersionNumberAssignment();"> Auto
|
351 |
<input name="build_type" id="build_type" type="radio" value="A" disabled onclick="changeToAutoVersionNumberAssignment();"> Auto
|
| 322 |
<input name="build_type" id="build_type" type="radio" value="M" onclick="changeToManualVersionNumberAssignment();"> Manual
|
- |
|
| 323 |
<%Else%>
|
- |
|
| 324 |
<input name="build_type" id="build_type" type="radio" value="A" onclick="changeToAutoVersionNumberAssignment();"> Auto
|
- |
|
| 325 |
<input name="build_type" id="build_type" type="radio" value="M" checked onclick="changeToManualVersionNumberAssignment();"> Manual
|
352 |
<input name="build_type" id="build_type" type="radio" value="M" checked onclick="changeToManualVersionNumberAssignment();"> Manual
|
| - |
|
353 |
<%Else%>
|
| - |
|
354 |
<%If parAuto = "1" Then%>
|
| - |
|
355 |
<input name="build_type" id="build_type" type="radio" value="A" checked onclick="changeToAutoVersionNumberAssignment();"> Auto
|
| - |
|
356 |
<input name="build_type" id="build_type" type="radio" value="M" onclick="changeToManualVersionNumberAssignment();"> Manual
|
| - |
|
357 |
<%Else%>
|
| - |
|
358 |
<input name="build_type" id="build_type" type="radio" value="A" onclick="changeToAutoVersionNumberAssignment();"> Auto
|
| - |
|
359 |
<input name="build_type" id="build_type" type="radio" value="M" checked onclick="changeToManualVersionNumberAssignment();"> Manual
|
| - |
|
360 |
<%End If%>
|
| 326 |
<%End If%>
|
361 |
<%End If%>
|
| 327 |
</td>
|
362 |
</td>
|
| 328 |
</tr>
|
363 |
</tr>
|
| 329 |
</table>
|
364 |
</table>
|
| 330 |
|
365 |
|
| Line 406... |
Line 441... |
| 406 |
<td background="images/bg_form_lightbluedark.gif" nowrap width="20%" class="form_field">Change Type</td>
|
441 |
<td background="images/bg_form_lightbluedark.gif" nowrap width="20%" class="form_field">Change Type</td>
|
| 407 |
<td background="images/bg_form_lightgray.gif" >
|
442 |
<td background="images/bg_form_lightgray.gif" >
|
| 408 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
443 |
<table width="100%" border="0" cellspacing="0" cellpadding="0">
|
| 409 |
<tr>
|
444 |
<tr>
|
| 410 |
<td width="1%">
|
445 |
<td width="1%">
|
| - |
|
446 |
<%If bPatchOnly Then%>
|
| - |
|
447 |
<input name="change_type" type="radio" value="M" disabled>
|
| - |
|
448 |
<%Else%>
|
| 411 |
<input name="change_type" type="radio" value="M">
|
449 |
<input name="change_type" type="radio" value="M">
|
| - |
|
450 |
<%End If%>
|
| 412 |
</td>
|
451 |
</td>
|
| 413 |
<td nowrap>
|
452 |
<td nowrap>
|
| 414 |
<span class="form_field">Major Change</span>
|
453 |
<span class="form_field">Major Change</span>
|
| 415 |
</td>
|
454 |
</td>
|
| 416 |
<td> </td>
|
455 |
<td> </td>
|
| Line 421... |
Line 460... |
| 421 |
<tr>
|
460 |
<tr>
|
| 422 |
<td colspan="4"><hr width="100%" size="1" noshade></td>
|
461 |
<td colspan="4"><hr width="100%" size="1" noshade></td>
|
| 423 |
</tr>
|
462 |
</tr>
|
| 424 |
<tr>
|
463 |
<tr>
|
| 425 |
<td width="1%">
|
464 |
<td width="1%">
|
| - |
|
465 |
<%If bPatchOnly Then%>
|
| - |
|
466 |
<input name="change_type" type="radio" value="N" disabled>
|
| - |
|
467 |
<%Else%>
|
| 426 |
<input name="change_type" type="radio" value="N">
|
468 |
<input name="change_type" type="radio" value="N">
|
| - |
|
469 |
<%End If%>
|
| 427 |
</td>
|
470 |
</td>
|
| 428 |
<td align="center" nowrap>
|
471 |
<td align="center" nowrap>
|
| 429 |
<span class="form_field">Minor Change</span>
|
472 |
<span class="form_field">Minor Change</span>
|
| 430 |
</td>
|
473 |
</td>
|
| 431 |
<td> </td>
|
474 |
<td> </td>
|