Subversion Repositories DevTools

Rev

Rev 3899 | Rev 3917 | Go to most recent revision | Details | Compare with Previous | Last modification | View Log | RSS feed

Rev Author Line No. Line
119 ghuddy 1 
<%
2 
'=====================================================
151 ghuddy 3 
'                 NEW VERSION
4 
'                      PAGE
119 ghuddy 5 
'=====================================================
6 
%>
7 
<!--#include file="_tabs.asp"-->
121 hknight 8 
<!--#include file="_drawExtensionSelectBox.asp"-->
151 ghuddy 9 
<!--#include file="class/classSortHelper.asp"-->
3892 dpurdie 10 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
3894 dpurdie 11 
<script type="text/javascript" src="scripts/json2.js"></script>
119 ghuddy 12 
<%
13 
'------------ Variable Definition -------------
14 
Dim parPv_id
15 
Dim rsLocRel
16 
Dim parPage_title
17 
Dim objPkgInfo
121 hknight 18 
Dim rsTemp2
151 ghuddy 19 
Dim rsLatest
20 
Dim aVersions
21 
Dim lastRow, i
22 
Dim objSortHelper
3884 dpurdie 23 
Dim newPackage
24 
Dim majorState
25 
Dim minorState
26 
Dim patchState
27 
Dim parBase_view_id
3885 dpurdie 28 
Dim verNumber
3889 dpurdie 29 
Dim parPkgName
3884 dpurdie 30 
 
119 ghuddy 31 
'------------ Constants Declaration -----------
32 
'------------ Variable Init -------------------
33 
parPv_id = QStrPar("pv_id")
3884 dpurdie 34 
parBase_view_id = Request("base_view_id")
3889 dpurdie 35 
parPkgName = QStrPar("pkgName")
3884 dpurdie 36 
 
119 ghuddy 37 
parPage_title = "NEW VERSION"
3884 dpurdie 38 
 
3889 dpurdie 39 
If ( parPkgName <> "" ) Then
3892 dpurdie 40 
    newPackage = 1
3889 dpurdie 41 
    parPv_id = NULL
3892 dpurdie 42 
Else
43 
    newPackage = 0
3884 dpurdie 44 
End if
45 
 
46 
majorState = ""
47 
minorState = ""
48 
patchState = "checked"
49 
 
119 ghuddy 50 
Set objPkgInfo = CreateObject("Scripting.Dictionary")
3884 dpurdie 51 
 
119 ghuddy 52 
'-----------------------------------------------------------------------------------------------------------------------------
53 
Sub GetPackageInfo( nPvId, outPkgInfo )
151 ghuddy 54 
   Dim rsTemp, Query_String
3892 dpurdie 55 
   If (IsEmpty(nPvId) OR newPackage > 0) Then Exit Sub
121 hknight 56 
 
151 ghuddy 57 
   Query_String = _
58 
   " SELECT pv.pv_id, pkg.pkg_id, pkg.pkg_name, pv.pkg_version, pv.v_ext"&_
59 
   "  FROM packages pkg, package_versions pv"&_
60 
   " WHERE pkg.pkg_id = pv.pkg_id  AND pv.pv_id ="& nPvId
121 hknight 61 
 
151 ghuddy 62 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
121 hknight 63 
 
151 ghuddy 64 
   If ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF)) Then
65 
      outPkgInfo.Item("pv_id") = rsTemp.Fields("pv_id")
66 
      outPkgInfo.Item("pkg_id") = rsTemp.Fields("pkg_id")
67 
      outPkgInfo.Item("pkg_name") = rsTemp.Fields("pkg_name")
68 
      outPkgInfo.Item("pkg_version") = rsTemp.Fields("pkg_version")
3900 dpurdie 69 
      if rsTemp.Fields("v_ext") <> "" Then
70 
        outPkgInfo.Item("v_ext") = rsTemp.Fields("v_ext")
71 
      Else
72 
        outPkgInfo.Item("v_ext") = ""
73 
      End If
151 ghuddy 74 
   End If
121 hknight 75 
 
151 ghuddy 76 
   rsTemp.Close
77 
   Set rsTemp = nothing
119 ghuddy 78 
End Sub
3891 dpurdie 79 
 
119 ghuddy 80 
'-----------------------------------------------------------------------------------------------------------------------------
151 ghuddy 81 
Function Get_Latest_All_Ext ( NNpkg_id, nPv_id )
82 
	Get_Latest_All_Ext = _
83 
	" SELECT pv.pkg_version, pv.dlocked,"&_
84 
	"        DECODE ( pv.pv_id, "& nPv_id &", 'selected', NULL ) AS selected"&_
85 
	"    FROM PACKAGES pkg, package_versions pv"&_
86 
	"   WHERE pkg.pkg_id = pv.pkg_id  AND  pkg.pkg_id = "& NNpkg_id
87 
End Function
165 brianf 88 
 
