| Line 857... |
Line 857... |
| 857 |
msgTemplate = Replace( msgTemplate, "%MESSAGE%", sMessage )
|
857 |
msgTemplate = Replace( msgTemplate, "%MESSAGE%", sMessage )
|
| 858 |
|
858 |
|
| 859 |
Response.write msgTemplate
|
859 |
Response.write msgTemplate
|
| 860 |
End Sub
|
860 |
End Sub
|
| 861 |
'-----------------------------------------------------------------------------------------------------------------------------
|
861 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 862 |
Function Default_Label ( SSpv_id, SSbuild_type, SSpkg_name, SSpkg_version, SSv_ext )
|
862 |
Function Default_Label ( SSpv_id, SSbuild_type, SSchange_type, SSpkg_name, SSpkg_version, SSv_ext )
|
| 863 |
If SSbuild_type = "A" Then
|
863 |
If SSbuild_type = "A" Then
|
| - |
|
864 |
If SSchange_type = "F" Then
|
| - |
|
865 |
Default_Label = SSpkg_name & "_" & SSpkg_version & ".WIP"
|
| - |
|
866 |
else
|
| 864 |
Default_Label = UCase(SSpkg_name & "." & SSpv_id & SSv_ext & ".WIP")
|
867 |
Default_Label = UCase(SSpkg_name & "." & SSpv_id & SSv_ext) & ".WIP"
|
| - |
|
868 |
End If
|
| 865 |
Else
|
869 |
Else
|
| 866 |
Default_Label = SSpkg_name &"_"& SSpkg_version
|
870 |
Default_Label = SSpkg_name & "_" & SSpkg_version
|
| 867 |
End If
|
871 |
End If
|
| 868 |
End Function
|
872 |
End Function
|
| 869 |
'-----------------------------------------------------------------------------------------------------------------------------
|
873 |
'-----------------------------------------------------------------------------------------------------------------------------
|
| 870 |
Function Format_Version ( SSpkg_version, SSv_ext )
|
874 |
Function Format_Version ( SSpkg_version, SSv_ext )
|
| 871 |
Dim tempArr, tempVersion, patchArr, seg, myVersion
|
875 |
Dim tempArr, tempVersion, patchArr, seg, myVersion
|