Switch to URL dep

Author: mbtools

src/zcl_settings.clas.abap

@@ -86,9 +86,13 @@ CLASS zcl_settings IMPLEMENTATION.
 
   METHOD check_settings.
 
-    IF zcl_package_json_valid=>is_valid_url( is_settings-registry ) = abap_false.
-      INSERT |Invalid registry URL: { is_settings-registry }| INTO TABLE result.
-    ENDIF.
+    TRY.
+        IF is_settings-registry IS NOT INITIAL.
+          zcl_url=>parse( is_settings-registry ).
+        ENDIF.
+      CATCH zcx_error.
+        INSERT |Invalid registry URL: { is_settings-registry }| INTO TABLE result.
+    ENDTRY.
 
   ENDMETHOD.
 
@@ -140,14 +144,21 @@ CLASS zcl_settings IMPLEMENTATION.
   METHOD get_default.
 
     " Default values for settings
-    result-registry = zif_settings=>c_registry.
+    " TODO: Change to production registry
+    result-registry = zif_settings=>c_playground.
+
+    result-list_settings-order_by = 'PACKAGE'.
 
   ENDMETHOD.
 
 
   METHOD get_setting_key.
 
-    result = |{ zif_persist_apm=>c_key_type-settings }:{ name }|.
+    IF name = zif_settings=>c_global.
+      result = |{ zif_persist_apm=>c_key_type-settings }:{ zif_settings=>c_global }:ALL|.
+    ELSE.
+      result = |{ zif_persist_apm=>c_key_type-settings }:{ zif_settings=>c_user }:{ name }|.
+    ENDIF.
 
   ENDMETHOD.
 

src/zif_settings.intf.abap

@@ -50,8 +50,10 @@ INTERFACE zif_settings PUBLIC.
   TYPES ty_name TYPE uname.
 
   CONSTANTS:
-    c_registry TYPE string VALUE 'https://registry.abappm.com',
-    c_global   TYPE ty_name VALUE zif_persist_apm=>c_key_name-global_settings.
+    c_registry   TYPE string VALUE 'https://registry.abappm.com',
+    c_playground TYPE string VALUE 'https://playground.abappm.com',
+    c_global     TYPE ty_name VALUE zif_persist_apm=>c_key_name-global_settings,
+    c_user       TYPE ty_name VALUE zif_persist_apm=>c_key_name-user_settings.
 
   METHODS get
     RETURNING