89 
'-------------------------------------------------------------------------------------------------------------
3867 dpurdie 90 
' Returns TRUE if the specified version has a COTS extension
91 
' Really determines if the extension has to be strict Major.Minor.PatchBuild
92 
' or is allowed to be more relaxes. As in COTS and TOOL packages.
3865 dpurdie 93 
'
3867 dpurdie 94 
' Read from the database to determine type
95 
' If we cannot determine the project suffix then assume the worst
96 
'
3885 dpurdie 97 
Function HasCotsExtension(aExt)
3867 dpurdie 98 
   Dim rsQry, Query_String
99 
   HasCotsExtension = FALSE
100 
 
3885 dpurdie 101 
   if aExt <> "" Then
3867 dpurdie 102 
       Query_String = "SELECT EXT_NAME FROM PROJECT_EXTENTIONS pe WHERE " &_
3885 dpurdie 103 
                      "pe.IS_COTS='Y' AND pe.EXT_NAME='" & LCase(aExt) & "'"
3867 dpurdie 104 
       Set rsQry = OraDatabase.DbCreateDynaset( Query_String, ORADYN_DEFAULT )
105 
       If ((NOT rsQry.BOF) AND (NOT rsQry.EOF)) Then
106 
           HasCotsExtension = TRUE
107 
       End If
108 
       rsQry.Close
109 
   Else
110 
       HasCotsExtension = TRUE
111 
   end If
3885 dpurdie 112 
   Set rsQry = Nothing
3867 dpurdie 113 
 
165 brianf 114 
End Function
115 
 
116 
'-------------------------------------------------------------------------------------------------------------
117 
'Returns TRUE if the specified version has a patch-build number.
118 
Function HasPatchBuildNumber(aversion)
119 
   'test for a version with a patch build number, ie a dot and at least 4 digits before the extenstion.
120 
   Dim re: Set re = New RegExp
121 
   re.Pattern = "\.\d{4,}\.[^\.]+$"
122 
   HasPatchBuildNumber = re.Test(aversion)
123 
   Set re = Nothing
124 
End Function
125 
 
3621 dpurdie 126 
'-------------------------------------------------------------------------------------------------------------
127 
'Returns TRUE if the specified version has a well formed version number
128 
Function HasWellFormedVersion(aversion)
129 
   'If a package has a major.minor.patch-build number then it is well formed
130 
   Dim re: Set re = New RegExp
131 
   re.Pattern = "^\d+\.\d+\.\d{4,}\.[^\.]+$"
132 
   HasWellFormedVersion = re.Test(aversion)
133 
   Set re = Nothing
134 
End Function
135 
 
3884 dpurdie 136 
'-----------------------------------------------------------------------------------------------------------------------------
137 
Sub Get_All_Base_Views ( NNnewgroup_id )
138 
   Dim rsTemp, Query_String
3621 dpurdie 139 
 
3884 dpurdie 140 
   Query_String = _
141 
   "   SELECT vi.view_id, vi.view_name "&_
142 
   "     FROM views vi "&_
143 
   "    WHERE UPPER(vi.base_view) = 'Y'"&_
144 
   "    ORDER BY vi.view_name ASC"
145 
 
146 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
147 
 
148 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
149 
      If NNnewgroup_id = Cstr( rsTemp.Fields("view_id")) Then
150 
         Response.write "<option value='"& rsTemp("view_id") &"' selected>"& rsTemp("view_name") &"</option>"
151 
      Else
152 
         Response.write "<option value='"& rsTemp("view_id") &"'>" & rsTemp("view_name") &"</option>"
153 
      End If
154 
 
155 
      rsTemp.MoveNext
156 
   WEnd
157 
 
158 
   rsTemp.Close
159 
   Set rsTemp = nothing
160 
End Sub
151 ghuddy 161 
'-----------------------------------------------------------------------------------------------------------------------------
3884 dpurdie 162 
Sub Get_All_Personal_Views ( NNuser_id )
163 
   Dim rsTemp, Query_String
164 
   If NNuser_id = "" Then Exit Sub
165 
 
166 
   Query_String = _
167 
   " SELECT vi.view_id, vi.view_name"&_
168 
   "  FROM view_settings vs,"&_
169 
   "       views vi"&_
170 
   " WHERE vs.view_id = vi.view_id"&_
171 
   "   AND vs.user_id = vi.owner_id  "&_
172 
   "   AND vs.user_id = "& NNuser_id &_
173 
   "   AND vi.base_view = 'N'"&_
174 
   " ORDER BY UPPER(vi.view_name)"
175 
 
176 
   Set rsTemp = OraDatabase.DbCreateDynaset( Query_String, cint(0))
177 
 
178 
   While ((NOT rsTemp.BOF) AND (NOT rsTemp.EOF))
179 
      Response.write "<option value='"& rsTemp.Fields("view_id") &"'>"& rsTemp.Fields("view_name") &"</option>"
180 
 
181 
      rsTemp.MoveNext
182 
   WEnd
183 
 
184 
   rsTemp.Close
185 
   Set rsTemp = nothing
186 
End Sub
187 
'-----------------------------------------------------------------------------------------------------------------------------
188 
 
