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