Subversion Repositories DevTools

Rev

Rev 3917 | 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
3983 dpurdie 259 
   setIdText('eMessage','');
119 ghuddy 260 
}
121 hknight 261 
 
3983 dpurdie 262 
function setIdText(id, text) {
263 
    var element = document.getElementById(id);
264 
    if ( element ) {
265 
    while (element.firstChild!==null)
266 
        element.removeChild(element.firstChild); // remove all existing content
267 
    element.appendChild(document.createTextNode(text));
268 
    }
269 
}
270 
 
121 hknight 271 
//////////////////////////////////////////////////////////////////
151 ghuddy 272 
// Function: changeToAutoVersionNumberAssignment
121 hknight 273 
//
3884 dpurdie 274 
// Purpose: Hide the relevent sections of the form
121 hknight 275 
//
151 ghuddy 276 
function changeToAutoVersionNumberAssignment()
277 
{
3884 dpurdie 278 
   document.getElementById('change_type').style.display = 'table-row';
279 
   //document.getElementById('pkgver').style.display = 'none';
3889 dpurdie 280 
   savedVersion = document.getElementById('FRvnumber').value;
281 
   document.getElementById('FRvnumber').disabled = true;
282 
   document.getElementById('FRvnumber').value = '(auto)';
3892 dpurdie 283 
   checkVersionNumber();
3894 dpurdie 284 
}
151 ghuddy 285 
 
286 
//////////////////////////////////////////////////////////////////
287 
// Function: changeToManualVersionNumberAssignment
121 hknight 288 
//
3884 dpurdie 289 
// Purpose: Show the relevent sections of the form
151 ghuddy 290 
//
291 
function changeToManualVersionNumberAssignment()
121 hknight 292 
{
3884 dpurdie 293 
   document.getElementById('change_type').style.display = 'none';
3894 dpurdie 294 
   //document.getElementById('pkgver').style.display = 'table-row';
3889 dpurdie 295 
   document.getElementById('FRvnumber').disabled = false;
296 
   document.getElementById('FRvnumber').value = savedVersion;
3892 dpurdie 297 
   checkVersionNumber();
121 hknight 298 
}
299 
 
3892 dpurdie 300 
function checkPackage()
301 
{
302 
    var f = document.getElementById('NEWversion');
303 
    if ( f.newPackage.value > 0 )
304 
    {
3894 dpurdie 305 
        reseteMessage();
306 
        MM_validateForm("--Silent",'FRpkgName','Package Name','RisPackage');
3892 dpurdie 307 
        checkPackageHighlight( ! document.MM_returnValue, 'Name well formed', 'Invalid Characters in name');
308 
        if ( ! document.MM_returnValue ) return;
151 ghuddy 309 
 
3894 dpurdie 310 
        xmlHttp=GetXmlHttpObject(checkPackageDone);
3892 dpurdie 311 
        if (xmlHttp==null)
312 
        {
313 
          alert ("Your browser does not support AJAX!");
314 
          return;
315 
        }
316 
 
3894 dpurdie 317 
        var url = "_json_checkPackage.asp?"
318 
                + "packageName=" + document.getElementById('FRpkgName').value
319 
                + "&Opr=checkName";
3892 dpurdie 320 
 
3895 dpurdie 321 
        MM_showProgressBar();
3894 dpurdie 322 
        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous
3892 dpurdie 323 
        xmlHttp.send(null);
324 
    }
325 
}
326 
 
327 
function checkPackageDone()
328 
{
329 
    //readyState of 4 or 'complete' represents that data has been returned
330 
    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
3894 dpurdie 331 
        //alert("Got to checkPackageDone"+ xmlHttp.responseText);
3892 dpurdie 332 
 
333 
        //Gather the results from the callback
334 
        var str = xmlHttp.responseText;
335 
        var myJson = JSON.parse(str);
336 
 
337 
        checkPackageHighlight( myJson.result != 0, 'Name is unused', 'Package Exists');
3895 dpurdie 338 
        MM_hideProgressBar();
3892 dpurdie 339 
    }
340 
}
341 
 