119 ghuddy 189 
%>
190 
<%
191 
'===================== MAIN LINE ============================
3884 dpurdie 192 
Dim bDisableAuto, bPatchOnly, bIsCots, bIsAuto
151 ghuddy 193 
 
3892 dpurdie 194 
If NOT (newPackage > 0 ) Then
3884 dpurdie 195 
    Call GetPackageInfo( parPv_id, objPkgInfo )
3889 dpurdie 196 
    parPkgName = objPkgInfo.Item("pkg_name")
165 brianf 197 
 
3885 dpurdie 198 
    ' Extract version number without extension
199 
    verNumber = objPkgInfo.Item("pkg_version")
200 
    verNumber = Mid( verNumber,1, Len(verNumber) - Len(objPkgInfo.Item("v_ext")))
201 
 
202 
    bIsCots = HasCotsExtension(objPkgInfo.Item("v_ext"))
3884 dpurdie 203 
    'Disable the "Auto" build option if the package is a COTS package and the version doesn't have a patch-build number.
204 
    bDisableAuto = bIsCots and not HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))
205 
    'Enable only the "Patch Change" option if the package is a COTS package and the version has a patch-build number.
206 
    bPatchOnly = bIsCots and not HasWellFormedVersion(objPkgInfo.Item("pkg_version")) and HasPatchBuildNumber(objPkgInfo.Item("pkg_version"))
207 
 
208 
    'if "Auto" build option is disabled then select the Manual option
3891 dpurdie 209 
    bIsAuto = NOT bDisableAuto
210 
 
3885 dpurdie 211 
Else
212 
    ' If New Package and First version
3884 dpurdie 213 
    parPage_title = "NEW PACKAGE and FIRST VERSION"
214 
    bIsCots = FALSE
215 
    bDisableAuto = FALSE
216 
    bPatchOnly = FALSE
217 
    bIsAuto = TRUE
218 
    majorState = "checked"
219 
    minorState = ""
220 
    patchState = ""
3885 dpurdie 221 
    verNumber = "1.0.0000"
3884 dpurdie 222 
End If
223 
 
119 ghuddy 224 
'============================================================
225 
%>
226 
<script language="JavaScript" type="text/JavaScript">
227 
<!--
3884 dpurdie 228 
var savedVersion;
3892 dpurdie 229 
var fieldError;
3894 dpurdie 230 
var checkMode;
121 hknight 231 
 
3884 dpurdie 232 
window.onload = function(e)
121 hknight 233 
{
3894 dpurdie 234 
   // Init checking mode
235 
   //   0 - Checking options one at a time
236 
   //       Clear Error display before checking
237 
   //
238 
   //   1 - Checking before submit
239 
   //       Accumulate error messages
240 
   //
241 
   checkMode = 0;
242 
 
3891 dpurdie 243 
   savedVersion = "<%=verNumber%>";
244 
   document.getElementById('FRvnumber').value = savedVersion;
3885 dpurdie 245 
 
151 ghuddy 246 
   var isAutobuild = document.NEWversion.build_type[0].checked;
247 
   if (!isAutobuild)
248 
   {
3884 dpurdie 249 
      changeToManualVersionNumberAssignment();
151 ghuddy 250 
   }
3884 dpurdie 251 
   else
252 
   {
253 
      changeToAutoVersionNumberAssignment();
254 
   }
3894 dpurdie 255 
   checkPackage();
256 
   checkBaseView();
257 
 
258 
   // Hide error message
259 
   document.getElementById("eMessage").innerText = '';
119 ghuddy 260 
}
121 hknight 261 
 
262 
//////////////////////////////////////////////////////////////////
151 ghuddy 263 
// Function: changeToAutoVersionNumberAssignment
121 hknight 264 
//
3884 dpurdie 265 
// Purpose: Hide the relevent sections of the form
121 hknight 266 
//
151 ghuddy 267 
function changeToAutoVersionNumberAssignment()
268 
{
3884 dpurdie 269 
   document.getElementById('change_type').style.display = 'table-row';
270 
   //document.getElementById('pkgver').style.display = 'none';
3889 dpurdie 271 
   savedVersion = document.getElementById('FRvnumber').value;
272 
   document.getElementById('FRvnumber').disabled = true;
273 
   document.getElementById('FRvnumber').value = '(auto)';
3892 dpurdie 274 
   checkVersionNumber();
3894 dpurdie 275 
}
151 ghuddy 276 
 
277 
//////////////////////////////////////////////////////////////////
278 
// Function: changeToManualVersionNumberAssignment
121 hknight 279 
//
3884 dpurdie 280 
// Purpose: Show the relevent sections of the form
151 ghuddy 281 
//
282 
function changeToManualVersionNumberAssignment()
121 hknight 283 
{
3884 dpurdie 284 
   document.getElementById('change_type').style.display = 'none';
3894 dpurdie 285 
   //document.getElementById('pkgver').style.display = 'table-row';
3889 dpurdie 286 
   document.getElementById('FRvnumber').disabled = false;
287 
   document.getElementById('FRvnumber').value = savedVersion;
3892 dpurdie 288 
   checkVersionNumber();
121 hknight 289 
}
290 
 
