Subversion Repositories DevTools

Rev

Details | 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"-->
3959 dpurdie 10 
<script language="JavaScript" src="scripts/remote_scripting.js"></script>
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
3959 dpurdie 23 
Dim newPackage
24 
Dim majorState
25 
Dim minorState
26 
Dim patchState
27 
Dim parBase_view_id
28 
Dim verNumber
29 
Dim parPkgName
30 
 
119 ghuddy 31 
'------------ Constants Declaration -----------
32 
'------------ Variable Init -------------------
33 
parPv_id = QStrPar("pv_id")
3959 dpurdie 34 
parBase_view_id = Request("base_view_id")
35 
parPkgName = QStrPar("pkgName")
36 
 
119 ghuddy 37 
parPage_title = "NEW VERSION"
3959 dpurdie 38 
 
39 
If ( parPkgName <> "" ) Then
40 
    newPackage = 1
41 
    parPv_id = NULL
42 
Else
43 
    newPackage = 0
44 
End if
45 
 
46 
majorState = ""
47 
minorState = ""
48 
patchState = "checked"
49 
 
119 ghuddy 50 
Set objPkgInfo = CreateObject("Scripting.Dictionary")
3959 dpurdie 51 
 
119 ghuddy 52 
'-----------------------------------------------------------------------------------------------------------------------------
53 
Sub GetPackageInfo( nPvId, outPkgInfo )
151 ghuddy 54 
   Dim rsTemp, Query_String
3959 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")
3959 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
3959 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 
'-------------------------------------------------------------------------------------------------------------
3959 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.
93 
'
94 
' Read from the database to determine type
95 
' If we cannot determine the project suffix then assume the worst
96 
'
97 
Function HasCotsExtension(aExt)
98 
   Dim rsQry, Query_String
99 
   HasCotsExtension = FALSE
100 
 
101 
   if aExt <> "" Then
102 
       Query_String = "SELECT EXT_NAME FROM PROJECT_EXTENTIONS pe WHERE " &_
103 
                      "pe.IS_COTS='Y' AND pe.EXT_NAME='" & LCase(aExt) & "'"
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
112 
   Set rsQry = Nothing
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 
 
3959 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 
 
151 ghuddy 136 
'-----------------------------------------------------------------------------------------------------------------------------
3959 dpurdie 137 
Sub Get_All_Base_Views ( NNnewgroup_id )
138 
   Dim rsTemp, Query_String
139 
 
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
161 
'-----------------------------------------------------------------------------------------------------------------------------
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 ============================
3959 dpurdie 192 
Dim bDisableAuto, bPatchOnly, bIsCots, bIsAuto
151 ghuddy 193 
 
3959 dpurdie 194 
If NOT (newPackage > 0 ) Then
195 
    Call GetPackageInfo( parPv_id, objPkgInfo )
196 
    parPkgName = objPkgInfo.Item("pkg_name")
165 brianf 197 
 
3959 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"))
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
209 
    bIsAuto = NOT bDisableAuto
210 
 
211 
Else
212 
    ' If New Package and First version
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 = ""
221 
    verNumber = "1.0.0000"
151 ghuddy 222 
End If
3959 dpurdie 223 
 
119 ghuddy 224 
'============================================================
225 
%>
226 
<script language="JavaScript" type="text/JavaScript">
227 
<!--
3959 dpurdie 228 
var savedVersion;
229 
var fieldError;
230 
var checkMode;
121 hknight 231 
 
3959 dpurdie 232 
window.onload = function(e)
233 
{
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;
121 hknight 242 
 
3959 dpurdie 243 
   savedVersion = "<%=verNumber%>";
244 
   document.getElementById('FRvnumber').value = savedVersion;
121 hknight 245 
 
151 ghuddy 246 
   var isAutobuild = document.NEWversion.build_type[0].checked;
247 
   if (!isAutobuild)
248 
   {
3959 dpurdie 249 
      changeToManualVersionNumberAssignment();
151 ghuddy 250 
   }
3959 dpurdie 251 
   else
252 
   {
253 
      changeToAutoVersionNumberAssignment();
254 
   }
255 
   checkPackage();
256 
   checkBaseView();
151 ghuddy 257 
 
3959 dpurdie 258 
   // Hide error message
259 
   document.getElementById("eMessage").innerText = '';
119 ghuddy 260 
}
121 hknight 261 
 