342 
function checkPackageHighlight(v, msggood, msgbad)
343 
{
344 
    if (v)
345 
    {
3983 dpurdie 346 
        setIdText('cpError',msgbad);
3895 dpurdie 347 
        addClass(document.getElementById('FRpkgName'), 'form_error' );
3892 dpurdie 348 
        showeMessage(document.MM_error);
349 
        fieldError = true;
350 
    }
351 
    else
352 
    {
3983 dpurdie 353 
        setIdText('cpError',msggood);
3895 dpurdie 354 
        removeClass(document.getElementById('FRpkgName'), 'form_error' );
3892 dpurdie 355 
    }
356 
}
357 
 
358 
function checkBaseView()
359 
{
360 
    var f = document.getElementById('NEWversion');
361 
    if ( f.newPackage.value > 0 )
362 
    {
3894 dpurdie 363 
        reseteMessage();
364 
        MM_validateForm("--Silent",'base_view_id','Base View','R');
3892 dpurdie 365 
        if ( ! document.MM_returnValue )
366 
        {
3895 dpurdie 367 
            addClass(document.getElementById('base_view_id'), 'form_error' );
3983 dpurdie 368 
            setIdText('bvError','Required');
3892 dpurdie 369 
            fieldError = true;
370 
        }
371 
        else
372 
        {
3895 dpurdie 373 
            removeClass(document.getElementById('base_view_id'), 'form_error' );
3983 dpurdie 374 
            setIdText('bvError','');
3892 dpurdie 375 
        }
376 
    }
377 
}
378 
 
379 
function checkVersionNumber()
380 
{
3894 dpurdie 381 
   reseteMessage();
3917 dpurdie 382 
   if (document.NEWversion.build_type[0].checked)
3892 dpurdie 383 
   {
3917 dpurdie 384 
        removeClass(document.getElementById('FRvnumber'), 'form_error' );
3983 dpurdie 385 
        setIdText('vnError','');
386 
 
387 
        var versionExt = document.all['v_ext'].value;
388 
        document.all['FRnewver'].value = versionExt;
3917 dpurdie 389 
   }
390 
   else
391 
   {
3892 dpurdie 392 
        // Get Full version - store into hidden field processing
393 
        var versionExt = document.all['v_ext'].value;
394 
        var versionBase = document.all['FRvnumber'].value;
395 
        document.all['FRnewver'].value = versionBase + versionExt;
396 
 
397 
        // check the version number is good
3899 dpurdie 398 
        MM_validateForm("--Silent",{vBase:versionBase, vExt:versionExt},'Version Number','RisVersionNumber');
399 
        if ( ! document.MM_returnValue )
3892 dpurdie 400 
        {
3895 dpurdie 401 
            addClass(document.getElementById('FRvnumber'), 'form_error' );
3983 dpurdie 402 
            setIdText('vnError','Invalid form');
3899 dpurdie 403 
            showeMessage(document.MM_error);
3892 dpurdie 404 
            fieldError = true;
405 
            return;
406 
        }
407 
 
3894 dpurdie 408 
        xmlHttp=GetXmlHttpObject(checkVersionExistsDone);
3892 dpurdie 409 
        if (xmlHttp==null)
410 
        {
411 
            alert ("Your browser does not support AJAX!");
412 
            return;
413 
        }
414 
 
3894 dpurdie 415 
        var url = "_json_checkPackage.asp?"
416 
                + "packageName=" + document.getElementById('FRpkgName').value
417 
                + "&Version=" + document.all['FRvnumber'].value + document.all['v_ext'].value
418 
                + "&Opr=checkVer";
3892 dpurdie 419 
 
3895 dpurdie 420 
        MM_showProgressBar();
3892 dpurdie 421 
        xmlHttp.open("GET",url,false);  // `false` makes the request synchronous
422 
        xmlHttp.send(null);
423 
    }
424 
}
425 
 