3892 dpurdie 291 
function checkPackage()
292 
{
293 
    var f = document.getElementById('NEWversion');
294 
    if ( f.newPackage.value > 0 )
295 
    {
3894 dpurdie 296 
        reseteMessage();
297 
        MM_validateForm("--Silent",'FRpkgName','Package Name','RisPackage');
3892 dpurdie 298 
        checkPackageHighlight( ! document.MM_returnValue, 'Name well formed', 'Invalid Characters in name');
299 
        if ( ! document.MM_returnValue ) return;
151 ghuddy 300 
 
3894 dpurdie 301 
        xmlHttp=GetXmlHttpObject(checkPackageDone);
3892 dpurdie 302 
        if (xmlHttp==null)
303 
        {
304 
          alert ("Your browser does not support AJAX!");
305 
          return;
306 
        }
307 
 
3894 dpurdie 308 
        var url = "_json_checkPackage.asp?"
309 
                + "packageName=" + document.getElementById('FRpkgName').value
310 
                + "&Opr=checkName";
3892 dpurdie 311 
 
3895 dpurdie 312 
        MM_showProgressBar();
3894 dpurdie 313 
        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous
3892 dpurdie 314 
        xmlHttp.send(null);
315 
    }
316 
}
317 
 
318 
function checkPackageDone()
319 
{
320 
    //readyState of 4 or 'complete' represents that data has been returned
321 
    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
3894 dpurdie 322 
        //alert("Got to checkPackageDone"+ xmlHttp.responseText);
3892 dpurdie 323 
 
324 
        //Gather the results from the callback
325 
        var str = xmlHttp.responseText;
326 
        var myJson = JSON.parse(str);
327 
 
328 
        checkPackageHighlight( myJson.result != 0, 'Name is unused', 'Package Exists');
3895 dpurdie 329 
        MM_hideProgressBar();
3892 dpurdie 330 
    }
331 
}
332 
 
333 
function checkPackageHighlight(v, msggood, msgbad)
334 
{
335 
    if (v)
336 
    {
337 
        document.getElementById('cpError').innerText = msgbad;
3895 dpurdie 338 
        addClass(document.getElementById('FRpkgName'), 'form_error' );
3892 dpurdie 339 
        showeMessage(document.MM_error);
340 
        fieldError = true;
341 
    }
342 
    else
343 
    {
344 
        document.getElementById('cpError').innerText = msggood;
3895 dpurdie 345 
        removeClass(document.getElementById('FRpkgName'), 'form_error' );
3892 dpurdie 346 
    }
347 
}
348 
 
349 
function checkBaseView()
350 
{
351 
    var f = document.getElementById('NEWversion');
352 
    if ( f.newPackage.value > 0 )
353 
    {
3894 dpurdie 354 
        reseteMessage();
355 
        MM_validateForm("--Silent",'base_view_id','Base View','R');
3892 dpurdie 356 
        if ( ! document.MM_returnValue )
357 
        {
3895 dpurdie 358 
            addClass(document.getElementById('base_view_id'), 'form_error' );
3892 dpurdie 359 
            document.getElementById('bvError').innerText = 'Required';
360 
            fieldError = true;
361 
        }
362 
        else
363 
        {
3895 dpurdie 364 
            removeClass(document.getElementById('base_view_id'), 'form_error' );
3892 dpurdie 365 
            document.getElementById('bvError').innerText = '';
366 
        }
367 
    }
368 
}
369 
 
370 
function checkVersionNumber()
371 
{
3894 dpurdie 372 
   reseteMessage();
3892 dpurdie 373 
   if (document.NEWversion.build_type[1].checked)
374 
   {
375 
        // Get Full version - store into hidden field processing
376 
        var versionExt = document.all['v_ext'].value;
377 
        var versionBase = document.all['FRvnumber'].value;
378 
        document.all['FRnewver'].value = versionBase + versionExt;
379 
 
380 
        // check the version number is good
3899 dpurdie 381 
        MM_validateForm("--Silent",{vBase:versionBase, vExt:versionExt},'Version Number','RisVersionNumber');
382 
        if ( ! document.MM_returnValue )
3892 dpurdie 383 
        {
3895 dpurdie 384 
            addClass(document.getElementById('FRvnumber'), 'form_error' );
3892 dpurdie 385 
            document.getElementById('vnError').innerText = 'Invalid form';
3899 dpurdie 386 
            showeMessage(document.MM_error);
3892 dpurdie 387 
            fieldError = true;
388 
            return;
389 
        }
390 
    }
391 
 
3895 dpurdie 392 
    removeClass(document.getElementById('FRvnumber'), 'form_error' );
3892 dpurdie 393 
    document.getElementById('vnError').innerText = '';
394 
}
395 
 