262 
//////////////////////////////////////////////////////////////////
3959 dpurdie 263 
// Function: changeToAutoVersionNumberAssignment
121 hknight 264 
//
3959 dpurdie 265 
// Purpose: Hide the relevent sections of the form
121 hknight 266 
//
3959 dpurdie 267 
function changeToAutoVersionNumberAssignment()
121 hknight 268 
{
3959 dpurdie 269 
   document.getElementById('change_type').style.display = 'table-row';
270 
   //document.getElementById('pkgver').style.display = 'none';
271 
   savedVersion = document.getElementById('FRvnumber').value;
272 
   document.getElementById('FRvnumber').disabled = true;
273 
   document.getElementById('FRvnumber').value = '(auto)';
274 
   checkVersionNumber();
121 hknight 275 
}
276 
 
277 
//////////////////////////////////////////////////////////////////
3959 dpurdie 278 
// Function: changeToManualVersionNumberAssignment
121 hknight 279 
//
3959 dpurdie 280 
// Purpose: Show the relevent sections of the form
121 hknight 281 
//
3959 dpurdie 282 
function changeToManualVersionNumberAssignment()
121 hknight 283 
{
3959 dpurdie 284 
   document.getElementById('change_type').style.display = 'none';
285 
   //document.getElementById('pkgver').style.display = 'table-row';
286 
   document.getElementById('FRvnumber').disabled = false;
287 
   document.getElementById('FRvnumber').value = savedVersion;
288 
   checkVersionNumber();
289 
}
121 hknight 290 
 
3959 dpurdie 291 
function checkPackage()
292 
{
293 
    var f = document.getElementById('NEWversion');
294 
    if ( f.newPackage.value > 0 )
295 
    {
296 
        reseteMessage();
297 
        MM_validateForm("--Silent",'FRpkgName','Package Name','RisPackage');
298 
        checkPackageHighlight( ! document.MM_returnValue, 'Name well formed', 'Invalid Characters in name');
299 
        if ( ! document.MM_returnValue ) return;
121 hknight 300 
 
3959 dpurdie 301 
        xmlHttp=GetXmlHttpObject(checkPackageDone);
302 
        if (xmlHttp==null)
303 
        {
304 
          alert ("Your browser does not support AJAX!");
305 
          return;
306 
        }
307 
 
308 
        var url = "_json_checkPackage.asp?"
309 
                + "packageName=" + document.getElementById('FRpkgName').value
310 
                + "&Opr=checkName";
311 
 
312 
        MM_showProgressBar();
313 
        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous
314 
        xmlHttp.send(null);
315 
    }
121 hknight 316 
}
317 
 
3959 dpurdie 318 
function checkPackageDone()
319 
{
320 
    //readyState of 4 or 'complete' represents that data has been returned
321 
    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
322 
        //alert("Got to checkPackageDone"+ xmlHttp.responseText);
121 hknight 323 
 
3959 dpurdie 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');
329 
        MM_hideProgressBar();
330 
    }
331 
}
332 
 
333 
function checkPackageHighlight(v, msggood, msgbad)
121 hknight 334 
{
3959 dpurdie 335 
    if (v)
336 
    {
337 
        document.getElementById('cpError').innerText = msgbad;
338 
        addClass(document.getElementById('FRpkgName'), 'form_error' );
339 
        showeMessage(document.MM_error);
340 
        fieldError = true;
341 
    }
342 
    else
343 
    {
344 
        document.getElementById('cpError').innerText = msggood;
345 
        removeClass(document.getElementById('FRpkgName'), 'form_error' );
346 
    }
121 hknight 347 
}
348 
 
3959 dpurdie 349 
function checkBaseView()
350 
{
351 
    var f = document.getElementById('NEWversion');
352 
    if ( f.newPackage.value > 0 )
353 
    {
354 
        reseteMessage();
355 
        MM_validateForm("--Silent",'base_view_id','Base View','R');
356 
        if ( ! document.MM_returnValue )
357 
        {
358 
            addClass(document.getElementById('base_view_id'), 'form_error' );
359 
            document.getElementById('bvError').innerText = 'Required';
360 
            fieldError = true;
361 
        }
362 
        else
363 
        {
364 
            removeClass(document.getElementById('base_view_id'), 'form_error' );
365 
            document.getElementById('bvError').innerText = '';
366 
        }
367 
    }
368 
}
121 hknight 369 
 