426 
function checkVersionExistsDone()
427 
{
428 
    //readyState of 4 or 'complete' represents that data has been returned
429 
    if (xmlHttp.readyState == 4 || xmlHttp.readyState == 'complete'){
430 
 
431 
        //Gather the results from the callback
432 
        var str = xmlHttp.responseText;
433 
        var myJson = JSON.parse(str);
434 
 
435 
        if(myJson.error)
436 
        {
437 
            showeMessage(myJson.emsgSummary);
438 
            fieldError = true;
439 
        }
440 
 
441 
        if(myJson.result != 0)
442 
        {
3895 dpurdie 443 
            addClass(document.getElementById('FRvnumber'), 'form_error' );
3983 dpurdie 444 
            setIdText('vnError','Exists');
3892 dpurdie 445 
            showeMessage('Version already exists');
446 
            fieldError = true;
447 
        }
448 
        else
449 
        {
3895 dpurdie 450 
            removeClass(document.getElementById('FRvnumber'), 'form_error' );
3983 dpurdie 451 
            setIdText('vnError','');
3892 dpurdie 452 
        }
3895 dpurdie 453 
        MM_hideProgressBar();
3892 dpurdie 454 
    }
455 
}
456 
 
457 
function checkReason()
458 
{
3894 dpurdie 459 
   reseteMessage();
3917 dpurdie 460 
    MM_validateForm("--Silent",'FRreason','Reason for This Version','maxLength:4000');
3892 dpurdie 461 
    if ( ! document.MM_returnValue )
462 
    {
3895 dpurdie 463 
        addClass(document.getElementById('FRreason'), 'form_error' );
3983 dpurdie 464 
        //setIdText('frError','Too Long');
465 
 
3892 dpurdie 466 
        showeMessage(document.MM_error);
467 
        fieldError = true;
468 
    }
469 
    else
470 
    {
3895 dpurdie 471 
        removeClass(document.getElementById('FRreason'), 'form_error' );
3983 dpurdie 472 
        //setIdText('frError','');
3892 dpurdie 473 
    }
474 
}
475 
 
3894 dpurdie 476 
function reseteMessage()
477 
{
478 
    if (checkMode == 0 )
479 
    {
3983 dpurdie 480 
        setIdText('eMessage','');
3894 dpurdie 481 
    }
482 
}
483 
 
3892 dpurdie 484 
function showeMessage(msg)
485 
{
3894 dpurdie 486 
    var omsg;
487 
    if (checkMode == 1 )
488 
    {
489 
        omsg = document.getElementById("eMessage").innerText;
490 
        if ( omsg.length > 0 )
491 
            omsg += '\n';
492 
    }
493 
    else
494 
    {
495 
        omsg = "";
496 
    }
3892 dpurdie 497 
    omsg += msg;
3983 dpurdie 498 
    setIdText('eMessage',omsg);
3892 dpurdie 499 
}
500 
 
121 hknight 501 
// Do not remove these next few lines, otherwise the page does not load properly in Microsoft IE.
119 ghuddy 502 
//-->
503 
</script>
504 
 
505 
<script>
121 hknight 506 
 
507 
 
119 ghuddy 508 
function Dependency()
509 
{
3892 dpurdie 510 
<%If newPackage > 0 Then%>
3889 dpurdie 511 
   parent.window.location.href="dependencies.asp?rtag_id=<%=parRtag_id%>";
512 
<%Else%>
151 ghuddy 513 
   parent.window.location.href="dependencies.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>";
3889 dpurdie 514 
<%End If%>
119 ghuddy 515 
}
121 hknight 516 
 
151 ghuddy 517 
////////////////////////////////////////////////////////////////////////////////////////////////////////
518 
// This function returns true if form validation passes, else false
519 
// It is called when a user hits the submit button.
520 
////////////////////////////////////////////////////////////////////////////////////////////////////////
3892 dpurdie 521 
 
