Kernel/System/Console/Command/Admin/DynamicField/Add.pm

@@ -38,48 +38,55 @@ sub Configure {
     my ( $Self, %Param ) = @_;
 
     $Self->Description('Create a new dynamic field.');
-    $Self->AddArgument(
+    $Self->AddOption(
         Name        => 'name',
         Description => 'Name for the new field.',
         Required    => 1,
+        HasValue    => 1,
         ValueRegex  => qr/[A-Za-z0-9]+/smx,
     );
-    $Self->AddArgument(
+    $Self->AddOption(
         Name        => 'label',
         Description => 'Label which will be displayed alongside the field.',
         Required    => 1,
+        HasValue    => 1,
         ValueRegex  => qr/.*/smx,
     );
-    $Self->AddArgument(
+    $Self->AddOption(
         Name        => 'field-type',
         Description => 'Dynamic field type.',
         Required    => 1,
+        HasValue    => 1,
         ValueRegex  => qr/[A-Za-z0-9]/smx,
     );
-    $Self->AddArgument(
+    $Self->AddOption(
         Name        => 'object-type',
         Description => 'Object type for the new field.',
         Required    => 1,
+        HasValue    => 1,
         ValueRegex  => qr/[A-Za-z0-9]/smx,
     );
-    $Self->AddArgument(
+    $Self->AddOption(
         Name        => 'config',
         Description =>
             'Config for dynamic field. Takes either an YAML or JSON string. See also Admin::DynamicField::ConfigDump and Admin::DynamicField::ConfigBuild.',
         Required   => 0,
+        HasValue   => 1,
         ValueRegex => qr/.*/smx,
     );
-    $Self->AddArgument(
+    $Self->AddOption(
         Name        => 'namespace',
         Description => 'Namespace to place the new field into.',
         Required    => 0,
+        HasValue    => 1,
         ValueRegex  => qr/[A-Za-z0-9]+/smx,
     );
-    $Self->AddArgument(
+    $Self->AddOption(
         Name        => 'field-order',
         Description =>
             'Field order to place the field at. Defaults to hightest order plus 1. Per default, other fields are reordered if an occupied order number is chosen.',
         Required   => 0,
+        HasValue   => 1,
         ValueRegex => qr/\d+/smx,
     );
     $Self->AddOption(
@@ -89,10 +96,11 @@ sub Configure {
         HasValue    => 1,
         ValueRegex  => qr/^[[0-1]{1}$/smx,
     );
-    $Self->AddArgument(
+    $Self->AddOption(
         Name        => 'valid',
         Description => 'Whether the field to add is valid or invalid. Defaults to 1.',
         Required    => 0,
+        HasValue    => 1,
         ValueRegex  => qr/^[0-1]{1}$/smx,
     );
     $Self->AddOption(

Kernel/System/Console/Command/Admin/DynamicField/Delete.pm

@@ -25,48 +25,40 @@ use warnings;
 
 # OTOBO modules
 
-use parent qw(Kernel::System::Console::BaseCommand);
-
 our @ObjectDependencies = (
-    'Kernel::System::DynamicField',
+
 );
 
-sub Configure {
+=head1 NAME
-    my ( $Self, %Param ) = @_;
 
-    $Self->Description('Delete an existing dynamic field.');
+[name_placeholder]
-    $Self->AddArgument(
-        Name => 'name',
-        Description => 'Delete dynamic field by name.',
-        Required => 0,
-        ValueRegex => qr/([A-Za-z0-9]+\-)?[A-Za-z0-9]+/smx,
-    );
-    $Self->AddArgument(
-        Name => 'id',
-        Description => 'Delete dynamic field by field id.',
-        Required => 0,
-        ValueRegex => qr/\d+/smx,
-    );
-    $Self->AddOption(
-        Name => 'dry-run',
-        Description => 'Perform a dry run and show which field whould be deleted.',
-        Required => 0,
-        HasValue => 0,
-    );
-    $Self->AddOption(
-        Name => 'execute',
-        Description => 'Execute the deletion.',
-        Required => 0,
-        HasValue => 0,
-    );
 
-    return;
+=head1 DESCRIPTION
+
+[description_placeholder]
+
+=head1 PUBLIC INTERFACE
+
+=head2 new()
+
+create an object. Do not use it directly, instead use:
+
+my $DeleteObject = $Kernel::OM->Get('Kernel::System::Console::Command::Admin::DynamicField::Delete');
+
+=cut
+
+sub new {
+my ( $Type, %Param ) = @_;
+
+# allocate new hash for object
+my $Self = {%Param};
+bless( $Self, $Type );
+
+return $Self;
 }
 
 sub Run {
-    my ( $Self, %Param ) = @_;
+my ( $Self, %Param ) = @_;
-
-    return;
 }
 
 1;