3959 dpurdie 370 
function checkVersionNumber()
151 ghuddy 371 
{
3959 dpurdie 372 
   reseteMessage();
373 
   if (document.NEWversion.build_type[0].checked)
374 
   {
375 
        removeClass(document.getElementById('FRvnumber'), 'form_error' );
376 
        document.getElementById('vnError').innerText = '';
377 
   }
378 
   else
379 
   {
380 
        // Get Full version - store into hidden field processing
381 
        var versionExt = document.all['v_ext'].value;
382 
        var versionBase = document.all['FRvnumber'].value;
383 
        document.all['FRnewver'].value = versionBase + versionExt;
384 
 
385 
        // check the version number is good
386 
        MM_validateForm("--Silent",{vBase:versionBase, vExt:versionExt},'Version Number','RisVersionNumber');
387 
        if ( ! document.MM_returnValue )
388 
        {
389 
            addClass(document.getElementById('FRvnumber'), 'form_error' );
390 
            document.getElementById('vnError').innerText = 'Invalid form';
391 
            showeMessage(document.MM_error);
392 
            fieldError = true;
393 
            return;
394 
        }
395 
 
396 
        xmlHttp=GetXmlHttpObject(checkVersionExistsDone);
397 
        if (xmlHttp==null)
398 
        {
399 
            alert ("Your browser does not support AJAX!");
400 
            return;
401 
        }
402 
 
403 
        var url = "_json_checkPackage.asp?"
404 
                + "packageName=" + document.getElementById('FRpkgName').value
405 
                + "&Version=" + document.all['FRvnumber'].value + document.all['v_ext'].value
406 
                + "&Opr=checkVer";
407 
 
408 
        MM_showProgressBar();
409 
        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous
410 
        xmlHttp.send(null);
411 
    }
151 ghuddy 412 
}
413 
 
3959 dpurdie 414 
function checkVersionExistsDone()
121 hknight 415 
{
3959 dpurdie 416 
    //readyState of 4 or 'complete' represents that data has been returned
417 
    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
418 
 
419 
        //Gather the results from the callback
420 
        var str = xmlHttp.responseText;
421 
        var myJson = JSON.parse(str);
422 
 
423 
        if(myJson.error)
424 
        {
425 
            showeMessage(myJson.emsgSummary);
426 
            fieldError = true;
427 
        }
428 
 
429 
        if(myJson.result != 0)
430 
        {
431 
            addClass(document.getElementById('FRvnumber'), 'form_error' );
432 
            document.getElementById('vnError').innerText = 'Exists';
433 
            showeMessage('Version already exists');
434 
            fieldError = true;
435 
        }
436 
        else
437 
        {
438 
            removeClass(document.getElementById('FRvnumber'), 'form_error' );
439 
            document.getElementById('vnError').innerText = '';
440 
        }
441 
        MM_hideProgressBar();
442 
    }
121 hknight 443 
}
444 
 
3959 dpurdie 445 
function checkReason()
446 
{
447 
   reseteMessage();
448 
    MM_validateForm("--Silent",'FRreason','Reason for This Version','maxLength:4000');
449 
    if ( ! document.MM_returnValue )
450 
    {
451 
        addClass(document.getElementById('FRreason'), 'form_error' );
452 
        //document.getElementById('frError').innerText = 'Too Long';
453 
        showeMessage(document.MM_error);
454 
        fieldError = true;
455 
    }
456 
    else
457 
    {
458 
        removeClass(document.getElementById('FRreason'), 'form_error' );
459 
        //document.getElementById('frError').innerText = '';
460 
    }
461 
}
151 ghuddy 462 
 
3959 dpurdie 463 
function reseteMessage()
464 
{
465 
    if (checkMode == 0 )
466 
    {
467 
        document.getElementById("eMessage").innerText = "";
468 
    }
469 
}
470 
 