151 ghuddy 522 
function validateFormNEWversion()
523 
{
3886 dpurdie 524 
    var f = document.getElementById('NEWversion');
121 hknight 525 
 
3886 dpurdie 526 
    if (f == null)
527 
        alert('Failed To Get NEWversion');   // should never happen unless a coding/rendering mistake is made?
528 
    else
529 
    {
3983 dpurdie 530 
        setIdText('eMessage','');
3892 dpurdie 531 
        fieldError = false;
3894 dpurdie 532 
        checkMode = 1;
3892 dpurdie 533 
        checkPackage();
534 
        checkBaseView();
535 
        checkVersionNumber();
536 
        checkReason();
537 
        if (!fieldError)
3884 dpurdie 538 
        {
3895 dpurdie 539 
            MM_showProgressBar();
3892 dpurdie 540 
            f.action='_new_version.asp';
541 
            parent.window.location.href='dependencies.asp?rtag_id=<%=parRtag_id%>&pv_id=<%=parPv_id%>';
542 
            return true;
3884 dpurdie 543 
        }
3892 dpurdie 544 
    }
3887 dpurdie 545 
 
3892 dpurdie 546 
    // Hide progress bar that is exposed because the previous tests were OK
3895 dpurdie 547 
    MM_hideProgressBar();
3894 dpurdie 548 
    checkMode = 0;
3892 dpurdie 549 
    return false;
121 hknight 550 
}
151 ghuddy 551 
 
119 ghuddy 552 
</script>
553 
 
554 
<table width="650" border="0" cellspacing="0" cellpadding="0">
151 ghuddy 555 
   <tr>
556 
      <td>
557 
         <table width="100%" border="0" cellspacing="0" cellpadding="0">
558 
            <tr>
559 
               <td width="1%">&nbsp;</td>
560 
               <td align="right"><img src="images/h_trsp_dot.gif" width="30" height="30"></td>
561 
               <td width="1%">&nbsp;</td>
562 
            </tr>
563 
            <tr>
564 
               <td width="1%">&nbsp;</td>
565 
               <td>
566 
                  <table width="100%" border="0" cellspacing="0" cellpadding="0">
567 
                     <tr>
568 
                        <td nowrap class="form_ttl"><%=parPage_title%></td>
569 
                        <td align="right" valign="bottom">
570 
                           <!-- TABS -->
571 
                           &nbsp;
572 
                        </td>
573 
                     </tr>
574 
                  </table>
575 
               </td>
576 
               <td width="1%">&nbsp;</td>
577 
            </tr>
578 
            <tr>
579 
               <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>
580 
               <td background="images/lbox_bg_blue.gif"><!-- Heading --><img src="images/h_trsp_dot.gif" width="1" height="20"><!-- END Heading --></td>
581 
               <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>
582 
            </tr>
583 
            <tr>
584 
               <td width="1%" bgcolor="#FFFFFF"><img src="images/h_trsp_dot.gif" width="10" height="100"></td>
585 
               <td bgcolor="#FFFFFF" valign="top">
586 
                  <!-- Body -->
587 
                  <table width="100%" border="0" cellspacing="1" cellpadding="2">
588 
                     <form id="NEWversion"  name="NEWversion" method="post">
589 
                        <tr>
590 
                           <td width="1%"><img src="images/h_trsp_dot.gif" width="1" height="10"></td>
591 
                           <td width="1%" nowrap class="form_group" valign="bottom"></td>
592 
                           <td nowrap width="100%" align="right" class="form_step"></td>
593 
                        </tr>
594 
                        <tr>
595 
                           <td width="1%">&nbsp;</td>
596 
                           <td colspan="2" width="1%" nowrap class="form_field">
597 
                              <table width="100%" border="0" cellspacing="1" cellpadding="5">
3884 dpurdie 598 
 
599 
                                 <!-- Package Name -->
151 ghuddy 600 
                                 <tr>
601 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Package Name</td>
3892 dpurdie 602 
                                   <% if newPackage > 0 Then %>
3884 dpurdie 603 
                                        <td background="images/bg_form_lightgray.gif" class="form_item">
3892 dpurdie 604 
                                          <input type="text" id="FRpkgName" name="FRpkgName" class="form_item" size="40" value="<%=parPkgName%>" onBlur="checkPackage()">
605 
                                          <span id="cpError"></span>
3884 dpurdie 606 
                                        </td>
607 
                                    <% Else %>
3889 dpurdie 608 
                                        <td background="images/bg_form_lightgray.gif" class="form_field"><%=parPkgName%></td>
3884 dpurdie 609 
                                    <% End If %>
151 ghuddy 610 
                                 </tr>