396 
function checkVersionExists()
397 
{
3894 dpurdie 398 
   reseteMessage();
3892 dpurdie 399 
   if (document.NEWversion.build_type[1].checked)
400 
   {
3894 dpurdie 401 
        xmlHttp=GetXmlHttpObject(checkVersionExistsDone);
3892 dpurdie 402 
        if (xmlHttp==null)
403 
        {
404 
            alert ("Your browser does not support AJAX!");
405 
            return;
406 
        }
407 
 
3894 dpurdie 408 
        var url = "_json_checkPackage.asp?"
409 
                + "packageName=" + document.getElementById('FRpkgName').value
410 
                + "&Version=" + document.all['FRvnumber'].value + document.all['v_ext'].value
411 
                + "&Opr=checkVer";
3892 dpurdie 412 
 
3895 dpurdie 413 
        MM_showProgressBar();
3892 dpurdie 414 
        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous
415 
        xmlHttp.send(null);
416 
    }
417 
}
418 
 
419 
function checkVersionExistsDone()
420 
{
421 
    //readyState of 4 or 'complete' represents that data has been returned
422 
    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
423 
 
424 
        //Gather the results from the callback
425 
        var str = xmlHttp.responseText;
426 
        var myJson = JSON.parse(str);
427 
 
428 
        if(myJson.error)
429 
        {
430 
            showeMessage(myJson.emsgSummary);
431 
            fieldError = true;
432 
        }
433 
 
434 
        if(myJson.result != 0)
435 
        {
3895 dpurdie 436 
            addClass(document.getElementById('FRvnumber'), 'form_error' );
3892 dpurdie 437 
            //document.getElementById('vnError').innerText = 'Version already exists';
438 
            showeMessage('Version already exists');
439 
            fieldError = true;
440 
        }
441 
        else
442 
        {
3895 dpurdie 443 
            removeClass(document.getElementById('FRvnumber'), 'form_error' );
3892 dpurdie 444 
            document.getElementById('vnError').innerText = '';
445 
        }
3895 dpurdie 446 
        MM_hideProgressBar();
3892 dpurdie 447 
    }
448 
}
449 
 
450 
function checkReason()
451 
{
3894 dpurdie 452 
   reseteMessage();
453 
    MM_validateForm("--Silent",'FRreason','Reason for This Version','maxLength:4');
3892 dpurdie 454 
    if ( ! document.MM_returnValue )
455 
    {
3895 dpurdie 456 
        addClass(document.getElementById('FRreason'), 'form_error' );
3892 dpurdie 457 
        //document.getElementById('frError').innerText = 'Too Long';
458 
        showeMessage(document.MM_error);
459 
        fieldError = true;
460 
    }
461 
    else
462 
    {
3895 dpurdie 463 
        removeClass(document.getElementById('FRreason'), 'form_error' );
3892 dpurdie 464 
        //document.getElementById('frError').innerText = '';
465 
    }
466 
}
467 
 
3894 dpurdie 468 
function reseteMessage()
469 
{
470 
    if (checkMode == 0 )
471 
    {
472 
        document.getElementById("eMessage").innerText = "";
473 
    }
474 
}
475 
 
3892 dpurdie 476 
function showeMessage(msg)
477 
{
3894 dpurdie 478 
    var omsg;
479 
    if (checkMode == 1 )
480 
    {
481 
        omsg = document.getElementById("eMessage").innerText;
482 
        if ( omsg.length > 0 )
483 
            omsg += '\n';
484 
    }
485 
    else
486 
    {
487 
        omsg = "";
488 
    }
3892 dpurdie 489 
    omsg += msg;
490 
    document.getElementById("eMessage").innerText = omsg;
491 
}
492 
 
121 hknight 493 
// Do not remove these next few lines, otherwise the page does not load properly in Microsoft IE.
119 ghuddy 494 
//-->
495 
</script>
496 
 
497 
<script>
121 hknight 498 
 
499 
 
119 ghuddy 500 
function Dependency()
501 
{
3892 dpurdie 502 
<%If newPackage > 0 Then%>
3889 dpurdie 503 
   parent.window.location.href="dependencies.asp?rtag_id=<%=parRtag_id%>";
504 
<%Else%>
151 ghuddy 505 
   parent.window.location.href="dependencies.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>";
3889 dpurdie 506 
<%End If%>
119 ghuddy 507 
}
121 hknight 508 
 
151 ghuddy 509 
////////////////////////////////////////////////////////////////////////////////////////////////////////
510 
// This function returns true if form validation passes, else false
511 
// It is called when a user hits the submit button.
512 
////////////////////////////////////////////////////////////////////////////////////////////////////////
3892 dpurdie 513 
 