471 
function showeMessage(msg)
472 
{
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 
    }
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 
{
3959 dpurdie 497 
<%If newPackage > 0 Then%>
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%>";
3959 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 
////////////////////////////////////////////////////////////////////////////////////////////////////////
3959 dpurdie 508 
 
151 ghuddy 509 
function validateFormNEWversion()
510 
{
3959 dpurdie 511 
    var f = document.getElementById('NEWversion');
121 hknight 512 
 
3959 dpurdie 513 
    if (f == null)
514 
        alert('Failed To Get NEWversion');   // should never happen unless a coding/rendering mistake is made?
515 
    else
516 
    {
517 
        document.getElementById("eMessage").innerText = '';
518 
        fieldError = false;
519 
        checkMode = 1;
520 
        checkPackage();
521 
        checkBaseView();
522 
        checkVersionNumber();
523 
        checkReason();
524 
        if (!fieldError)
525 
        {
526 
            MM_showProgressBar();
151 ghuddy 527 
            f.action='_new_version.asp';
528 
            parent.window.location.href='dependencies.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
3959 dpurdie 529 
            return true;
530 
        }
531 
    }
151 ghuddy 532 
 
3959 dpurdie 533 
    // Hide progress bar that is exposed because the previous tests were OK
534 
    MM_hideProgressBar();
535 
    checkMode = 0;
536 
    return false;
121 hknight 537 
}
151 ghuddy 538 
 
119 ghuddy 539 
</script>
540 
 
541 
<table width="650" border="0" cellspacing="0" cellpadding="0">
151 ghuddy 542 
   <tr>
543 
      <td>
544 
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
545 
            <tr>
546 
               <td width="1%">&nbsp;</td>
547 
               <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
548 
               <td width="1%">&nbsp;</td>
549 
            </tr>
550 
            <tr>
551 
               <td width="1%">&nbsp;</td>
552 
               <td>
553 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
554 
                     <tr>
555 
                        <td nowrap class="form_ttl"><%=parPage_title%></td>
556 
                        <td align="right" valign="bottom">
557 
                           <!-- TABS -->
558 
                           &nbsp;
559 
                        </td>
560 
                     </tr>
561 
                  </table>
562 
               </td>
563 
               <td width="1%">&nbsp;</td>
564 
            </tr>
565 
            <tr>
566 
               <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>
567 
               <td background="images/lbox_bg_blue.gif"><!-- Heading --><img src="images/h_trsp_dot.gif" width="1" height="20"><!-- END Heading --></td>
568 
               <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>
569 
            </tr>
570 
            <tr>
571 
               <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
572 
               <td bgcolor="#FFFFFF" valign="top">
573 
                  <!-- Body -->
574 
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
575 
                     <form id="NEWversion"  name="NEWversion" method="post">
576 
                        <tr>
577 
                           <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
578 
                           <td width="1%" nowrap class="form_group" valign="bottom"></td>
579 
                           <td nowrap width="100%" align="right" class="form_step"></td>
580 
                        </tr>
581 
                        <tr>
582 
                           <td width="1%">&nbsp;</td>
583 
                           <td colspan="2" width="1%" nowrap class="form_field">
584 
                              <table width="100%" border="0" cellspacing="1" cellpadding="5">
3959 dpurdie 585 
 
586 
                                 <!-- Package Name -->
151 ghuddy 587 
                                 <tr>
588 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Package Name</td>
3959 dpurdie 589 
                                   <% if newPackage > 0 Then %>
590 
                                        <td background="images/bg_form_lightgray.gif" class="form_item">
591 
                                          <input type="text" id="FRpkgName" name="FRpkgName" class="form_item" size="40" value="<%=parPkgName%>" onBlur="checkPackage()">
592 
                                          <span id="cpError"></span>
593 
                                        </td>
594 
                                    <% Else %>
595 
                                        <td background="images/bg_form_lightgray.gif" class="form_field"><%=parPkgName%></td>
596 
                                    <% End If %>
151 ghuddy 597 
                                 </tr>
3959 dpurdie 598 
 
599 
                                 <!--Base View -------------->
600 
                                 <% if newPackage > 0 Then %>
601 
                                    <tr>
602 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Base View</td>
603 
                                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item">
604 
                                           <select name="base_view_id" id="base_view_id" class="form_item" onBlur="checkBaseView()">
605 
                                              <option></option>
606 
                                              <%Call Get_All_Base_Views(parBase_view_id)%>
607 
                                           </select>
608 
                                           <span id="bvError"></span>
609 
                                        </td>
610 
                                     </tr>
611 
 
612 
                                 <!--Personal View -------------->
613 
                                   <%If QStrPar("Pview") <> "disable" Then%>
614 
                                    <tr>
615 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Personal View</td>
616 
                                       <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif">
617 
                                          <select name="personal_view_id" class="form_item">
618 
                                             <option value="">None</option>
619 
                                             <%Call Get_All_Personal_Views(objAccessControl.UserId )%>
620 
                                          </select>
621 
                                       </td>
622 
                                    </tr>
623 
                                    <%End If%>
624 
 
625 
                                 <!--Dummy Line to highlight New Package Data -------------->
626 
                                    <tr>
627 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field"></td>
628 
                                        <td background="images/bg_form_lightbluedark.gif" class="form_field"></td>
629 
                                    </tr>
630 
                                 <% End If %>
631 
 
632 
                                 <!--Version Number Assignment -------------->
151 ghuddy 633 
                                 <tr>
634 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Number Assignment</td>
635 
                                    <td background="images/bg_form_lightgray.gif" class="form_txt">
3959 dpurdie 636 
                                       <%
637 
                                            Dim flagAuto, flagMan
638 
                                            if bDisableAuto Then
639 
                                                flagAuto = "disabled"
640 
                                                flagMan = "checked"
641 
                                            Else
642 
                                                If bIsAuto Then
643 
                                                    flagAuto = "checked"
644 
                                                    flagMan = ""
645 
                                                Else
646 
                                                    flagAuto = ""
647 
                                                    flagMan = "checked"
648 
                                                End if
649 
                                            End if
650 
                                       %>
651 
                                        <table>
652 
                                        <tr>
653 
                                            <td background="images/bg_form_lightgray.gif" class="form_txt">
654 
 
655 
                                            <input name="build_type" id="build_type" type="radio" value="A" <%=flagAuto%> onclick="changeToAutoVersionNumberAssignment();"> Auto
656 
                                            <input name="build_type" id="build_type" type="radio" value="M" <%=flagMan%> onclick="changeToManualVersionNumberAssignment();"> Manual
657 
                                        </td>
658 
                                        </table>
151 ghuddy 659 
                                    </td>
660 
                                 </tr>
661 
 
3959 dpurdie 662 
                                 <!-- New Version Number -->
151 ghuddy 663 
                                 <tr>
664 
                                    <td background="images/bg_form_lightbluedark.gif"  width="20%" class="form_field">New Version Number</td>
3959 dpurdie 665 
                                    <td>
666 
                                        <table>
667 
                                        <tr>
668 
                                        <td background="images/bg_form_lightgray.gif" class="form_item">
669 
                                            <input type="text" id="FRvnumber"
670 
                                                    name="FRvnumber"
671 
                                                    class="form_item" size="12" onBlur="checkVersionNumber()">
672 
                                                    <span id="vnError"></span>
673 
                                        </td>
674 
                                           <td id="pkgver" background="images/bg_form_lightgray.gif" class="form_item">
675 
                                           <%If NOT newPackage > 0 Then%>
676 
                                              <select id="FRpkgver"  name="FRpkgver" class="form_item">
677 
                                                 <option value=""></option>
678 
                                                 <%
679 
                                                 Set rsLatest = OraDatabase.DbCreateDynaset( Get_Latest_All_Ext( objPkgInfo.Item("pkg_id"), parPv_id ), cint(0))
151 ghuddy 680 
 
3959 dpurdie 681 
                                                 If rsLatest.RecordCount > 0 Then
682 
                                                    aVersions = rsLatest.GetRows()
683 
                                                    lastRow = UBound( aVersions, 2 )
684 
                                                    Set objSortHelper = New SortHelper
151 ghuddy 685 
 
3959 dpurdie 686 
                                                    ' Sort versions
687 
                                                    Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsLatest.FieldIndex("pkg_version") )