3884 dpurdie 611 
 
612 
                                 <!--Base View -------------->
3892 dpurdie 613 
                                 <% if newPackage > 0 Then %>
3884 dpurdie 614 
                                    <tr>
615 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Base View</td>
3892 dpurdie 616 
                                        <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif" class="form_item">
617 
                                           <select name="base_view_id" id="base_view_id" class="form_item" onBlur="checkBaseView()">
3884 dpurdie 618 
                                              <option></option>
619 
                                              <%Call Get_All_Base_Views(parBase_view_id)%>
620 
                                           </select>
3892 dpurdie 621 
                                           <span id="bvError"></span>
3884 dpurdie 622 
                                        </td>
623 
                                     </tr>
624 
 
625 
                                 <!--Personal View -------------->
3891 dpurdie 626 
                                   <%If QStrPar("Pview") <> "disable" Then%>
3884 dpurdie 627 
                                    <tr>
628 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">To Personal View</td>
629 
                                       <td colspan="2" width="1%" nowrap background="images/bg_form_lightgray.gif">
630 
                                          <select name="personal_view_id" class="form_item">
631 
                                             <option value="">None</option>
632 
                                             <%Call Get_All_Personal_Views(objAccessControl.UserId )%>
633 
                                          </select>
634 
                                       </td>
635 
                                    </tr>
3891 dpurdie 636 
                                    <%End If%>
3884 dpurdie 637 
 
638 
                                 <!--Dummy Line to highlight New Package Data -------------->
639 
                                    <tr>
640 
                                        <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field"></td>
641 
                                        <td background="images/bg_form_lightbluedark.gif" class="form_field"></td>
642 
                                    </tr>
643 
                                 <% End If %>
644 
 
645 
                                 <!--Version Number Assignment -------------->
151 ghuddy 646 
                                 <tr>
647 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Number Assignment</td>
648 
                                    <td background="images/bg_form_lightgray.gif" class="form_txt">
3884 dpurdie 649 
                                       <%
650 
                                            Dim flagAuto, flagMan
651 
                                            if bDisableAuto Then
652 
                                                flagAuto = "disabled"
653 
                                                flagMan = "checked"
654 
                                            Else
655 
                                                If bIsAuto Then
656 
                                                    flagAuto = "checked"
657 
                                                    flagMan = ""
658 
                                                Else
659 
                                                    flagAuto = ""
660 
                                                    flagMan = "checked"
661 
                                                End if
662 
                                            End if
663 
                                       %>
664 
                                        <table>
665 
                                        <tr>
666 
                                            <td background="images/bg_form_lightgray.gif" class="form_txt">
667 
 
668 
                                            <input name="build_type" id="build_type" type="radio" value="A" <%=flagAuto%> onclick="changeToAutoVersionNumberAssignment();"> Auto
669 
                                            <input name="build_type" id="build_type" type="radio" value="M" <%=flagMan%> onclick="changeToManualVersionNumberAssignment();"> Manual
670 
                                        </td>
671 
                                        </table>
151 ghuddy 672 
                                    </td>
673 
                                 </tr>
674 
 
3884 dpurdie 675 
                                 <!-- New Version Number -->
151 ghuddy 676 
                                 <tr>
677 
                                    <td background="images/bg_form_lightbluedark.gif"  width="20%" class="form_field">New Version Number</td>
3884 dpurdie 678 
                                    <td>
679 
                                        <table>
680 
                                        <tr>
681 
                                        <td background="images/bg_form_lightgray.gif" class="form_item">
3889 dpurdie 682 
                                            <input type="text" id="FRvnumber"
683 
                                                    name="FRvnumber"
3892 dpurdie 684 
                                                    class="form_item" size="12" onBlur="checkVersionNumber()">
685 
                                                    <span id="vnError"></span>
3884 dpurdie 686 
                                        </td>
687 
                                           <td id="pkgver" background="images/bg_form_lightgray.gif" class="form_item">
3892 dpurdie 688 
                                           <%If NOT newPackage > 0 Then%>
3884 dpurdie 689 
                                              <select id="FRpkgver"  name="FRpkgver" class="form_item">