151 ghuddy 514 
function validateFormNEWversion()
515 
{
3886 dpurdie 516 
    var f = document.getElementById('NEWversion');
121 hknight 517 
 
3886 dpurdie 518 
    if (f == null)
519 
        alert('Failed To Get NEWversion');   // should never happen unless a coding/rendering mistake is made?
520 
    else
521 
    {
3892 dpurdie 522 
        document.getElementById("eMessage").innerText = '';
523 
        fieldError = false;
3894 dpurdie 524 
        checkMode = 1;
3892 dpurdie 525 
        checkPackage();
526 
        checkBaseView();
527 
        checkVersionNumber();
528 
        checkVersionExists();
529 
        checkReason();
530 
        if (!fieldError)
3884 dpurdie 531 
        {
3895 dpurdie 532 
            MM_showProgressBar();
3892 dpurdie 533 
            f.action='_new_version.asp';
534 
            parent.window.location.href='dependencies.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
535 
            return true;
3884 dpurdie 536 
        }
3892 dpurdie 537 
    }
3887 dpurdie 538 
 
3892 dpurdie 539 
    // Hide progress bar that is exposed because the previous tests were OK
3895 dpurdie 540 
    MM_hideProgressBar();
3894 dpurdie 541 
    checkMode = 0;
3892 dpurdie 542 
    return false;
121 hknight 543 
}
151 ghuddy 544 
 
119 ghuddy 545 
</script>
546 
 
547 
<table width="650" border="0" cellspacing="0" cellpadding="0">
151 ghuddy 548 
   <tr>
549 
      <td>
550 
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
551 
            <tr>
552 
               <td width="1%">&nbsp;</td>
553 
               <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
554 
               <td width="1%">&nbsp;</td>
555 
            </tr>
556 
            <tr>
557 
               <td width="1%">&nbsp;</td>
558 
               <td>
559 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
560 
                     <tr>
561 
                        <td nowrap class="form_ttl"><%=parPage_title%></td>
562 
                        <td align="right" valign="bottom">
563 
                           <!-- TABS -->
564 
                           &nbsp;
565 
                        </td>
566 
                     </tr>
567 
                  </table>
568 
               </td>
569 
               <td width="1%">&nbsp;</td>
570 
            </tr>
571 
            <tr>
572 
               <td align="left" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tl_cnr_b.gif" width="13" height="13"></td>
573 
               <td background="images/lbox_bg_blue.gif"><!-- Heading --><img src="images/h_trsp_dot.gif" width="1" height="20"><!-- END Heading --></td>
574 
               <td align="right" valign="top" width="1%" background="images/lbox_bg_blue.gif"><img src="images/lbox_tr_cnr_b.gif" width="13" height="13"></td>
575 
            </tr>
576 
            <tr>
577 
               <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
578 
               <td bgcolor="#FFFFFF" valign="top">
579 
                  <!-- Body -->
580 
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
581 
                     <form id="NEWversion"  name="NEWversion" method="post">
582 
                        <tr>
583 
                           <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
584 
                           <td width="1%" nowrap class="form_group" valign="bottom"></td>
585 
                           <td nowrap width="100%" align="right" class="form_step"></td>
586 
                        </tr>
587 
                        <tr>
588 
                           <td width="1%">&nbsp;</td>
589 
                           <td colspan="2" width="1%" nowrap class="form_field">
590 
                              <table width="100%" border="0" cellspacing="1" cellpadding="5">
3884 dpurdie 591 
 
592 
                                 <!-- Package Name -->
151 ghuddy 593 
                                 <tr>
594 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Package Name</td>
3892 dpurdie 595 
                                   <% if newPackage > 0 Then %>
3884 dpurdie 596 
                                        <td background="images/bg_form_lightgray.gif" class="form_item">
3892 dpurdie 597 
                                          <input type="text" id="FRpkgName" name="FRpkgName" class="form_item" size="40" value="<%=parPkgName%>" onBlur="checkPackage()">
598 
                                          <span id="cpError"></span>
3884 dpurdie 599 
                                        </td>
600 
                                    <% Else %>
3889 dpurdie 601 
                                        <td background="images/bg_form_lightgray.gif" class="form_field"><%=parPkgName%></td>
3884 dpurdie 602 
                                    <% End If %>
151 ghuddy 603 
                                 </tr>
3884 dpurdie 604 
 
605 
                                 <!--Base View -------------->
3892 dpurdie 606 
                                 <% if newPackage > 0 Then %>
3884 dpurdie 607 
                                    <tr>
608 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Base View</td>
3892 dpurdie 609 
                                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item">
610 
                                           <select name="base_view_id" id="base_view_id" class="form_item" onBlur="checkBaseView()">
3884 dpurdie 611 
                                              <option></option>
612 
                                              <%Call Get_All_Base_Views(parBase_view_id)%>
613 
                                           </select>
3892 dpurdie 614 
                                           <span id="bvError"></span>
3884 dpurdie 615 
                                        </td>
616 
                                     </tr>
617 
 
618 
                                 <!--Personal View -------------->
3891 dpurdie 619 
                                   <%If QStrPar("Pview") <> "disable" Then%>
3884 dpurdie 620 
                                    <tr>
621 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Personal View</td>
622 
                                       <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif">
623 
                                          <select name="personal_view_id" class="form_item">
624 
                                             <option value="">None</option>
625 
                                             <%Call Get_All_Personal_Views(objAccessControl.UserId )%>
626 
                                          </select>
627 
                                       </td>
