Subversion Repositories DevTools

Rev

Rev 2365 | Show entire file | Ignore whitespace | Details | Blame | Last modification | View Log | RSS feed

Rev 2365 Rev 2735
Line 1839... Line 1839...
1839
      ssv_nmm                         package_versions.v_nmm%TYPE;
1839
      ssv_nmm                         package_versions.v_nmm%TYPE;
1840
      ssv_ext                         package_versions.v_ext%TYPE;
1840
      ssv_ext                         package_versions.v_ext%TYPE;
1841
      return_package_not_found        NUMBER                        := -1;
1841
      return_package_not_found        NUMBER                        := -1;
1842
      return_package_already_exists   NUMBER                        := -2;
1842
      return_package_already_exists   NUMBER                        := -2;
1843
      return_not_approved             NUMBER                        := -3;
1843
      return_not_approved             NUMBER                        := -3;
-
 
1844
      return_migrated_pkg             NUMBER                        := -4;
1844
 
1845
 
1845
      x_vcstypeid                     NUMBER;
1846
      x_vcstypeid                     NUMBER;
1846
      x_tag                           VARCHAR2(32);
1847
      x_tag                           VARCHAR2(32);
1847
      x_label                         VARCHAR2(60);
1848
      x_label                         VARCHAR2(60);
1848
      x_srcpath                       VARCHAR2(2000);
1849
      x_srcpath                       VARCHAR2(2000);
Line 1916... Line 1917...
1916
                
1917
                
1917
                IF isSVNbyName(pkgname) > 0 THEN
1918
                IF isSVNbyName(pkgname) > 0 THEN
1918
                    raise_application_error (-20000, 'Package has been migrated to SVN. Cannot release versions from ClearCase');
1919
                    raise_application_error (-20000, 'Package has been migrated to SVN. Cannot release versions from ClearCase');
1919
                END IF;
1920
                END IF;
1920
 
1921
 
-
 
1922
                IF isSVNbyName(pkgname) > 0 THEN
-
 
1923
				    -- Don't allow migrated packages to be released from a CC label
-
 
1924
					return return_migrated_pkg;
-
 
1925
                END IF;
-
 
1926
 
1921
             WHEN 'SVN' THEN
1927
             WHEN 'SVN' THEN
1922
                -- extract the 2nd token, that being the subversion tag
1928
                -- extract the 2nd token, that being the subversion tag
1923
                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
1929
                x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
1924
                x_label   := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Token, ReplaceToken3);
1930
                x_label   := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Token, ReplaceToken3);
1925
 
1931