690 
                                                 <option value=""></option>
691 
                                                 <%
692 
                                                 Set rsLatest = OraDatabase.DbCreateDynaset( Get_Latest_All_Ext( objPkgInfo.Item("pkg_id"), parPv_id ), cint(0))
151 ghuddy 693 
 
3884 dpurdie 694 
                                                 If rsLatest.RecordCount > 0 Then
695 
                                                    aVersions = rsLatest.GetRows()
696 
                                                    lastRow = UBound( aVersions, 2 )
697 
                                                    Set objSortHelper = New SortHelper
151 ghuddy 698 
 
3884 dpurdie 699 
                                                    ' Sort versions
700 
                                                    Call objSortHelper.VersionSort( aVersions, 0, lastRow, rsLatest.FieldIndex("pkg_version") )
151 ghuddy 701 
 
3884 dpurdie 702 
                                                    ' Descending order
703 
                                                    For i = lastRow To 0 Step -1
704 
                                                    %>
705 
                                                       <option value="<%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>" <%=aVersions( rsLatest.FieldIndex("selected"), i )%>>
706 
                                                          <%If aVersions( rsLatest.FieldIndex("dlocked"), i ) = "Y" Then%>
707 
                                                             R&nbsp;
708 
                                                          <%Else%>
709 
                                                             &nbsp;&nbsp;&nbsp;&nbsp;
710 
                                                          <%End If%>
711 
                                                          <%=aVersions( rsLatest.FieldIndex("pkg_version"), i )%>
712 
                                                       </option>
713 
                                                    <%
714 
                                                    Next
715 
                                                    Set objSortHelper = nothing
151 ghuddy 716 
 
3884 dpurdie 717 
                                                 End If
718 
                                                 %>
719 
                                              </select>&nbsp;Existing Versions (For Reference Only)
720 
                                           <%End If%>
721 
                                           </td>
722 
                                        </tr>
723 
                                        </table>
724 
                                    </td>
151 ghuddy 725 
                                 </tr>
726 
                                 <tr>
727 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Version Extension</td>
728 
                                    <td background="images/bg_form_lightgray.gif" class="form_item">
729 
                                       <DIV id="divVersionExt" name="divVersionExt">
3892 dpurdie 730 
                                          <select name="v_ext" id="v_ext" onchange="checkVersionNumber()">
151 ghuddy 731 
                                             <%
732 
                                             Call drawExtensionSelectBox( objPkgInfo.Item("v_ext"), true )
733 
                                             %>
734 
                                          </select>
735 
                                       </DIV>
736 
                                    </td>
737 
                                 </tr>
738 
 
3917 dpurdie 739 
                                 <!-- Reason For This Version -->
151 ghuddy 740 
                                 <tr>
741 
                                    <td background="images/bg_form_lightbluedark.gif" width="20%" class="form_field">Reason For This Version</td>
742 
                                    <td background="images/bg_form_lightgray.gif" nowrap width="100%" class="form_field">
3892 dpurdie 743 
                                       <textarea name="FRreason" id="FRreason" class="form_item" style="width: 420px; height: 150px" onBlur="checkReason()"></textarea>
744 
                                        <span id="frError"></span>
151 ghuddy 745 
                                    </td>
746 
                                 </tr>
747 
 
3884 dpurdie 748 
                                <tr id="change_type">
749 
                                   <td background="images/bg_form_lightbluedark.gif" nowrap width="20%" class="form_field">Change Type</td>
750 
                                   <td background="images/bg_form_lightgray.gif" >
751 
                                      <table width="100%" border="0" cellspacing="0" cellpadding="0">
752 
                                         <tr>
753 
                                            <td width="1%">
754 
                                              <%If bPatchOnly Then majorState = "disabled" %>
755 
                                              <input name="change_type" type="radio" value="M" <%=majorState%>>
756 
                                            </td>
757 
                                            <td nowrap>
758 
                                               <span class="form_field">Major Change</span>
759 
                                            </td>
760 
                                            <td>&nbsp;</td>
761 
                                            <td>
762 
                                               <span class="form_txt">A major number change indicates the contract of the package has changed in a non-backwardly compatible manner.</span>
