Subversion Repositories DevTools

Rev

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