fix for dx_ctl_users - support for Self Service in 5.3

Author: Marcin Przepiorowski

CHANGELOG.md

@@ -1,3 +1,8 @@
+## 2.3.9.1
+
+### Changed
+- dx_ctl_users - fix for Self Service users support in 5.3
+
 ## 2.3.9
 
 ### Changed
@@ -8,10 +13,10 @@
 ### Added
 - DB2 support added
 - dx_ctl_dsource - action update added to allows change of backup_path and validated sync mode for an Oracle and Sybase
-- dx_ctl_user - added possibility to set timeout for one or all users, option force added to remove a JS container ownership and delete user
+- dx_ctl_users - added possibility to set timeout for one or all users, option force added to remove a JS container ownership and delete user
 
 ### Changed
-- dx_ctl_user - is running actions for users in same domain as user used for connection
+- dx_ctl_users - is running actions for users in same domain as user used for connection
 
 
 ## 2.3.9-rc1

lib/Toolkit_helpers.pm

@@ -29,7 +29,7 @@ use File::Spec;
 
 use lib '../lib';
 
-our $version = '2.3.9';
+our $version = '2.3.9.1';
 
 sub logger {
 	my $debug = shift;

lib/User_obj.pm

@@ -517,14 +517,20 @@ sub setJS {
 
     if ( uc $flag eq 'Y' ) {
         if ( defined($current_state) ) {
-            logger($self->{_debug}, "User is already Jet Stream User. ",0);
-            return 0;
+          logger($self->{_debug}, "User is already Jet Stream User. ",0);
+          return 0;
         } else {
-            if ( $authorizations->setAuthorisation($reference,'Jet Stream User',$reference) ) {
-                return 1;
-            } else {
-                return 0;
-            }
+          my $rolename;
+          if (version->parse($self->{_dlpxObject}->getApi()) < version->parse("1.10.0")) {
+            $rolename = 'Jet Stream User';
+          } else {
+            $rolename = 'Self-Service User';
+          }
+          if ( $authorizations->setAuthorisation($reference, $rolename, $reference) ) {
+              return 1;
+          } else {
+              return 0;
+          }
 
         }
     }