| 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 1911... |
Line 1912... |
| 1911 |
-- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
|
1912 |
-- NOTE: if reg-expr parsing/replacement fails, the x_... variable may receive the entire input string (vcstag), so
|
| 1912 |
-- check for that error as well as the obvious zero-length string conditions.
|
1913 |
-- check for that error as well as the obvious zero-length string conditions.
|
| 1913 |
IF LENGTH(x_srcpath) = 0 OR LENGTH(x_label) = 0 OR x_srcpath = vcstag OR x_label = vcstag THEN
|
1914 |
IF LENGTH(x_srcpath) = 0 OR LENGTH(x_label) = 0 OR x_srcpath = vcstag OR x_label = vcstag THEN
|
| 1914 |
raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
|
1915 |
raise_application_error (-20000, 'VCS Tag contains insufficient or malformed data!');
|
| 1915 |
END IF;
|
1916 |
END IF;
|
| 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 |
-- Don't allow migrated packages to be released from a CC label
|
| - |
|
1920 |
return return_migrated_pkg;
|
| 1919 |
END IF;
|
1921 |
END IF;
|
| 1920 |
|
1922 |
|
| 1921 |
WHEN 'SVN' THEN
|
1923 |
WHEN 'SVN' THEN
|
| 1922 |
-- extract the 2nd token, that being the subversion tag
|
1924 |
-- extract the 2nd token, that being the subversion tag
|
| 1923 |
x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
|
1925 |
x_srcpath := REGEXP_REPLACE(vcstag, BOL || Token || Seperator || Token || Seperator || Anything, ReplaceToken2);
|