Changeset 2465

Timestamp:

03/24/21 12:31:58 (3 years ago)

Author:

nanardon

Message:

exit/top don't quit from top level

File:

• trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm (modified) (1 diff)

trunk/LATMOS-Accounts/lib/LATMOS/Accounts/Cli/Base.pm

@@ -807 +807 @@
         $self->rollback if (!$self->Context->TransMode);
         if ($res) {
-            if ( $res eq 'EXIT' ) {
-                $self->print("\n");
-                return
-            } elsif ( $res eq 'TOP' ) {
+            if ( $res =~ m/^(TOP|EXIT)$/ ) {
                 if ( $self->isa('LATMOS::Accounts::Cli::Object') ) {
-                    return 'TOP'
-                } else {
-                    $self->print("\n");
+                    return $res eq 'TOP' ? $res : undef;
                 }
             }