| Line 557... |
Line 557... |
| 557 |
'----------------------------------------------------------------------------------------------------------------------
|
557 |
'----------------------------------------------------------------------------------------------------------------------
|
| 558 |
' This subroutine sets up the on_submit_validation string to be used in the form tag to validate certain fields
|
558 |
' This subroutine sets up the on_submit_validation string to be used in the form tag to validate certain fields
|
| 559 |
' in client-side javascript when a user tries to submit the form
|
559 |
' in client-side javascript when a user tries to submit the form
|
| 560 |
Sub Determine_On_Submit_Validation
|
560 |
Sub Determine_On_Submit_Validation
|
| 561 |
on_submit_validation = ""
|
561 |
on_submit_validation = ""
|
| - |
|
562 |
Dim args
|
| 562 |
|
563 |
|
| 563 |
If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) Then
|
564 |
If (objFormCollector.Item("vcs_tag") = enum_VCS_CLEARCASE_TAG) Then
|
| 564 |
' Do clearcase path + label validation
|
565 |
' Do clearcase path + label validation
|
| 565 |
on_submit_validation = "onSubmit=""MM_validateForm('FRlabel','Label','RisCCLabel','FRpath','Source Path','RisCCPath' ); return document.MM_returnValue"""
|
566 |
args = "'FRlabel','Label','RisCCLabel','FRpath','Source Path','RisCCPath'"
|
| 566 |
ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) Then
|
567 |
ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_SUBVERSION_TAG) Then
|
| 567 |
' Do subversion tag validation
|
568 |
' Do subversion tag validation
|
| - |
|
569 |
args = "'FRpath','Source Path','RisSVNPath'"
|
| - |
|
570 |
args = args & ",'FRlabel','Subversion Tag','RisSVNTag'"
|
| - |
|
571 |
If (objFormCollector.Item("build_type") = "M" ) Then
|
| 568 |
on_submit_validation = "onSubmit=""MM_validateForm('FRlabel','Subversion Tag','RisSVNTag','FRpath','Source Path','RisSVNPath' ); return document.MM_returnValue"""
|
572 |
args = args & ",'FRlabel','Subversion Tag','RisSVNPegTag'"
|
| - |
|
573 |
End If
|
| 569 |
End If
|
574 |
End If
|
| - |
|
575 |
on_submit_validation = "onSubmit=""MM_validateForm(" & args & "); return document.MM_returnValue"""
|
| 570 |
|
576 |
|
| 571 |
End Sub
|
577 |
End Sub
|
| 572 |
'----------------------------------------------------------------------------------------------------------------------
|
578 |
'----------------------------------------------------------------------------------------------------------------------
|
| 573 |
' This function obtains a BM_ID (build machine ID) from a buidl machine name by querrying the database
|
579 |
' This function obtains a BM_ID (build machine ID) from a buidl machine name by querrying the database
|
| 574 |
Function Get_BM_ID_for_BM_Name(nBm_Name)
|
580 |
Function Get_BM_ID_for_BM_Name(nBm_Name)
|
| Line 982... |
Line 988... |
| 982 |
End If
|
988 |
End If
|
| 983 |
End If
|
989 |
End If
|
| 984 |
%>
|
990 |
%>
|
| 985 |
|
991 |
|
| 986 |
<input type="text" name="FRlabel" id="FRlabel" maxlength="50" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);" value="<%=sLabel%>" <%=sLabelReadOnly%>>
|
992 |
<input type="text" name="FRlabel" id="FRlabel" maxlength="50" size="60" class="form_item" <%=disableCriticalSectionEdit%> onchange="strip_whitespace(this);" value="<%=sLabel%>" <%=sLabelReadOnly%>>
|
| - |
|
993 |
<%
|
| - |
|
994 |
If objFormCollector.Item("build_type") = "M" Then
|
| 987 |
<br> Example: myPackage_1.0.0.0000.cr@1234<br>
|
995 |
%> <br> Example: <%=sDefaultLabel%>@1234<br> <%
|
| - |
|
996 |
Else
|
| - |
|
997 |
%> <br> Example: <%=sDefaultLabel%>[@1234]<br> <%
|
| - |
|
998 |
End If
|
| - |
|
999 |
%>
|
| 988 |
</td>
|
1000 |
</td>
|
| 989 |
<td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objForm.Validate ("FRlabel")%></td>
|
1001 |
<td valign="top" nowrap background="images/bg_form_lightbluedark.gif" class="form_txt"><%=objForm.Validate ("FRlabel")%></td>
|
| 990 |
</tr>
|
1002 |
</tr>
|
| 991 |
|
1003 |
|
| 992 |
<%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
|
1004 |
<%ElseIf (objFormCollector.Item("vcs_tag") = enum_VCS_CVS_TAG) Then%>
|