763 
                                            </td>
764 
                                         </tr>
765 
                                         <tr>
766 
                                            <td colspan="4"><hr width="100%" size="1" noshade></td>
767 
                                         </tr>
768 
                                         <tr>
769 
                                            <td width="1%">
770 
                                              <%If bPatchOnly Then minorState = "disabled" %>
771 
                                              <input name="change_type" type="radio" value="N" <%=minorState%>>
772 
                                            </td>
773 
                                            <td align="center" nowrap>
774 
                                               <span class="form_field">Minor Change</span>
775 
                                            </td>
776 
                                            <td>&nbsp;</td>
777 
                                            <td>
778 
                                               <span class="form_txt">A minor number change indicates the contract of the package has changed in a backwardly compatible manner.</span>
779 
                                            </td>
780 
                                         </tr>
781 
                                         <tr>
782 
                                            <td colspan="4"><hr width="100%" size="1" noshade></td>
783 
                                         </tr>
784 
                                         <tr>
785 
                                            <td width="1%">
786 
                                               <input name="change_type" type="radio" value="P" <%=patchState%>>
787 
                                            </td>
788 
                                            <td nowrap>
789 
                                               <span class="form_field">Patch Change</span>
790 
                                            </td>
791 
                                            <td>&nbsp;</td>
792 
                                            <td>
793 
                                               <span class="form_txt">A patch number change indicates the package has changed internally.</span>
794 
                                            </td>
795 
                                         </tr>
796 
                                      </table>
151 ghuddy 797 
 
3884 dpurdie 798 
                                   </td>
799 
                                </tr>
151 ghuddy 800 
                                 <tr>
801 
                                    <td nowrap><img src="images/h_trsp_dot.gif" width="120" height="1"></td>
802 
                                    <td></td>
803 
                                 </tr>
804 
                                 <input type="hidden" name="FRnewver" id="FRnewver" value="hello">
805 
                                 <input type="hidden" name="OLDpv_id" value="<%=parPv_id%>">
806 
                                 <input type="hidden" name="rtag_id" value="<%=parRtag_id%>">
3884 dpurdie 807 
                                 <input type="hidden" name="newPackage" value="<%=newPackage%>">
3892 dpurdie 808 
                                 <% if NOT (newPackage > 0) Then %>
809 
                                 <input type="hidden" id="FRpkgName" name="FRpkgName" value="<%=parPkgName%>">
810 
                                 <%End If%>
151 ghuddy 811 
                              </table>
812 
                           </td>
813 
                        </tr>
814 
                        <tr>
815 
                           <td width="1%">&nbsp;</td>
816 
                           <td width="1%" nowrap class="form_field"><img src="images/h_trsp_dot.gif" width="1" height="1"></td>
817 
                           <td nowrap width="100%" class="body_scol">
818 
                              <input type="submit" name="btn" value="Submit" class="form_btn" onClick="return validateFormNEWversion();">
819 
                              <input type="reset" name="btn" value="Cancel" class="form_btn" onClick="Dependency();">
820 
                              <SPAN id="ProgressBar" name="ProgressBar" style="visibility:hidden;"><img src="images/i_processing.gif" width="11" height="17" align="absmiddle" hspace="3">Processing...</SPAN>
821 
                              <br><br>
822 
                           </td>
3894 dpurdie 823 
                           <tr><td id="eMessage" colspan=3 class="err_alert">ERROR: Page Java script did not load</td><tr>
151 ghuddy 824 
                        </tr>
825 
                     </form>
826 
                  </table>
827 
                  <!-- END Body-->
828 
               </td>
829 
               <td width="1%" background="images/lbox_bgside_white.gif">&nbsp;</td>
830 
            </tr>
831 
            <tr>
832 
               <td width="1%" background="images/lbox_bg_blue.gif" valign="bottom"><img src="images/lbox_bl_cnr_b.gif" width="13" height="13"></td>
833 
               <td background="images/lbox_bg_blue.gif"></td>
834 
               <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>
835 
            </tr>
836 
         </table>
837 
      </td>
838 
   </tr>
119 ghuddy 839 
</table>