Subversion Repositories DevTools

Rev

Rev 3866 | Rev 3900 | Go to most recent revision | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 3866 Rev 3873
Line 848... Line 848...
848
 
848
 
849
   Response.write msgTemplate
849
   Response.write msgTemplate
850
End Sub
850
End Sub
851
'-----------------------------------------------------------------------------------------------------------------------------
851
'-----------------------------------------------------------------------------------------------------------------------------
852
Function Default_Label ( SSpv_id, SSbuild_type, SSpkg_name, SSpkg_version, SSv_ext )
852
Function Default_Label ( SSpv_id, SSbuild_type, SSpkg_name, SSpkg_version, SSv_ext )
853
   Dim rsTemp, Query_String
-
 
854
   ' Do not do anything is label already exists
-
 
855
   'If Not IsNull(rsPkgInfo("pkg_label")) OR (rsPkgInfo("pkg_label")<>"")Then
-
 
856
   '   Default_Label = rsPkgInfo("pkg_label")
-
 
857
   '   Exit Function
-
 
858
   'End If
-
 
859
 
-
 
860
   If Request("rtag_id") <> "" Then
-
 
861
 
-
 
862
      Set rsTemp = OraDatabase.DbCreateDynaset( "SELECT PROJ_ID FROM RELEASE_TAGS WHERE RTAG_ID = "& Request("rtag_id") &"" , cint(0) )
-
 
863
 
-
 
864
      If InStr(1, SSpkg_name, "ERG") = 1 AND rsTemp("proj_id") <> 202 Then
-
 
865
         ' For ERG products
-
 
866
         If IsNull(SSv_ext) OR (SSv_ext = "") Then
-
 
867
            ' blank extention e.i. MAS
-
 
868
            Default_Label = "MAS_"& UCase(SSpkg_name) &"_R_"& Format_Version( SSpkg_version, NULL )
-
 
869
         Else
-
 
870
            Default_Label = UCase( Replace(SSv_ext, ".", "") ) &"_"& UCase(SSpkg_name) &"_R_"& Format_Version( SSpkg_version, SSv_ext )
-
 
871
         End If
-
 
872
      Else
-
 
873
         ' For others
-
 
874
         If SSbuild_type = "A" Then
853
    If SSbuild_type = "A" Then
875
            Default_Label = UCase(SSpkg_name & "." & SSpv_id & SSv_ext & ".WIP")
854
        Default_Label = UCase(SSpkg_name & "." & SSpv_id & SSv_ext & ".WIP")
876
         Else
-
 
877
            Default_Label = SSpkg_name &"_"& SSpkg_version
-
 
878
         End If
-
 
879
 
-
 
880
      End If
-
 
881
 
-
 
882
      rsTemp.Close()
-
 
883
      Set rsTemp = nothing
-
 
884
   Else
855
    Else
885
      If InStr(1, SSpkg_name, "ERG") = 1 Then
-
 
886
         ' For ERG products
-
 
887
         If IsNull(SSv_ext) OR (SSv_ext = "") Then
-
 
888
            ' blank extention e.i. MAS
-
 
889
            Default_Label = "MAS_"& UCase(SSpkg_name) &"_R_"& Format_Version( SSpkg_version, NULL )
-
 
890
         Else
-
 
891
            Default_Label = UCase( Replace(SSv_ext, ".", "") ) &"_"& UCase(SSpkg_name) &"_R_"& Format_Version( SSpkg_version, SSv_ext )
-
 
892
         End If
-
 
893
      Else
-
 
894
         ' For others
-
 
895
         If SSbuild_type = "A" Then
-
 
896
            Default_Label = UCase(SSpkg_name & "." & SSpv_id & SSv_ext & ".WIP")
-
 
897
         Else
-
 
898
            Default_Label = SSpkg_name &"_"& SSpkg_version
856
        Default_Label = SSpkg_name &"_"& SSpkg_version
899
         End If
-
 
900
      End If
-
 
901
   End If
857
    End If
902
End Function
858
End Function
903
'-----------------------------------------------------------------------------------------------------------------------------
859
'-----------------------------------------------------------------------------------------------------------------------------
904
Function Format_Version ( SSpkg_version, SSv_ext )
860
Function Format_Version ( SSpkg_version, SSv_ext )
905
   Dim tempArr, tempVersion, patchArr, seg, myVersion
861
   Dim tempArr, tempVersion, patchArr, seg, myVersion
906
   myVersion = SSpkg_version
862
   myVersion = SSpkg_version