628 
                                    </tr>
3891 dpurdie 629 
                                    <%End If%>
3884 dpurdie 630 
 
631 
                                 <!--Dummy Line to highlight New Package Data -------------->
632 
                                    <tr>
633 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field"></td>
634 
                                        <td background="images/bg_form_lightbluedark.gif" class="form_field"></td>
635 
                                    </tr>
636 
                                 <% End If %>
637 
 
638 
                                 <!--Version Number Assignment -------------->
151 ghuddy 639 
                                 <tr>
640 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Number Assignment</td>
641 
                                    <td background="images/bg_form_lightgray.gif" class="form_txt">
3884 dpurdie 642 
                                       <%
643 
                                            Dim flagAuto, flagMan
644 
                                            if bDisableAuto Then
645 
                                                flagAuto = "disabled"
646 
                                                flagMan = "checked"
647 
                                            Else
648 
                                                If bIsAuto Then
649 
                                                    flagAuto = "checked"
650 
                                                    flagMan = ""
651 
                                                Else
652 
                                                    flagAuto = ""
653 
                                                    flagMan = "checked"
654 
                                                End if
655 
                                            End if
656 
                                       %>
657 
                                        <table>
658 
                                        <tr>
659 
                                            <td background="images/bg_form_lightgray.gif" class="form_txt">
660 
 
661 
                                            <input name="build_type" id="build_type" type="radio" value="A" <%=flagAuto%> onclick="changeToAutoVersionNumberAssignment();"> Auto
662 
                                            <input name="build_type" id="build_type" type="radio" value="M" <%=flagMan%> onclick="changeToManualVersionNumberAssignment();"> Manual
663 
                                        </td>
664 
                                        </table>
151 ghuddy 665 
                                    </td>
666 
                                 </tr>
667 
 
3884 dpurdie 668 
                                 <!-- New Version Number -->
151 ghuddy 669 
                                 <tr>
670 
                                    <td background="images/bg_form_lightbluedark.gif"  width="20%" class="form_field">New Version Number</td>
3884 dpurdie 671 
                                    <td>
672 
                                        <table>
673 
                                        <tr>
674 
                                        <td background="images/bg_form_lightgray.gif" class="form_item">
3889 dpurdie 675 
                                            <input type="text" id="FRvnumber"
676 
                                                    name="FRvnumber"
3892 dpurdie 677 
                                                    class="form_item" size="12" onBlur="checkVersionNumber()">
678 
                                                    <span id="vnError"></span>
3884 dpurdie 679 
                                        </td>
680 
                                           <td id="pkgver" background="images/bg_form_lightgray.gif" class="form_item">
3892 dpurdie 681 
                                           <%If NOT newPackage > 0 Then%>
3884 dpurdie 682 
                                              <select id="FRpkgver"  name="FRpkgver" class="form_item">
683 
                                                 <option value=""></option>
684 
                                                 <%
685 
                                                 Set rsLatest = OraDatabase.DbCreateDynaset( Get_Latest_All_Ext( objPkgInfo.Item("pkg_id"), parPv_id ), cint(0))
151 ghuddy 686 
 
3884 dpurdie 687 
                                                 If rsLatest.RecordCount > 0 Then
688 
                                                    aVersions = rsLatest.GetRows()
689 
                                                    lastRow = UBound( aVersions, 2 )
690 
                                                    Set objSortHelper = New SortHelper
151 ghuddy 691 
 
3884 dpurdie 692 
                                                    ' Sort versions
693 
                                                    Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsLatest.FieldIndex("pkg_version") )
151 ghuddy 694 
 
3884 dpurdie 695 
                                                    ' Descending order
696 
                                                    For i = lastRow To 0 Step -1
697 
                                                    %>
698 
                                                       <option value="<%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>" <%=aVersions( rsLatest.FieldIndex("selected"), i )%>>
699 
                                                          <%If aVersions( rsLatest.FieldIndex("dlocked"), i ) = "Y" Then%>
700 
                                                             R&nbsp;
701 
                                                          <%Else%>
702 
                                                             &nbsp;&nbsp;&nbsp;&nbsp;
703 
                                                          <%End If%>
704 
                                                          <%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>
705 
                                                       </option>
706 
                                                    <%
707 
                                                    Next
708 
                                                    Set objSortHelper = nothing
151 ghuddy 709 
 
3884 dpurdie 710 
                                                 End If
711 
                                                 %>
712 
                                              </select>&nbsp;Existing Versions (For Reference Only)
713 
                                           <%End If%>
714 
                                           </td>
715 
                                        </tr>
716 
                                        </table>
717 
                                    </td>
151 ghuddy 718 
                                 </tr>
719 
                                 <tr>
720 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Extension</td>
721 
                                    <td background="images/bg_form_lightgray.gif" class="form_item">
722 
                                       <DIV id="divVersionExt" name="divVersionExt">
3892 dpurdie 723 
                                          <select name="v_ext" id="v_ext" onchange="checkVersionNumber()">
151 ghuddy 724 
                                             <%