151 ghuddy 688 
 
3959 dpurdie 689 
                                                    ' Descending order
690 
                                                    For i = lastRow To 0 Step -1
691 
                                                    %>
692 
                                                       <option value="<%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>" <%=aVersions( rsLatest.FieldIndex("selected"), i )%>>
693 
                                                          <%If aVersions( rsLatest.FieldIndex("dlocked"), i ) = "Y" Then%>
694 
                                                             R&nbsp;
695 
                                                          <%Else%>
696 
                                                             &nbsp;&nbsp;&nbsp;&nbsp;
697 
                                                          <%End If%>
698 
                                                          <%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>
699 
                                                       </option>
700 
                                                    <%
701 
                                                    Next
702 
                                                    Set objSortHelper = nothing
151 ghuddy 703 
 
3959 dpurdie 704 
                                                 End If
705 
                                                 %>
706 
                                              </select>&nbsp;Existing Versions (For Reference Only)
707 
                                           <%End If%>
708 
                                           </td>
709 
                                        </tr>
710 
                                        </table>
711 
                                    </td>
151 ghuddy 712 
                                 </tr>
713 
                                 <tr>
714 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Extension</td>
715 
                                    <td background="images/bg_form_lightgray.gif" class="form_item">
716 
                                       <DIV id="divVersionExt" name="divVersionExt">
3959 dpurdie 717 
                                          <select name="v_ext" id="v_ext" onchange="checkVersionNumber()">
151 ghuddy 718 
                                             <%
719 
                                             Call drawExtensionSelectBox( objPkgInfo.Item("v_ext"), true )
720 
                                             %>
721 
                                          </select>
722 
                                       </DIV>
723 
                                    </td>
724 
                                 </tr>
725 
 
3959 dpurdie 726 
                                 <!-- Reason For This Version -->
151 ghuddy 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">
3959 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 
 
3959 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 
 
3959 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%>">
3959 dpurdie 794 
                                 <input type="hidden" name="newPackage" value="<%=newPackage%>">
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>
3959 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>