725 
                                             Call drawExtensionSelectBox( objPkgInfo.Item("v_ext"), true )
726 
                                             %>
727 
                                          </select>
728 
                                       </DIV>
729 
                                    </td>
730 
                                 </tr>
731 
 
732 
                                 <tr>
733 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Reason For This Version</td>
734 
                                    <td background="images/bg_form_lightgray.gif" nowrap width="100%" class="form_field">
3892 dpurdie 735 
                                       <textarea name="FRreason" id="FRreason" class="form_item" style="width: 420px; height: 150px" onBlur="checkReason()"></textarea>
736 
                                        <span id="frError"></span>
151 ghuddy 737 
                                    </td>
738 
                                 </tr>
739 
 
3884 dpurdie 740 
                                <tr id="change_type">
741 
                                   <td background="images/bg_form_lightbluedark.gif" nowrap width="20%" class="form_field">Change Type</td>
742 
                                   <td background="images/bg_form_lightgray.gif" >
743 
                                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
744 
                                         <tr>
745 
                                            <td width="1%">
746 
                                              <%If bPatchOnly Then majorState = "disabled" %>
747 
                                              <input name="change_type" type="radio" value="M" <%=majorState%>>
748 
                                            </td>
749 
                                            <td nowrap>
750 
                                               <span class="form_field">Major Change</span>
751 
                                            </td>
752 
                                            <td>&nbsp;</td>
753 
                                            <td>
754 
                                               <span class="form_txt">A major number change indicates the contract of the package has changed in a non-backwardly compatible manner.</span>
755 
                                            </td>
756 
                                         </tr>
757 
                                         <tr>
758 
                                            <td colspan="4"><hr width="100%" size="1" noshade></td>
759 
                                         </tr>
760 
                                         <tr>
761 
                                            <td width="1%">
762 
                                              <%If bPatchOnly Then minorState = "disabled" %>
763 
                                              <input name="change_type" type="radio" value="N" <%=minorState%>>
764 
                                            </td>
765 
                                            <td align="center" nowrap>
766 
                                               <span class="form_field">Minor Change</span>
767 
                                            </td>
768 
                                            <td>&nbsp;</td>
769 
                                            <td>
770 
                                               <span class="form_txt">A minor number change indicates the contract of the package has changed in a backwardly compatible manner.</span>
771 
                                            </td>
772 
                                         </tr>
773 
                                         <tr>
774 
                                            <td colspan="4"><hr width="100%" size="1" noshade></td>
775 
                                         </tr>
776 
                                         <tr>
777 
                                            <td width="1%">
778 
                                               <input name="change_type" type="radio" value="P" <%=patchState%>>
779 
                                            </td>
780 
                                            <td nowrap>
781 
                                               <span class="form_field">Patch Change</span>
782 
                                            </td>
783 
                                            <td>&nbsp;</td>
784 
                                            <td>
785 
                                               <span class="form_txt">A patch number change indicates the package has changed internally.</span>
786 
                                            </td>
787 
                                         </tr>
788 
                                      </table>
151 ghuddy 789 
 
3884 dpurdie 790 
                                   </td>
791 
                                </tr>
151 ghuddy 792 
                                 <tr>
793 
                                    <td nowrap><img src="images/h_trsp_dot.gif" width="120" height="1"></td>
794 
                                    <td></td>
795 
                                 </tr>
796 
                                 <input type="hidden" name="FRnewver" id="FRnewver" value="hello">
797 
                                 <input type="hidden" name="OLDpv_id" value="<%=parPv_id%>">
798 
                                 <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
3884 dpurdie 799 
                                 <input type="hidden" name="newPackage" value="<%=newPackage%>">
3892 dpurdie 800 
                                 <% if NOT (newPackage > 0) Then %>
801 
                                 <input type="hidden" id="FRpkgName" name="FRpkgName" value="<%=parPkgName%>">
802 
                                 <%End If%>
151 ghuddy 803 
                              </table>
804 
                           </td>
805 
                        </tr>
806 
                        <tr>
807 
                           <td width="1%">&nbsp;</td>
808 
                           <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
809 
                           <td nowrap width="100%" class="body_scol">
810 
                              <input type="submit" name="btn" value="Submit" class="form_btn" onClick="return validateFormNEWversion();">
811 
                              <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="Dependency();">
812 
                              <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN>
813 
                              <br><br>
814 
                           </td>
3894 dpurdie 815 
                           <tr><td id="eMessage" colspan=3 class="err_alert">ERROR: Page Java script did not load</td><tr>
151 ghuddy 816 
                        </tr>
817 
                     </form>
818 
                  </table>
819 
                  <!-- END Body-->
820 
               </td>
821 
               <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
822 
            </tr>
823 
            <tr>
824 
               <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
825 
               <td background="images/lbox_bg_blue.gif"></td>
826 
               <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom" align="right"><img src="images/lbox_br_cnr_b.gif" width="13" height="13"></td>
827 
            </tr>
828 
         </table>
829 
      </td>
830 
   </tr>
119 ghuddy 831 
</table>